Access2013のVBAでレコード移動ボタンを作成します。
リボンの［フォームデザインツール］－［デザイン］－コントロールの［ボタン］を選択し、フォームに４個配置します。
配置したボタンの［標題］プロパティに「先頭へ」「前へ」「次へ」「最後へ」と入力します。
１．ボタンを選択します。
２．クリック時プロパティの［▼］をクリックし、［イベント プロシージャ］を選択します。
３．右の［・・・］をクリックします。
ボタンのクリックイベントのコードが開くので、下記のように入力します。
Private Sub コマンド17_Click()
On Error Resume Next
DoCmd.GoToRecord acDataForm, "T_商品", acFirst
End Sub
同様に全ボタンに下記のコードを入力します。
Private Sub コマンド18_Click()
On Error Resume Next
DoCmd.GoToRecord acDataForm, "T_商品", acPrevious
End Sub
Private Sub コマンド19_Click()
On Error Resume Next
DoCmd.GoToRecord acDataForm, "T_商品", acNext
End Sub
Private Sub コマンド20_Click()
On Error Resume Next
DoCmd.GoToRecord acDataForm, "T_商品", acLast
End Sub
VBAを使い、完成したレコード移動ボタンです。
