为什么 VBA Enable/Disable 按钮的代码不起作用？

Question

我在 table 中有一个数字字段。名为 "Pr330USD" 的字段在一个表单中，名为 "PrEvFees" 的文本框的控件源已链接到该字段。

我还有两个按钮命名为：

OpenReportFRR

OpenFRRDraft

用于打开两个不同的报告。

我写了下面代码提到的按钮：

Private Sub PrEvFees_BeforeUpdate(Cancel As Integer)
    If Me.PrEvFees.Value >= 300 Then
        OpenReportFRR.Enabled = True
        OpenFRRDraft.Enabled = False
    Else
        OpenReportFRR.Enabled = False
        OpenFRRDraft.Enabled = True
    End If

    DoCmd.Save
    DoCmd.RefreshRecord

End Sub

问题是：插入金额（小于 300 美元或以上）后，按钮不会改变它们的状态，刷新命令也不起作用（我在线上包含 "DoCmd.RefreshRecord" 黄色警报）。

任何想法都非常感谢。

Answer 1

好的伙计们，谢谢... 尤其是 Mat's Mug 和 litelite :)

最后，删除一行的代码（关于 "Refresh" 命令的最后一行）可以正常工作。最终代码如下：

Private Sub PrEvFees_BeforeUpdate(Cancel As Integer)

If Me.PrEvFees.Value >= 300 Then

    OpenReportFRR.Enabled = True
    OpenFRRDraft.Enabled = False

Else

    OpenReportFRR.Enabled = False
    OpenFRRDraft.Enabled = True

End If

    DoCmd.Save

End Sub

为什么 VBA Enable/Disable 按钮的代码不起作用？

Why VBA Code for Enable/Disable Buttons doesn't work?

vba

ms-access-2010