Vba 组合框获取"；输入参数值"；单击按钮时提示

你知道为什么我在运行这段代码时会得到一个“输入参数值”的输入框吗

Private Sub cmdPrint_Click()
    Dim str As String
    On Error GoTo ErrHandler
    If IsNull(Me.Combo_1) Then
        MsgBox "Can't print an unsaved record", _
        vbOKOnly, "Error"
        Exit Sub
    End If
    str = "Combo_1 = '" & Me!Combo_1 & "'"
    Debug.Print str
    DoCmd.OpenReport "rptBarCodeLabels(2)", acViewPreview, , str
    Exit Sub
ErrHandler:
    MsgBox Err.Number & ": " _
    & Err.Description, vbOKOnly, "Error"
End Sub

---

编辑：该按钮用于打印Combo_1中当前选定内容的标签。单击“打印”按钮后，我希望它显示我在标签报告中选择的单个记录。我使用的是Access 2003，如果这意味着什么的话。

如果查询中的字段名包含标点符号（Combo_1），则应该用括号括起来，如下所示：

str = "[Combo_1] = '" & Me!Combo_1 & "'"

---

报表需要一个参数，但无法获取它，因为它没有以正确的方式传递。

我通过使用此处提供的一些编码找到了解决方案：

---

修复此错误的方法很可能是创建临时表和临时报告。

它仍然会给我相同的结果报告的记录源是什么-是查询吗？查询上是否有名为“Combo_1”的字段？源是一个查询，但没有名为Combo_1的字段。Combo_1在查询中下拉第1列中的列表，然后我有两个文本框来填充第2列和第3列。组合框是无界的，因此我可以使用下拉列表，而不能对其进行编辑。