「指定テーブルのレコードの有無」の編集履歴(バックアップ)一覧はこちら

指定テーブルのレコードの有無」(2013/05/09 (木) 23:58:20) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

***指定テーブルのレコードの有無 - ソース ' 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 パッケージ化されたクラスは[[こちら>Accessファイルチェッククラス]] [[トップ]]  

表示オプション

横に並べて表示:
変化行の前後のみ表示: