Access 別々のテーブルから抽出して別のテーブルに追加する

前提・実現したいこと

accessのフォームに手入力で日付を二つ入力し、二つの日付の間のデータを
Excelで出力する。というものを作りたいのですが、Excelで出したいシートが
二つあり、「変更」というシートと「キャンセル」というシートを出力したい
です。その為に「変更」と「キャンセル」という名前のテーブルを持っています。

データがテーブルAに変更の日付や受注NOがあり、テーブルBにキャンセルの日付や受注NOがあります。テーブルBにキャンセル区分というフィールドを持っていて、キャンセル区分が1なら、キャンセルのデータ、0なら変更のデータと判別しています。

キャンセル区分が1だったら、テーブルBのキャンセル日付がフォームで入力した日付間のデータをテーブル「キャンセル」に、キャンセル区分が0だったら、テーブルAの変更日付がフォームで入力した日付間のデータをテーブル「変更」に入るようにしたいです。

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

最初のデータがキャンセル区分1ならキャセルのデータのみ、キャンセル区分0なら変更のデータしか出力されません。どちらのデータもある日付を入力しても、
片方しか出ないので困っております。

該当のソースコード

If IsNull(日付1) = True Then
MsgBox "日付を入力して下さい"
ElseIf IsNull(日付2) = True Then
MsgBox "日付を入力して下さい"
Else
sql = "SELECT *"
sql = sql & " FROM テーブルB"
sql = sql & " WHERE (テーブルB.[キャンセル日]) Between #" & [Forms]![日付入力フォーム]![日付1] & "# And #" & [Forms]![日付入力フォーム]![日付2] + 1 & "#"
sql = sql & " テーブルB.キャンセル区分=1"
Set rs = CurrentDb.OpenRecordset(sql, dbOpenDynaset)

    If rs.BOF = False Then
        sql = "INSERT INTO キャンセル ( キャンセル日, 受注№, 受注明細№ )"
        sql = sql & "SELECT テーブルB.[キャンセル日], テーブルB.受注№, テーブルB.受注明細№"
        sql = sql & " WHERE ((テーブルB.[キャンセル変更日]) Between #" & [Forms]![日付入力フォーム]![日付1] & "# And #" & [Forms]![日付入力フォーム]![日付2] + 1 & "#"
        sql = sql & " AND ((テーブルB.[キャンセル区分])=1))"
        DoCmd.RunSQL sql
    Else
        sql2 = "SELECT テーブルA.*"
        sql2 = sql2 & " FROM テーブルA"
        sql2 = sql2 & " WHERE (テーブルA.変更日) Between #" & [Forms]![日付入力フォーム]![日付1] & "# And #" & [Forms]![日付入力フォーム]![日付2] + 1 & "#"
        Set rs2 = CurrentDb.OpenRecordset(sql2, dbOpenDynaset)
    
    If rs2.BOF = False Then
        sql2 = "INSERT INTO 変更 ( 変更日, 受注№, 受注明細№ )"
        sql2 = sql2 & " SELECT テーブルA.変更日, テーブルA.受注№, テーブルA.受注明細№"
        sql2 = sql2 & " WHERE (テーブルA.変更日) Between #" & [Forms]![日付入力フォーム]![日付1] & "# And #" & [Forms]![日付入力フォーム]![日付2] + 1 & "#"
        DoCmd.RunSQL sql2
    End If
End If

試したこと

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

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

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

Orlofsky

2019/12/09 09:51

コードは https://teratail.com/help/question-tips#questionTips3-7 の [コード] に修正してください。

行動規範の内容に同意します

回答1件

ベストアンサー

こういう事ですかね。

VBA
1If IsNull(日付1) = True Then
2    MsgBox "日付を入力して下さい"
3ElseIf IsNull(日付2) = True Then
4    MsgBox "日付を入力して下さい"
5Else
6    sql = "INSERT INTO キャンセル ( キャンセル日, 受注№, 受注明細№ )"
7    sql = sql & " SELECT B.[キャンセル日], B.受注№, B.受注明細№"
8    sql = sql & " FROM テーブルB AS B"
9    sql = sql & " WHERE ((B.[キャンセル変更日]) Between #" _
10              & [Forms]![日付入力フォーム]![日付1] & "# And #" _
11              & [Forms]![日付入力フォーム]![日付2] + 1 & "#"
12    sql = sql & " AND ((B.[キャンセル区分]) = 1));"
13    DoCmd.RunSQL sql
14    sql2 = "INSERT INTO 変更 ( 変更日, 受注№, 受注明細№ )"
15    sql2 = sql2 & " SELECT A.変更日, A.受注№, A.受注明細№"
16    sql2 = sql2 & " FROM テーブルA AS A INNER JOIN テーブルB AS B" _
17                & " ON A.受注№ = B.受注№ AND A.受注明細№ = B.受注明細№"
18    sql2 = sql2 & " WHERE ((A.変更日) Between #" _
19                & [Forms]![日付入力フォーム]![日付1] & "# And #" _
20                & [Forms]![日付入力フォーム]![日付2] + 1 & "#"
21    sql2 = sql2 & " AND ((B.[キャンセル区分]) = 0));"
22    DoCmd.RunSQL sql2
23End If