Access2003

質問

Access2003で顧客名簿を作っています。
入会者をフォームで登録し
そのままボタンで初回カルテを印刷するようにしました。
この時、申込コースによって
レポートを変える方法を教えてください。
(ボタンをたくさん作る方法しかできませんでした(-_-;))
また、あるコースは
レポートの書式は同じで、通う回数が４種類から選べるのですが
フォームから数値を拾ってレポートの行数を変える方法などもあれば教えていただきたいです。
分かりづらい説明でごめんなさい。
よろしくお願いします。

回答No.2

gatt_mk · ベストアンサー

ご質問者がどのレベルかわかりませんが、基本的にはVBAを使う形を取らないとできないでしょう。
画面でコース選択するところをどのように作るかによっても変わってきますので具体的な内容は明示しませんが、VBAが全くわからないようでしたらそのままボタンをたくさん作っておくぐらいしかできないと思います。

私が作るなら、
１．まずコースを選択するコンボボックスを作ります。
２．通う回数が複数あるコースを選択したときに回数を選ぶコンボボックスを作ります。
３．１のコース選択するコンボボックスの設定は２列にし、データ格納は１列目として１列目に数字、２列目にコース名を表示させます（１列目は表示させないように、列幅は０cmに設定しておいて方が良いかもしれません）。
４．１のコンボボックスで通う回数が複数あるコースは４番目にしておきます。
５．１のコンボボックスで４の値が選択がされたときに、２の「回数を選ぶコンボボックス」を可視できるようにします。２のコンボボックスはデフォルト時は可視を「いいえ」にしておき、４番目以外が選択されたときも可視を「いいえ」に変えるようにし、４の値が選ばれたときに表示させます。（この辺りは更新後のプロシージャにVBAで記述します）
６．印刷ボタンではVBAのプロシージャに「SelectCase文」などを使って１のコンボボックスの値と、２のコンボボックスの値の組み合わせで、印刷に利用するレポートを切り替えます。

以上のようなことをどのようにVBAで記述するかはご質問者が勉強するしかありません。

お礼

なるほど。
どのように進めていけばいいのか分かってきました。
分かりづらい質問に丁寧に答えていただき
どうもありがとうございます☆

回答No.1

noname#140971

顧客名簿:

ID__入会年月日__顧客名_____選択コース
01__2007/10/01__鈴木 一郎___________1
02__2007/10/02__中村 主水___________2

01__2007/10/01__鈴木 一郎__初級コース <--- 翻訳表示することも可
02__2007/10/02__中村 主水__中級コース

一応、選択コースは1,2,3,4 の整数とします。
上のように翻訳表示することも可ですので問題ないと思います。

Private Sub コマンド_コースレポートプレビュー_Click()
On Error Resume Next
　　If Len(Me.コンボ_選択コース & "") > 0 Then
　　　　DoCmd.OpenReport "レポート" & Me.コンボ_選択コース.Value, acPreview
　　Else
　　　　MsgBox "先に[コンボ_選択コース]を選択して下さい。"
　　End If
End Sub

最初の質問ですが、レポート名の末尾を1,2,3,4に対応させれば１行でＯＫです。

＞フォームから数値を拾ってレポートの行数を変える方法・・・。

この回答は割愛します。