Accessマクロで作る 受注管理「複数登録」(一括登録)フォームの作り方｜

サブマクロ：登録区分

If DCount("[手配番号]","T20受注M","[手配番号] = Forms![F20受注新規]![手配番号] ")<>0 And DCount("[手配番号]","T20受注M","[手配番号] = Forms![F20受注新規]![手配番号] ") Is Not Null Then
    メッセージボックス（登録しようとしたデータの手配番号は既に登録されています。手配番号を取り直してください。, はい, 警告, 重複）
    コントロールの移動（手配番号）
    マクロの中止
If 文の最後

If [受注区分]<>1 Then
    メッセージボックス（複製機能は マスタあり のみで対応可能です。, はい, 警告, 対応不可）
Else
    If IsNull([Forms]![F20受注新規]![取引先コード]) Then
        メッセージボックス（元になる新規受注データをこのフォームに入力してから複数登録が可能になります。取引先を入力してください。, はい, 警告, エラー）
        コントロールの移動（取引先コード）
        マクロの中止
    If 文の最後

    If IsNull([図番]) Then
        メッセージボックス（元になる新規受注データをこのフォームに入力してから複数登録が可能になります。図番を入力してください。, はい, 警告, エラー）
        コントロールの移動（図番）
        マクロの中止
    If 文の最後

    マクロの実行（M20受注複製.複製, , ）
    マクロの中止
If 文の最後
サブマクロの最後

サブマクロ：複製

If IsNull([受注日]) Then
    メッセージボックス（元になる新規受注データをこのフォームに入力してから複数登録が可能になります。受注日を入力してください。, はい, 警告, エラー）
    コントロールの移動（受注日）
    マクロの中止
If 文の最後

If IsNull([手配番号]) Then
    メッセージボックス（元になる新規受注データをこのフォームに入力してから複数登録が可能になります。手配番号を入力してください。, はい, 警告, エラー）
    コントロールの移動（手配番号）
    マクロの中止
If 文の最後

If IsNull([納期]) Then
    メッセージボックス（元になる新規受注データをこのフォームに入力してから複数登録が可能になります。納期を入力してください。, はい, 警告, エラー）
    コントロールの移動（納期）
    マクロの中止
If 文の最後

If IsNull([数量]) Then
    メッセージボックス（元になる新規受注データをこのフォームに入力してから複数登録が可能になります。数量を入力してください。, はい, 警告, エラー）
    コントロールの移動（数量）
    マクロの中止
If 文の最後

If IsNull([単価]) Then
    メッセージボックス（元になる新規受注データをこのフォームに入力してから複数登録が可能になります。単価を入力してください。, はい, 警告, エラー）
    コントロールの移動（単価）
    マクロの中止
If 文の最後

If IsNull([発注者コード]) Then
    メッセージボックス（元になる新規受注データをこのフォームに入力してから複数登録が可能になります。発注者を入力してください。, はい, 警告, エラー）
    コントロールの移動（発注者コード）
    マクロの中止
If 文の最後

フォームを開く（F20受注登録複製, フォーム ビュー, , , , 標準）
メッセージの設定（いいえ）
クエリを開く（Q20受注新規自動手番追加, データシート, 編集）
値の代入（[Forms]![F20受注登録複製]![受注区分], [Forms]![F20受注新規]![受注区分]）
値の代入（[Forms]![F20受注登録複製]![手配番号], [Forms]![F20受注新規]![手配番号]）
値の代入（[Forms]![F20受注登録複製]![取引先コード], DLookUp("取引先コード","T05取引先M","[取引先コード]=[Forms]![F20受注新規]![取引先コード]")）
値の代入（[Forms]![F20受注登録複製]![図番], [Forms]![F20受注新規]![図番]）
値の代入（[Forms]![F20受注登録複製]![図番ID], [Forms]![F20受注新規]![図番ID]）
値の代入（[Forms]![F20受注登録複製]![単価], [Forms]![F20受注新規]![単価]）
値の代入（[Forms]![F20受注登録複製]![受注日], [Forms]![F20受注新規]![受注日]）
値の代入（[Forms]![F20受注登録複製]![成形課], [Forms]![F20受注新規]![成形課]）
値の代入（[Forms]![F20受注登録複製]![印刷課], [Forms]![F20受注新規]![印刷課]）
値の代入（[Forms]![F20受注登録複製]![加工課], [Forms]![F20受注新規]![加工課]）
値の代入（[Forms]![F20受注登録複製]![現品票区分], [Forms]![F20受注新規]![現品票区分]）
値の代入（[Forms]![F20受注登録複製]![成形フォーキャスト], [Forms]![F20受注新規]![成形フォーキャスト]）
値の代入（[Forms]![F20受注登録複製]![加工フォーキャスト], [Forms]![F20受注新規]![加工フォーキャスト]）
値の代入（[Forms]![F20受注登録複製]![納期], [Forms]![F20受注新規]![納期]）
値の代入（[Forms]![F20受注登録複製]![数量], [Forms]![F20受注新規]![数量]）
値の代入（[Forms]![F20受注登録複製]![備考], [Forms]![F20受注新規]![備考]）
値の代入（[Forms]![F20受注登録複製]![発注者コード], DLookUp("従業員コード","T01従業員M","[従業員コード]=[Forms]![F20受注新規]![発注者コード]")）
値の代入（[Forms]![F20受注登録複製]![連番], =DCount("*","T20受注自動手番")+1）
値の代入（[Forms]![F20受注登録複製]![納期設定], [Forms]![F20受注新規]![納期設定]）
コントロールの移動（手配番号1）
マクロの中止
サブマクロの最後

