Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2243 / 9994

←次へ　｜　前へ→


	【11028】レポートの切り替え

hi - 09/3/2(月) 7:57 -


	引用なし

	パスワード

お世話になります。

レポートの切り替えについてうまくいかず困っています。

あるデータを作成しレポートにまとめて印刷を掛けさせているのですが、
データのひとつの項目をキーにレポートの書式を変えて印刷させたい
と考えています。

やり方は、

フォームの中のコンボボックス「cmb1]で「１」と「２」を選択した場合
「１」の場合は、レポート「testA」、「２」の場合はレポート「testB」を
選択させるようにさせたいのです。
データーは、その日に入力されたデータをクエリにて絞り印刷されるように
しています。
データは、「１」「２」がランダムに存在しております。

下記コードを作ってみたのですが・・・（下記はプレビュー用です）

Private Sub コマンド5_Click()
On Error GoTo Err_コマンド5_Click
　　Dim stDocName As String
If cmb1 = 1 Then
　　stDocName = "testA"
　　DoCmd.OpenReport stDocName, acPreview
Else
stDocName = "testB"
　　DoCmd.OpenReport stDocName, acPreview
End If
End Sub

上記コードで実行した場合、一番最初のデータが「１」の場合はtestAのレポート
のみしか選択されません。
これを、まとめて印刷する場合、レポートを切り替えてうまく印刷させる方法は
ありますでしょうか。

よろしくお願いします。

358 hits

▼

【11028】レポートの切り替え hi 09/3/2(月) 7:57