スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
構文    expression.EOF    取得のみ
        expression.BOF    取得のみ

設定項目        内容
expression      Recordsetオブジェクト［省略不可］

カレントレコードが最初のレコードの前に設定されるとBOFプロパティがTrueになり、最後のレコードの後に設定されるとEOFプロパティがTrueになります。Recordsetオブジェクトを開いたときにレコードが1件もない場合、BOFプロパティ、EOFプロパティはともにTrueに設定され、カレントレコードも未定義となります。
ここでは、5件のレコードを含む「社員テーブル」と、レコードのない「給与テーブル」をデータソースとしてRecordsetオブジェクトを作成し、それぞれについてRecordsetオブジェクトのBOF、EOFプロパティを使用してテーブルが空かどうかチェックします。

●設定●
動作確認をするためには、Visual Basic Editorのメニューから［ツール］→［参照設定］コマンドを選択し、［参照設定］ダイアログボックスで「Microsoft DAO 3.6 Object Library」にチェックを入れてください。

●サンプル●
Public Sub IsNullTableSample()
    Dim myDB As Database
    Dim myRS As DAO.Recordset
    'カレントデータベースを変数に代入する
    Set myDB = CurrentDb
    '［社員テーブル］をデータソースとしてレコードセットを開く
    Set myRS = myDB.OpenRecordset("社員テーブル", dbOpenTable)
    'BOFプロパティ、EOFプロパティが共にTrueかどうかをチェックする
    If myRS.BOF And myRS.EOF Then
        MsgBox "社員テーブルは空です"
    Else
        MsgBox "社員テーブルは空ではありません"
    End If
    '［給与テーブル］をデータソースとしてレコードセットを開く
    Set myRS = myDB.OpenRecordset("給与テーブル", dbOpenTable)
    'BOFプロパティ、EOFプロパティが共にTrueかどうかをチェックする
    If myRS.BOF And myRS.EOF Then
        MsgBox "給与テーブルは空です"
    Else
        MsgBox "給与テーブルは空ではありません"
    End If
    'レコードセットを閉じる
    myRS.Close
End Sub