Question

运行此代码时，为什么我会收到“输入参数值”输入框？

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，如果这意味着什么。

Answer 1

如果查询中的字段名称包含标点符号（Combo_1），则应将其括在括号中，如下所示：

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

报告期待一个参数，但没有得到它，因为它没有以正确的方式传递。

Answer 2

我通过使用此处提供的一些编码找到了解决方案：http://www.techrepublic.com/article/how-to-print-one-or-more-labels-for-a-single-access-record/

修复错误最有可能创建临时表和临时报告。

单击按钮时，组合框会出现“输入参数值”提示

2 个答案: