| |
お世話になります。
レポートの切り替えについてうまくいかず困っています。
あるデータを作成しレポートにまとめて印刷を掛けさせているのですが、
データのひとつの項目をキーにレポートの書式を変えて印刷させたい
と考えています。
やり方は、
フォームの中のコンボボックス「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のレポート
のみしか選択されません。
これを、まとめて印刷する場合、レポートを切り替えてうまく印刷させる方法は
ありますでしょうか。
よろしくお願いします。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
