Question

我在表格中有一个数字字段。名为“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的Mug和litelite：）

最后，删除一行的代码（关于“刷新”顺序的最后一行）正常工作。最终代码如下：

Private Sub PrEvFees_BeforeUpdate（取消为整数）

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代码不起作用？

1 个答案: