Tips182 - [ExcelでDAOとSQL] 指定位置へレコードを移動する

先頭から何件目のように位置指定しレコードを移動させるにはMoveメソッドを使います。
ここではテキストボックスに移動したい位置を、何件目かで入力してもらい、Enterキーが押されると実行します。
実行は最初に、MoveFirstを行い次に、Moveを行います。
エラーが発生した場合はレコードなし、とみなしメッセージを表示します。
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim ln As Long

On Error Resume Next
If KeyCode = 13 Then
ln = Val(TextBox1)
　 End If
If ln > 0 Then
On Error GoTo ErrExit
rs.MoveFirst
rs.Move ln - 1
Range("C6") = rs(0)
Range("C7") = rs(1)
End If
Exit Sub
ErrExit:
MsgBox "指定されたレコードは見つかりませんでした。"
End Sub


実行画面
テキストボックスに入力した結果、その位置のレコードデータが表示されています。


エラーが発生した場合
「指定されたレコードは見つかりませんでした。」とメッセージが表示されます。