Access 一覧フォーム　指定行へのジャンプ

テキストボックス（GNO）に行番を入れてジャンプボタンで実行する関数

アクティブレコードが変わることがきっかけになってスクロールするので、手動でスクロールした後、ボタンを押しても動かなかった。最初のレコードにいったん移動してからFindFirstすると、そこまでスクロールするようになった

Sub G_Jump()

If IsNull(Me.GNO) = False Then

Dim strCriteria As String
strCriteria = “行番 = ” & Me.GNO.Value
Me.F_JOB一覧サブ.Form.Recordset.MoveFirst　→　これを入れると望みの動作をするようになった
Me.F_JOB一覧サブ.Form.Recordset.FindFirst strCriteria

End If

End Sub