vba - フォームの最初/最後のレコードでナビゲーション ボタンを無効にする方法

Question

MS Access 2007 では、フォームのナビゲーション ボタンを無効にしたいと考えています。

次のような擬似コード

If at the first record Then
Disable Previous button

ElseIf at the last record Then
Disable the Next button

現在のイベントと関係があると思います。特定のロジックについてはわかりませんが。

何か案は？

Answer 1

レコードセットの最初または最後にある場合、Accessはデフォルトで通常のナビゲーションペインの前のボタンと次のボタンを無効にします。

カスタムナビゲーションボタンを使用している場合は、次を使用できます

Private Sub Form_Current()
    cmdPrevious.Enabled = Not (CurrentRecord = 1)
    cmdNext.Enabled = Not (CurrentRecord = DCount(AnyField, RecordSource))
End Sub