フォーム：指定レコード数の移動 Hit Counter

対象バージョン : 97, 2000, 2002, 2003, 2007
最終更新日 : 2007/02/12 ( オリジナル作成日：1996/12/20 )

概　要

　フォーム上に貼り付けたボタン等により、指定したレコード数分移動する方法です。

　ここでは、フォームに先頭方向へ移動するコマンドボタン btnUp と、末尾方向へ移動するコマンドボタン btnDown を貼り付け、これらのボタンを押すことにより、１０ レコードスクロールさせます。

　

●コマンドボタン btnUp の "OnClick/クリック時" のイベントプロシージャ

Private Sub btnUp_Click()
Dim rs As Recordset
Set rs = Me.RecordsetClone
On Error GoTo btnUp_Error
rs.Move -10, Me.Bookmark
btnUp_Exit:
Me.Bookmark = rs.Bookmark
Exit Sub

btnUp_Error:
rs.MoveFirst
GoTo btnUp_Exit
End Sub

●コマンドボタン btnDown の "OnClick/クリック時" のイベントプロシージャ

Private Sub btnDown_Click()
Dim rs As Recordset
Set rs = Me.RecordsetClone
On Error GoTo btnDown_Error
rs.Move 10, Me.Bookmark
btnDown_Exit:
Me.Bookmark = rs.Bookmark
Exit Sub

btnDown_Error:
rs.MoveLast
GoTo btnDown_Exit
End Sub

目次へ戻る