Tips181 - [ExcelでDAOとSQL] レコード位置を移動する

実行画面


Workbook_Openイベントでデータベースを開いておきます。
・「先頭へ」ボタン
On Error GoTo ErrExit
rs.MoveFirst
Range("C6") = rs(0)
Range("C7") = rs(1)
Exit Sub
ErrExit:
Beep

・「前へ」ボタン
On Error GoTo ErrExit
rs.MovePrevious
Range("C6") = rs(0)
Range("C7") = rs(1)
Exit Sub
ErrExit:
Beep

・「次へ」ボタン
On Error GoTo ErrExit
rs.MoveNext
Range("C6") = rs(0)
Range("C7") = rs(1)
Exit Sub
ErrExit:
Beep

・「最後へ」ボタン
On Error GoTo ErrExit
rs.MoveLast
Range("C6") = rs(0)
Range("C7") = rs(1)
Exit Sub
ErrExit:
Beep