ray88’s diary

お仕事で困ったとき用の自分用の覚書

AccessVBA Recordset.Moveメソッド カレントレコードを移動する

■フォームのRecordsetプロパティで取得したレコードセットオブジェクトにMove計メソッドを使用するとカレントレコードを移動することができる
【書式】

オブジェクト.Recordset.MoveFirst
オブジェクト.Recordset.MoveLast
オブジェクト.Recordset.MoveNext
オブジェクト.Recordset.MovePrevious

■各メソッドの動作

メソッド 説明
MoveFirst 先頭のレコードに移動
MoveLast 最後のレコードに移動
MoveNext 次のレコードに移動
MovePrevious 前のレコードに移動

(例)

Private Sub btn8_Click() '[レコードの移動]ボタン
    With Me.Recordset
        .MoveLast
        MsgBox "最後のレコードに移動しました"
        .MoveFirst
        MsgBox "先頭のレコードに移動しました"
        .MoveNext
        MsgBox "次のレコードに移動しました"
        .MovePrevious
        MsgBox "前のレコードに移動しました"
    End With
End Sub