※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

指定テーブルのレコードの有無

  • ソース
' 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



パッケージ化されたクラスはこちら