このコードを実行する際に「パラメータ値を入力」ボックスが表示される理由は何ですか?ボタンをクリックすると「パラメータ値を入力」プロンプトが表示される
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」という名前のフィールドがありますか? – AdzzzUK
ソースはクエリであり、Combo_1という名前のフィールドはありません。 Combo_1はクエリの列1のリストをドロップし、次に2列目と3列目に2つのテキストボックスが表示されます。ドロップダウンを使用できるようにコンボボックスが無制限になっており、編集できません。 –