2013年12月06日

【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

タグ:アクセス
posted by pltokyo at 14:51| Comment(0) | Access