※ ChatGPTを利用し、要約された質問です(原文:Access2000でリスト指定の印刷)
Access2000でリスト指定の印刷を実現する方法
このQ&Aのポイント
Access2000で顧客管理のデータベースを作成しています。リスト指定の印刷を実現するために、指定レコード印刷フォームを作成しましたが、うまく動作しません。
印刷ボタンのクリック時のイベント設定にエラーがあります。テーブルの主キーを「id」としているので、DoCmd.OpenReport stDocName, acNormal, , "id = " & idのように設定してください。
この方法で特定のレコードのみを印刷することができます。お手元の環境で試してみてください。
現在Access2000で顧客管理のデータベースを作成しています。
指定したレコードだけを印刷する、指定レコード印刷フォームを作成しようと思い、フォームにリストボックスを貼り付け、そのフォームに印刷ボタンを作成しました。
その、印刷ボタンのプロパティ(クリック時)のイベント設定は、次のように設定したのですが、うまく動きません。
Private Sub 印刷ボタン_Click()
On Error GoTo Err_印刷ボタン_Click
Dim stDocName As String
Me.Visible = False
stDocName = "kokyaku_report"
DoCmd.OpenReport stDocName, acNormal, , "id = " & id
Exit_印刷ボタン_Click:
Exit Sub
Err_印刷ボタン_Click:
MsgBox Err.Description
Resume Exit_印刷ボタン_Click
End Sub
ちなみに、テーブルの主キーは「id」としております。
申し訳ありませんが、お分かりの方がいらっしゃったら宜しくお願い致します。
お礼
最適化をしてみましたが、だめでした。 色々試してみましたが、やはり同じメッセージが表示されます。 とりあえず、クエリーとマクロを組み合わせる方向を模索してみます。 >なお、一応このままでも問題は無いのですが、 >DoCmd.OpenReport stDocName, acNormal, , "id = " & id >の行末の[id]は、変数と区別がつきづらい為 >DoCmd.OpenReport stDocName, acNormal, , "id = " & Me.id >とした方が後々見やすいですよ(^ ^) ↑ありがとうございます。今後はこちらに変更します。