Recordsetでレコードの有無を調査 ： Access

※.DAO（データアクセスオブジェクト）を使用しますので、「ツール」-「参照設定」で「Microsoft DAO3.* Object Library」を追加しておいてください。

Access VBAでRecordsetを使うと様々なレコード操作が可能になります。

レコードの存在確認をするにはいろいろな方法がありますが、ここでは「Recordset」と「EOF」を使います。
「EOF」とは End of File の略です。

■ Access実行画面

・レコードが存在する場合
　「レコードが存在します」と表示されます。


・レコードが存在しない場合
　「レコードは登録されていません」と表示されます。

■ Access VBA 実行コード

Option Compare Database
Option Explicit

Private Function AcRecordExists() As Boolean
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("M_製品マスター")
    If rs.EOF Then
        AcRecordExists = False
    Else
        AcRecordExists = True
    End If
End Function

Private Sub コマンド0_Click()
    If AcRecordExists Then
        Me!テキスト3 = "レコードが存在します。"
    Else
        Me!テキスト3 = "レコードは登録されていません。"
    End If
End Sub