Access2000でリスト指定の印刷

質問

現在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」としております。
申し訳ありませんが、お分かりの方がいらっしゃったら宜しくお願い致します。

回答No.2

Watapo3 · ベストアンサー

今回提示されたコードについては特におかしなところは見つけられませんし、
当方で、コピペにて動作確認したところきちんと処理されました。

一度、最適化をしてみては如何でしょうか？
若しくは、レポートにモジュールを記述してあるならばそちらが原因かもしれません。

なお、一応このままでも問題は無いのですが、
＞DoCmd.OpenReport stDocName, acNormal, , "id = " & id
の行末の[id]は、変数と区別がつきづらい為
DoCmd.OpenReport stDocName, acNormal, , "id = " & Me.id
とした方が後々見やすいですよ(^ ^)

お礼

最適化をしてみましたが、だめでした。

色々試してみましたが、やはり同じメッセージが表示されます。
とりあえず、クエリーとマクロを組み合わせる方向を模索してみます。

>なお、一応このままでも問題は無いのですが、
>DoCmd.OpenReport stDocName, acNormal, , "id = " & id
>の行末の[id]は、変数と区別がつきづらい為
>DoCmd.OpenReport stDocName, acNormal, , "id = " & Me.id
>とした方が後々見やすいですよ(^ ^)

↑ありがとうございます。今後はこちらに変更します。

回答No.1

Watapo3

>その、印刷ボタンのプロパティ（クリック時）のイベント設定は、次のように設定したのですが、うまく動きません。

どの様にうまく動かないのですかね(^ ^;

憶測になりますが、idはテキスト型ですか？
でしたら、

DoCmd.OpenReport stDocName, acNormal, , "id = '" & id & "'"

となりますが・・・・あとは思いつきません。

補足

ありがとうございます。説明不足ですみません。

>どの様にうまく動かないのですかね(^ ^;

まず動作ですが、印刷ボタンを押すと「印刷中」→「オブジェクが印刷できませんでした」とポップアップで表示されます。

>憶測になりますが、idはテキスト型ですか？

idデータ型ですが「オートナンバー型」にしています。

以前Access97で作成した別のDBでは、これで印刷できましたが、何かおかしい所があるのでしょうか？