VBAでレコード移動ボタンを作成する

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を使い、完成したレコード移動ボタンです。

ウィザードでレコード移動ボタンを４種類作成する

Access2013のウィザードでレコード移動ボタンを４種類作成します。

リボンの［フォームデザインツール］－［デザイン］－コントロール部分の右下にある［その他］のボタンをクリックし、表示されるメニューの［コントロールウィザードの使用］をONにしておきます。
アイコンに背景色がある状態（下画像）がONです。

１．コントロール部分の［ボタン］を選択します。

２．フォーム上にドラッグし配置します。

ウィザードが始まります。

１．種類から［レコードの移動］を選択します。

２．ボタンの動作から［先頭のレコードに移動］を選択します。

ボタン表示を、文字列かピクチャから選択します。

ボタン名を入力します。

［先頭のレコードに移動］が作成できました。

上の手順を繰り返し、［前のレコードに移動］［次のレコードに移動］［最後のレコードに移動］を作成したフォームです。