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

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

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

カレントレコードの位置がRecordsetオブジェクトの最後のレコードの後の場合、EOFプロパティはTrueを返します。次のコードは、「商品tbl」テーブルの「商品コード」フィールドと「商品名」フィールドの値を、最後のレコードまで順に［イミディエイト］ウィンドウに表示しています。
このサンプルを実行する場合は、フォルダ名やデータベース名をお使いの環境に合わせてください。

●サンプル●
Sub EOFSample()
    Dim myCN As New ADODB.Connection
    Dim myRS As New ADODB.Recordset
    myCN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=D:\AccessVBA\Sample1.mdb"
    myCN.Open
    'レコードセットを開く
    myRS.Open "商品tbl", myCN
    '見出しを表示
    Debug.Print "***開始***" 
    '終端まで繰り返す
    Do Until myRS.EOF
        Debug.Print myRS!商品コード & ":" & myRS!商品名
        '次のレコードを参照
        myRS.MoveNext
    Loop
    'レコードセットを閉じる
    myRS.Close
    myCN.Close
End Sub