コマンドボタンでレコードの移動

質問

いつもお世話になります。ACCESS2010を使用しておりますが、使い勝手に影響する細部に対する対応ができておりません。下記の内容をマクロで改善できればと考えておりますので、宜しくお願いします。

<現状>
フォームの検索で複数ヒットしたとき用に、フォームにコマンドボタンを配して、マクロでレコードの移動を設定しております。レコードは次のレコードを選択で設定。

<感じている不具合>
フォームの検索で５データヒットのとき、コマンドボタンを押していくと５つ目のデータを通り越して押せます。勿論ですがフォームはデータなしの空です。

<運用での希望>
ヒットしたデータ分だけコマンドボタンで移動したら次へ進めない方法はないのでしょうか。

以上、宜しくおねがいします。

回答No.1

piroin654 · ベストアンサー

このような場合にはほとんど定番のような方法があります。
マクロではなく、ボタンのクリック時のイベントに
コードを書きます。

質問の内容から、サブフォームで無いと仮定して、
ボタンのクリック時のイベントに、

'次のレコードに移動のボタン
Private Sub コマンド1_Click()
　　If Me.CurrentRecord < Me.Recordset.RecordCount Then
　　　　DoCmd.GoToRecord acDataForm, Me.Name, acNext
　　End If
End Sub

ついでに、前に移動する場合は、

'前のレコードに移動のボタン
Private Sub コマンド2_Click()
　　 If Me.CurrentRecord > 1 Then
　　　　DoCmd.GoToRecord acDataForm, Me.Name, acPrevious
　　End If
End Sub

ボタンの名前は実際に合わせてください。

お礼

早速アドバイスをいただきまして本当に有難うございます。アドバイスの通りに設定しましたところ、希望通りに上手く操作できました。本当に有難うございました。