【Access】 レポートの印刷について

質問

お世話になっています。

Accessでの印刷方法につきまして、質問があります。

質問の内容は、下記↓の質問と同じなのですが、この質問の答えにつきまして補足のアドバイスを頂けると助かります。

http://oshiete1.goo.ne.jp/kotaeru.php3?q=782664

当方では各レコードにIDは振っておりますので、WhereConditionに指定する「ユニークなコード」について、具体的にお教え頂けると幸いです。

よろしくお願いいたします。

回答No.3

bonaron

<訂正後>
DoCmd.OpenReport "レポート名", acViewPreview, "ID=" & Me!ID

No1さんの回答
docmd.openreport "レポート名",acviewpreview,,"ID=" & me!ID

良く見て。
カンマが１個 足りませんよ。

回答No.2

nicotinism

<訂正後>
DoCmd.OpenReport "レポート名", acViewPreview, "ID=" & Me!ID
実際のコードがこれなのですか？

レポート名 は開きたいレポート名
ID はレポートのソースとなっているクエリかテーブルの実際のフィールド名です。
Me!ID のIDもフォームのコントロール名です。

それでも目的が達せられないのなら、ID がユニークではないのでしょう。
他と重複しない唯一無二のデータを持つフィールドを指定して下さい。
あるいは ID が文字列型の場合には
DoCmd.OpenReport "レポート名", acViewPreview, "ID='" & Me!ID & "'"

http://www.moug.net/tech/acvba/0100022.htm

回答No.1

nicotinism

フォームにコマンドボタンがあるとして、
ID が数値型の場合、フォームのコントロール名である場合
コマンドボタンのイベントに
docmd.openreport "レポート名",acviewpreview,,"ID=" & me!ID

かな？

お礼

ご助言、ありがとうございます。<(_ _)>

早速フォーム上のコマンドボタンのVBAに、アドバイス頂いた点を訂正してみたのですが…。

<訂正前>
DoCmd.OpenReport "レポート名", acViewPreview, strwhere

<訂正後>
DoCmd.OpenReport "レポート名", acViewPreview, "ID=" & Me!ID

変化ありませんでした…。

当方のコマンドボタンのVBAの中に、

DoCmd.GoToRecord , "レポート名", acLast

上記構文があるので、ボタンを押すと最終レコード(=入力したばかりのレコード)が表示されるのですが、印刷をしようとすると対象が全レコードになります。

メニューバー→ファイル→印刷→印刷範囲…で印刷するページの指定はできますが、この過程をショートカットできるように、表示するレコードが1件のみになるような構文がフォーム上で作成できれば…と考えています。