指定テーブルのレコードの有無
' HasRecordInSelectedTable
' 指定MDBの指定テーブルがレコードを1件以上保持しているかを確認する
' 事前に指定テーブル自体の有無は確認しておくこと
' 引数:あり
' iDB : DAO.Database :検索先のMDB
' iSelectedTableName : String :検索対象のテーブル名
' 戻り値:あり
' Boolean : 検索対象のレコードの有無(レコードが存在していた場合TRUE)
Public Function HasRecordInSelectedTable(ByVal iDB As DAO.Database, ByVal iSelectedTableName As String) As Boolean
Dim rsObj As DAO.Recordset
Dim result As Boolean
' 返却値の初期化
result = False
' 確認時点の指定テーブルのレコードを取得
Set rsObj = iDB.OpenRecordset(iSelectedTableName, dbOpenSnapshot)
If rsObj.RecordCount > 0 Then
result = True
End If
Set rsObj = Nothing
HasRecordInSelectedTable = result
End Function
最終更新:2013年05月09日 23:58