将参数传递给报表（报表内置参数化查询）

Question

我有一个基于参数化查询的报告，该查询需要非常具体的变量，因此我构建了一个带有组合框的表单来收集参数。然后我尝试将变量传递给报告，但是，我无法让它工作，虽然报告打开了，但它一直在询问我认为我正在传递给它的变量。

参数取自点击命令按钮时的表单，收集参数和打开报表的相关代码sn-p如下：

Dim args as String
args = "[Year Ending]=#" & DateSerial(Year(Me.comboYearEnding.Value), Month(Me.comboYearEnding.Value), Day(Me.comboYearEnding.Value)) & "#," & _
" [Budget Round]=" & Me.comboBudgetRound & _
" [Organisational Hierarchy Version]=" & Me.comboOrgHierarchy.Value & _
" [Nominal Hierarchy Version]=" & Me.comboNomHierarchy & _
" [Group ID]=" & Me.comboGroup.Value & _
" [Unit ID]=" & Me.comboUnit.Value & _
" [Department ID]=" & Me.comboDepartment
" DoCmd.OpenReport "rptForecast_4_UoW", View:=acViewPreview, OpenArgs:=args

这将打开报告，并且 args 字符串具有所有正确的值，但是，在打开时，报告会再次询问列出的每个参数，除非我输入它们，否则报告会以“#Type！”打开错误，我假设底层查询没有可使用的参数。

谁能解释我哪里出错并阐明错误所在。

非常感谢，

西蒙

Answer 1

首先，插入Debug.Print args供你学习。

其次，日期表达式可能格式不正确，如果Version是字符串，则必须用引号括起来，如果小数点不带点，货币会出错：

Dim args as String
args = "[Year Ending]=#" & Format(Me.comboYearEnding.Value, "yyyy\/mm\/dd") & "#," & _
" [Budget Round]=" & Str(Me.comboBudgetRound) & _
" [Organisational Hierarchy Version]='" & Me.comboOrgHierarchy.Value & "'" & _
" [Nominal Hierarchy Version]=" & Me.comboNomHierarchy & _
" [Group ID]=" & Me.comboGroup.Value & _
" [Unit ID]=" & Me.comboUnit.Value & _
" [Department ID]=" & Me.comboDepartment
" DoCmd.OpenReport "rptForecast_4_UoW", View:=acViewPreview, OpenArgs:=args

编辑

应该是：

DoCmd.OpenReport "rptForecast_4_UoW", View:=acViewPreview, WhereCondition:=args