2017-04-20 34 views
0

任何想法爲什麼我在運行此代碼時會收到「輸入參數值」輸入框?組合框單擊按鈕時出現「輸入參數值」提示

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。

回答

0

如果在查詢中的字段名稱包含標點符號(Combo_1),你應該在括號括起來,就像這樣:

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

報告期待一個參數,但沒有得到它,因爲它沒有被穿過以正確的方式。 http://www.techrepublic.com/article/how-to-print-one-or-more-labels-for-a-single-access-record/

什麼固定的錯誤是最有可能創建臨時表和臨時報告:

+0

它仍然給我相同的結果 –

+0

報告的來源是什麼 - 它是一個查詢嗎?查詢上是否有名爲「Combo_1」的字段? – AdzzzUK

+0

該源是一個查詢,它沒有名爲Combo_1的字段。 Combo_1在查詢中的列1中下拉列表,然後我有2個文本框填寫列2和3.組合框是無界的,因此我可以使用下拉菜單並且不能編輯它。 –

0

我已經通過使用一些編碼是在這裏提供找到了解決辦法。