【Access】連結フォームにて、特定のレコードへフォーカス移動させる方法

Accessの連結フォームにて、特定のレコードへフォーカス移動させる方法

エラーチェック処理などで、全レコードをチェックしないといけない事がありますが、
そんな時は、エラーのあったレコードにフォーカスを当てたくなりますよね？

いくつかやり方はあると思いますが、BookMarkを使うのがスマートだと思います。

フォームのプロパティにBookMarkというのがあり、
これはカレントレコードの位置をAccess内部で識別するためのものです。
このプロパティは書き換えることもできます。
書き換えると。フォーム上のカレントレコードが移動します。

【ソース例】

Private Sub nextBookMark_Click()
	Dim rs As DAO.Recordset
    
	'フォームのRecordsetのクローンを作る
	Set rs = Me.RecordsetClone
    
	'レコードセットを使った編集とかエラーチェックとかはこのへんでやる。
	'今回はサンプルソースなので次レコードへの移動のみ
	rs.MoveNext
	If rs.EOF Then
		rs.MoveFirst
	End If

	'で、フォームのBookMarkを書き換えるとフォーム上でレコード移動する
	Me.Bookmark = rs.Bookmark
End Sub