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 会默认禁用普通导航 Pane 上的上一个和下一个按钮。

如果您使用自定义导航按钮，那么您可以使用

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