フォームにデータソースを指定して、登録・更新・削除を実装する

• フォームのTabキー移動を「カレント レコード」に設定して、フォーカスが最後の項目の次は最初の項目に移動するようにする。

検索ボタン

Private Sub cmdレコードの検索_Click()
    Dim objRecordset As Recordset

    'フォームのデータソースに紐づいたレコードセットを取得する
    Set objRecordset = Form_フォーム1.Recordset

    '検索条件に一致した場合は、一致したレコードに移動する
    objRecordset.FindFirst "フィールド1='" & txtテキストボックス1.Value & "'"

    '検索条件に一致しなかった場合は、新規レコードへ移動する
    If objRecordset.NoMatch Then
        DoCmd.GoToRecord , , acNewRec

    End If

登録ボタン

Private Sub cmdレコードの保存_Click()
    DoCmd.RunCommand acCmdSaveRecord
End Sub

取消ボタン

Private Sub cmdレコードを元に戻す_Click()
    DoCmd.RunCommand acCmdUndo
End Sub