根据表单选择显示访问报告中的数据

Question

我的访问表单上有一个复选框。如果用户选中该复选框，则访问报告中的一列应显示1000的值

如何做到这一点？

Answer 1

通过在运行报表时将复选框的值传递给OpenArgs，可以设置列的格式。以下是报告开头代码的样子：

Private Sub cmdRun_Click()

    Dim bFormatted As Boolean
    bFormatted = chkFormat.Value
    DoCmd.OpenReport "ReportName", acViewPreview, , , , bFormatted

End Sub

然后在报告的公开活动中：

Private Sub Report_Open(Cancel As Integer)

    Dim sArgs As String
    Dim bFormatted As Boolean

    sArgs = OpenArgs & ""
    If sArgs <> "" Then
        bFormatted = CBool(sArgs)
    End If

    If bFormatted Then
        txtBox.Format = "0000"
    End If

End Sub

我没有检查正确的格式。这取决于你。