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