提示用户输入查询参数 MS Access

Question

是否可以让用户选择 yes/no 并根据该答案在查询中添加参数？

我有一个 table，它有一个 'status' 字段。其中一个状态可以是完整的。打印出一份包含此字段的报告。有时我想要标记为完整的记录，有时我不需要。

是否可以在查询中使用 criteria/expression 生成器提示用户并询问他们是否需要完整的记录？

Answer 1

我认为处理此问题的最佳方法是使用是-否消息框来了解是否应显示标准，然后运行使用 "where" 参数的报告 DoCmd.OpenReport命令。

Dim intAnswer As Integer

Dim intAnswer As Integer

intAnswer = MsgBox("Show the details?", vbYesNo)

If intAnswer = vbYes Then
    DoCmd.OpenReport "Form1", acViewPreview, , "[Status] <> ""Completed""", acWindowNormal, "Yadda Yadda"
Else
    DoCmd.OpenReport "Form1", acViewPreview, , , acWindowNormal, "Zippity Doohdah"
End If

如果您想将用户选择的内容告知报表，一种方法是传递 OpenArgs 字符串，然后在报表上显示一个显示该字符串的标签。（上面我传了"Yadda Yadda"，或者"Zippity Dodah"）

在报表上，添加一个标签（此处称为 Label1）并将其 Caption 设置为等于 OpenArgs：

Private Sub Report_Open(Cancel As Integer)

   If Not IsNull(Me.OpenArgs) Then
       Me.Label1.Caption = Me.OpenArgs
   End If

End Sub

提示用户输入查询参数 MS Access

Prompt user for Query Parameter MS Access

ms-access