サブマクロ：複製3

If [Forms]![F20受注登録複製]![手配番号2] Is Null Then
    メッセージボックス（コピーするデータがありません, はい, 警告, エラー）
    コントロールの移動（手配番号3）
    マクロの中止
Else
    値の代入（[手配番号3], [手配番号2]）
    値の代入（[納期3], [納期2]）
    値の代入（[数量3], [数量2]）
    値の代入（[備考3], [備考2]）
    コントロールの移動（手配番号3）
    マクロの中止
If 文の最後
サブマクロの最後

サブマクロ：クリア1

値の代入（[手配番号1], Null）
値の代入（[納期1], Null）
値の代入（[数量1], Null）
値の代入（[備考1], Null）
コントロールの移動（手配番号1）
マクロの中止
サブマクロの最後

サブマクロ：採番2

値の代入
    アイテム = [Forms]![F20受注登録複製]![手配番号1]
    式 = [Forms]![F20受注登録複製]![採番]

メッセージの設定（いいえ）
クエリを開く（Q20受注複製採番2追加, データシート, 編集）
値の代入
    アイテム = [Forms]![F20受注登録複製]![連番]
    式 = DCount("*","T20受注自動手番")+1

コントロールの移動（納期1）
マクロの中止
サブマクロの最後

サブマクロ：採番3

値の代入（[Forms]![F20受注登録複製]![手配番号2], [Forms]![F20受注登録複製]![採番]）
メッセージの設定（いいえ）
クエリを開く（Q20受注複製採番3追加, データシート, 編集）
値の代入（[Forms]![F20受注登録複製]![連番], DCount("*","T20受注自動手番")+1）
コントロールの移動（納期2）
マクロの中止
サブマクロの最後

サブマクロ：登録

If [手配番号1]=[手配番号] Then
If 文の最後
If [手配番号2]=[手配番号] Then
If 文の最後
If [手配番号2]=[手配番号1] Then
If 文の最後
If [手配番号3]=[手配番号] Then
If 文の最後
If [手配番号3]=[手配番号1] Then
If 文の最後
If [手配番号3]=[手配番号2] Then
If 文の最後
（以下、手配番号4〜9についても同様に、自分より前の行すべてとの組み合わせをIf文でチェック）
If [手配番号9]=[手配番号8] Then
If 文の最後

If [Forms]![F20受注登録複製]![手配番号] Is Null Then
If 文の最後
If [Forms]![F20受注登録複製]![手配番号1] Is Null Then
If 文の最後
（以下、手配番号2〜10についても同様にNull判定）
If [Forms]![F20受注登録複製]![手配番号10] Is Null Then
If 文の最後
サブマクロの最後

If [Forms]![F20受注登録複製]![手配番号10] Is Null Then
    警告音
    If MsgBox("10件のデータを新規登録します。よろしいですか？",4+32,"確認")=6 Then
        メッセージの設定（いいえ）
        クエリを開く（Q20受注登録複製追加, データシート, 編集）
        クエリを開く（Q20受注登録複製追加1, データシート, 編集）
        クエリを開く（Q20受注登録複製追加2, データシート, 編集）
        クエリを開く（Q20受注登録複製追加3, データシート, 編集）
        クエリを開く（Q20受注登録複製追加4, データシート, 編集）
        クエリを開く（Q20受注登録複製追加5, データシート, 編集）
        クエリを開く（Q20受注登録複製追加6, データシート, 編集）
        クエリを開く（Q20受注登録複製追加7, データシート, 編集）
        クエリを開く（Q20受注登録複製追加8, データシート, 編集）
        クエリを開く（Q20受注登録複製追加9, データシート, 編集）
        クエリを開く（Q20受注登録複製自動手番追加, データシート, 編集）
        クエリを開く（Q20受注登録複製自動手番追加1, データシート, 編集）
        クエリを開く（Q20受注登録複製自動手番追加2, データシート, 編集）
        クエリを開く（Q20受注登録複製自動手番追加3, データシート, 編集）
        クエリを開く（Q20受注登録複製自動手番追加4, データシート, 編集）
        クエリを開く（Q20受注登録複製自動手番追加5, データシート, 編集）
        クエリを開く（Q20受注登録複製自動手番追加6, データシート, 編集）
        クエリを開く（Q20受注登録複製自動手番追加7, データシート, 編集）
        クエリを開く（Q20受注登録複製自動手番追加8, データシート, 編集）
        クエリを開く（Q20受注登録複製自動手番追加9, データシート, 編集）
        メッセージボックス（10件のデータを追加しました。, いいえ, なし, 新規データ追加完了）
        値の代入（[閉じる判定], 1）
        マクロの実行（M20受注複製.クリア, , ）
        マクロの実行（M20受注複製.クリア1, , ）
        マクロの実行（M20受注複製.クリア2, , ）
        マクロの実行（M20受注複製.クリア3, , ）
        マクロの実行（M20受注複製.クリア4, , ）
        マクロの実行（M20受注複製.クリア5, , ）
        マクロの実行（M20受注複製.クリア6, , ）
        マクロの実行（M20受注複製.クリア7, , ）
        マクロの実行（M20受注複製.クリア8, , ）
        マクロの実行（M20受注複製.クリア9, , ）
        コントロールの移動（手配番号1）
        マクロの中止
    Else
        メッセージボックス（登録を中止しました, はい, なし, 中止）
        マクロの中止
    If 文の最後
If 文の最後
サブマクロの最後