2017-04-20 12 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列目と3列目に2つのテキストボックスが表示されます。ドロップダウンを使用できるようにコンボボックスが無制限になっており、編集できません。 –

0

は、私がここに提供されたいくつかのコードを使用して解決策を見つけました。

関連する問題