ACCESS フォームのデータを1件ずつレポート出力したい

Question

前提・実現したいこと

フォームのデータを1行ずつ読み、「キャンセル区分」がnullか
nullじゃないかでデータを分けて、
nullならば、キャンセルでないときのレポート、
nullでないならば、キャンセルのレポートを出したいです。

発生している問題・エラーメッセージ

キャンセルかキャンセルでないかの判別はできるのですが、
レポートがキャンセルでない方とキャンセルの方1枚ずつしかでません。
そこのプログラムを通ってはいますが、最初の1枚以外はプレビューできません。
また、印刷するとどちらも合わせて1枚しか印刷されません。
どこを直したらよいのでしょうか、すみませんが、よろしくお願いします。

該当のソースコード

'******************************
Private Sub 出力ボタン_Click()
'******************************

    Me.Refresh
    
    sql = "SELECT 受注№,受注明細№"
    sql = sql & " FROM 商品T"
    sql = sql & " WHERE (((商品T.出力チェック)=Yes))"
    Set rs = CurrentDb.OpenRecordset(sql, dbOpenSnapshot)
    
    If rs.BOF = True Then
        MsgBox "出力するデータにチェックを付けてください"
    End If
    
    Do Until rs.EOF
    検索受注№ = rs![受注№]
    検索受注明細№ = rs![受注明細№]

        sql2 = "UPDATE 商品T SET チェック1 = Yes"
        sql2 = sql2 & " WHERE 受注№ = '" & 検索受注№ & "'"
        sql2 = sql2 & " AND 受注明細№ = '" & 検索受注明細№ & "'"
        DoCmd.RunSQL sql2
                
        sql3 = "SELECT キャンセル区分"
        sql3 = sql3 & " FROM 商品T"
        sql3 = sql3 & " WHERE 商品T.チェック1 = Yes"
        Set rs2 = CurrentDb.OpenRecordset(sql3, dbOpenDynaset)
        
        If IsNull(rs2![キャンセル区分]) = True Then
            DoCmd.OpenReport "出荷日変更レポート", acViewPreview
        Else
            DoCmd.OpenReport "出荷日変更レポート（キャンセル）", acViewPreview
        End If
        
        sql3 = "UPDATE 商品T SET チェック1 = No"
        sql3 = sql3 & " WHERE 受注№ = '" & 検索受注№ & "'"
        sql3 = sql3 & " AND 受注明細№ = '" & 検索受注明細№ & "'"
        DoCmd.RunSQL sql3
    
    rs.MoveNext
    Loop
     
End Sub

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

呈示されている情報とコードから推測すると、
やりたいことは下記のようなことでしょうか。

1. 「商品T」テーブルの「出力チェック」にチェックが入ったレコードをレポートとして出力する。
2. レコード毎に「キャンセル区分」がNullかどうかでレイアウトを変更したい。
3. できれば、１つのレポートとしてプレビューしたい。

私なら、下記のような設計にします。

レポートのレコードソースを下記のよう設定します。

   SELECT * FROM 商品T  WHERE 出力チェック=True;

レポートのデザインビューで主キーフィールドでグループ化してグループヘッダーを表示させる。これで、レコード毎にグループヘッダーが出力されます。

グループヘッダーに「キャンセル区分」がNullの場合のレイアウトになるようにコントロールを配置します。

詳細セクションに「キャンセル区分」に値が入っている場合のレイアウトになるようにコントロールを配置します。
詳細セクションの「改ページ」プロパティを「カレントセクションの後」に設定します。

グループヘッダーセクションのフォーマット時と詳細セクションのフォーマット時のイベントプロシージャを下記のように記述します。

Private Sub グループヘッダー0_Format(Cancel As Integer, FormatCount As Integer)
    'キャンセル区分がNullでなければ出力しない
    If Not IsNull(Me.キャンセル区分) Then Cancel = True
End Sub

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
    'キャンセル区分がNullなら出力しない
    If IsNull(Me.キャンセル区分) Then Cancel = True
End Sub

このレポートをプレビュー（あるいは印刷）すれば、各レコード毎に「キャンセル区分」がNullの場合とNullでない場合で異なるレイアウトで一気に出力されます。

Answer 2

連続して印刷したいなら、acViewPreviewではなくてacViewNormalだと思いますけど。
ただ、レポート側で該当の1件だけになるような作りになっていないと駄目でしょうけど。

通常とキャンセルでレイアウトが違うなら、同一レポートに２つを配置して、片方を状態に応じてフォーマットしないみたいな感じになりそうですけど、細かい点が不明なのであまり詳細には回答し辛いですね。

追記

DoCmd系のメソッドは非同期なので、実行順序が担保されていません。
.Execute メソッドに変更してみてください。

CurrentDB.Execute sql2
とか
CurrentDB.Execute sql3
とかに。

Comments

[meronpansuki]

回答ありがとうございます。
レポート側にも条件が付いていてそれがキャンセルとそうでない場合に
違っているので別のレポートを使いたいところです。
acViewNormalでもやはり1枚しか出ませんでした。。

[meronpansuki]

同じキャンセルのものでも最初の1枚しかでないので、
レポートに出力するところが変なのですかね、、、。

[sazi]

そのレポートでは商品Tはレコードソースに含まれていますか？
含まれているなら WhereConditionで
"キャンセル区分=True And チェック1 = Yes" ※通常
"キャンセル区分=False And チェック1 = Yes" ※キャンセル
のように指定すれば印刷するデータは限定されます

[sazi]

追記しました。
でも、印刷自体が非同期なので、WhereConditionにキーを渡すやりかたでないと厳しいかもですね。

[meronpansuki]

含まれています！
通常とキャンセルの条件に追加しました。
acnormalで出力すると全データでました！が、previewは
最初の1つしか出ません。最初にプレビューの画面が開かれているので、
2枚目以降がエラーになっているのではないのかと思うのですが、
どうすればプレビューを全データできるのかわかりません。よろしくお願いします。

[sazi]

プレビューで開いて閉じていないから、次のopenは意味が無いでしょうね。
プレビューのウインドウが次々に開くのをイメージされているのですか？
でしたら、印刷先をプリンタではなくPDFにしては如何でしょうか？

[meronpansuki]

最後にキャンセルかどうか振り分けられたデータが一気プレビューで開かれる方がいいのですが、それもやり方がわからなくてこういったプログラムで書いてしまいました。最後にまとめてプレビューが見れるようにはなりますか、、？

[hatena19]

> 最後にまとめてプレビューが見れるようにはなりますか、、？

私の回答がその方法なんですけどね。