在ms访问中创建动态查询

Question

我从这个查询创建一个报告：

select DocumentNumber,DocumentDate, from Documents where DocumentNumber ="Feb_345"

但我希望有一个动态查询。我想创建一个表单，用户将在其中输入一个文档编号，然后我会将此编号保存在我的OnClick函数的字符串变量中，之后我将此文档编号作为参数发送到我的查询中。因此，当用户打开报告时，他将看到他之前在表单中输入的文档报告。

我有一个问题，因为当我在我的vba脚本中保存文档编号时，我不知道如何将此变量作为参数发送到查询。

Answer 1

您可以将查询减少到：

select DocumentNumber, DocumentDate from Documents

然后打开筛选的所选文档编号的报告：

Dim DocumentNumber As String
Dim WhereCondition As String

WhereCondition = "DocumentNumber = '" & YourSelectedDocumentNumber & "'"    
DoCmd.OpenReport NameOfYourReport, acViewNormal, , WhereCondition

对于两个或更多参数，展开Where条件：

select DocumentNumber, Author, DocumentDate from Documents

和：

Dim WhereCondition As String

WhereCondition = "DocumentNumber = '" & YourSelectedDocumentNumber & "' And Author = '" & Author & "'"    
DoCmd.OpenReport NameOfYourReport, acViewNormal, , WhereCondition