ACCESS VBA BOFの使い方

ACCESSのレコードセットでファイルの始まりを表すのがBOFです。

BOFはACCESSのループ処理でよく利用されます。

今回は、BOFの使い方をご紹介します。

こんにちは。
はこにわガジェット（@hakoniwagadget）です。

ACCESSを使った売上管理、顧客管理などのデータベース開発を行っています。
ACCESSは基本機能だけでも十分便利ですが、VBAを使うことで格段に使いやすいデータベースを作成可能です。
この記事ではACCESSでのVBAの使い方をご紹介していきます。

1 BOFとは
2 BOFの使い方

BOFとは

BOFとは、Beginig Of Fileの略で、ACCESSではADO（ActiveX Data Objects）のレコードセットに対して利用可能なプロパティです。
レコードセット（テーブルやクエリ）に対して、カレントレコードが最初のレコードより前にあるか否かを判定します。

BOFは以下の構文で利用します。

レコードセット.BOF

レコードセット名につけるだけの比較的簡単な構文です。

カレントレコードが最初のレコードより前、つまりレコードセットの一番最初にいる場合は値がTrue、そうでない場合はFalseが返されます。

BOFの使い方

では、実際にBOFを利用したプロシージャの例を示しましょう。

以下はTRN_売上という売上データの入ったテーブルを、請求フラグを立てて変更する処理です。


Public Sub seikyu()

'変数にADOオブジェクトを代入
Set cnn = CurrentProject.Connection
Set rst1 = New ADODB.Recordset
rst1.CursorLocation = adUseClient
Set rst2 = New ADODB.Recordset
rst2.CursorLocation = adUseClient

'レコードセットを取得
rst1.Open "TRN_請求", cnn, adOpenKeyset, adLockOptimistic
rst2.Open "TRN_売上", cnn, adOpenKeyset, adLockOptimistic


'トランザクション処理開始
cnn.Execute "begin transaction;"

rst1.Filter = "請求ID = " & seikyu_id
rst2.Filter = "請求 = true and 顧客ID =" & seikyu_kokyaku_id

    '請求伝票を「請求済」に更新
    rst1.Update "請求済", "True"

    '売上伝票を「請求済」に更新し、「請求ID」を追記。
    If rst2.RecordCount = 0 Then
        
        MsgBox "請求対象の伝票がありません。", vbCritical * vbOKOnly, "請求対象なし"
        'ロールバック
        cnn.Execute "rollback transaction;"

    Else
        Debug.Print "請求対象売上ID数：" & rst2.RecordCount

        rst2.MoveLast

        Do Until rst2.BOF

            rst2!請求 = "false"
            rst2!請求済 = "true"
            rst2!請求ID = seikyu_id
            rst2.Update
            Debug.Print "請求ID付与：" & rst2!売上ID

            rst2.MovePrevious
            
        Loop

    'コミット
    cnn.Execute "commit transaction;"

    End If
                
'終了処理
rst1.Close: Set rst1 = Nothing
rst2.Close: Set rst2 = Nothing
cnn.Close: Set cnn = Nothing

End Sub

上記処理の中でBOFは、


        Do Until rst2.BOF

            rst2!請求 = "false"
            rst2!請求済 = "true"
            rst2!請求ID = seikyu_id
            rst2.Update
            Debug.Print "請求ID付与：" & rst2!売上ID

            rst2.MovePrevious
            
        Loop

で利用しています。

Do Until…Loopの処理で、rst2というレコードセットをループさせて処理しているのですが、その終了判定条件がBOF、つまりBOF = Trueになってレコードセットの最初に到達したら終了、ということです。

このため、Loop処理内では