使用基于复选框值的按钮打开报表

Question

我有一个已指定用于打开报告的按钮。我想要的是，当用户启用复选框时，我希望我已经分配的按钮的 OnClick 操作更改为打开不同的报告。

所以我的逻辑是这样的：

button 1 = docmd.openreport 
when user checkbox = true 
button 1 = docmd.openreport2

这可能吗？

Private Sub Check130_Click()
    If Me.Check130.Value = True Then
    Me.Command1871.OnClick() = DoCmd.OpenReport "rptLoansNew", acViewReport, "", "", acNormal
End Sub

但是显示语法错误。

事实上，我对如何实现这一点一无所知。

Answer 1

你可以这样做：

Private Sub YourButton_Click()

    Dim ReportName As String

    If Me!Check130.Value = True Then
        ReportName = "rptLoansNew"
    Else
        ReportName = "rptLoansOld"
    End If
    DoCmd.OpenReport ReportName, acViewReport, "", "", acNormal

End Sub

并将您的控件重命名为有意义的名称。