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