Accessマクロで作る 受注管理「新規登録」フォームの作り方

プロシージャの実行
プロシージャ名　[取引先コード].dropdown

マクロの中止

サブマクロ：受注履歴適用

値の代入（[Forms]![F20受注新規]![図番], [Forms]![F20受注新規]![F20受注新規受注履歴サブ]![図番]）
値の代入（[Forms]![F20受注新規]![材料受注a], [Forms]![F20受注新規]![F20受注新規受注履歴サブ]![図番]）
値の代入（[Forms]![F20受注新規]![単価], [Forms]![F20受注新規]![F20受注新規受注履歴サブ]![単価]）
値の代入（[Forms]![F20受注新規]![手配番号], [Forms]![F20受注新規]![採番]）
値の代入（[Forms]![F20受注新規]![備考], DLookUp("備考","T10製品M","[図番ID]=[Forms]![F20受注新規]![図番ID]")）
値の代入（[Forms]![F20受注新規]![成形課], DLookUp("成形課","T10製品M","[図番ID]=[Forms]![F20受注新規]![図番ID]")）
値の代入（[Forms]![F20受注新規]![加工課], DLookUp("加工課","T10製品M","[図番ID]=[Forms]![F20受注新規]![図番ID]")）
値の代入（[Forms]![F20受注新規]![印刷課], DLookUp("印刷課","T10製品M","[図番ID]=[Forms]![F20受注新規]![図番ID]")）
値の代入（[Forms]![F20受注新規]![成形フォーキャスト], DLookUp("成形フォーキャスト","T10製品M","[図番ID]=[Forms]![F20受注新規]![図番ID]")）
値の代入（[Forms]![F20受注新規]![加工フォーキャスト], DLookUp("加工フォーキャスト","T10製品M","[図番ID]=[Forms]![F20受注新規]![図番ID]")）
値の代入（[Forms]![F20受注新規]![現品票区分], DLookUp("現品票区分","T10製品M","[図番ID]=[Forms]![F20受注新規]![図番ID]")）
値の代入（[Forms]![F20受注新規]![納期設定], DLookUp("納期設定","T10製品M","[図番ID]=[Forms]![F20受注新規]![図番ID]")）

If [受注区分]=4 Then
    値の代入（[Forms]![F20受注新規]![手配番号], "SS" & [Forms]![F20受注新規]![採番]）
If 文の最後
コントロールの移動（閉じる）
コントロールの移動（納期）

If DCount("*","Q20受注ロット単価参照")=0 Then
    コントロールの移動（納期）
    再クエリ（）
    マクロの中止
Else
    フォームを開く（F20受注ロット単価参照, フォーム ビュー, , , , 標準）
    値の代入（[Forms]![F20受注ロット単価参照]![図番], [Forms]![F20受注新規]![図番]）
    マクロの中止
If 文の最後
コントロールの移動（閉じる）
コントロールの移動（納期）
再クエリ（）
マクロの中止
サブマクロの最後

サブマクロ：訂正開く

フォームを開く（F20受注新規訂正, フォーム ビュー, , , , 標準）

値の代入
  アイテム　=　[Forms]![F20受注新規訂正]![手配番号]
  式　　　　=　[Forms]![F20受注新規訂正]![F20受注新規サブ]![手配番号]

値の代入
  アイテム　=　[Forms]![F20受注新規訂正]![受注区分]
  式　　　　=　DLookUp("受注区分","T20受注M","手配番号=[Forms]![F20受注新規訂正]![手配番号]")

値の代入
  アイテム　=　[Forms]![F20受注新規訂正]![受注日]
  式　　　　=　DLookUp("受注日","T20受注M","手配番号=[Forms]![F20受注新規訂正]![手配番号]")

値の代入
  アイテム　=　[Forms]![F20受注新規訂正]![図番]
  式　　　　=　DLookUp("図番","T20受注M","手配番号=[Forms]![F20受注新規訂正]![手配番号]")

値の代入
  アイテム　=　[Forms]![F20受注新規訂正]![取引先コード]
  式　　　　=　DLookUp("取引先コード","T20受注M","手配番号=[Forms]![F20受注新規訂正]![手配番号]")

値の代入
  アイテム　=　[Forms]![F20受注新規訂正]![単価]
  式　　　　=　DLookUp("単価","T20受注M","手配番号=[Forms]![F20受注新規訂正]![手配番号]")

値の代入
  アイテム　=　[Forms]![F20受注新規訂正]![納期]
  式　　　　=　DLookUp("納期","T20受注M","手配番号=[Forms]![F20受注新規訂正]![手配番号]")

値の代入
  アイテム　=　[Forms]![F20受注新規訂正]![数量]
  式　　　　=　DLookUp("数量","T20受注M","手配番号=[Forms]![F20受注新規訂正]![手配番号]")

値の代入
  アイテム　=　[Forms]![F20受注新規訂正]![備考]
  式　　　　=　DLookUp("備考","T20受注M","手配番号=[Forms]![F20受注新規訂正]![手配番号]")

値の代入
  アイテム　=　[Forms]![F20受注新規訂正]![発注者]
  式　　　　=　DLookUp("従業員コード","T20受注M","手配番号=[Forms]![F20受注新規訂正]![手配番号]")

値の代入
  アイテム　=　[Forms]![F20受注新規訂正]![分納残数]
  式　　　　=　DLookUp("分納残数","T20受注M","手配番号=[Forms]![F20受注新規訂正]![手配番号]")

値の代入
  アイテム　=　[Forms]![F20受注新規訂正]![分納回数]
  式　　　　=　DLookUp("分納回数","T20受注M","手配番号=[Forms]![F20受注新規訂正]![手配番号]")

値の代入
  アイテム　=　[Forms]![F20受注新規訂正]![成形課]
  式　　　　=　DLookUp("成形課","T20受注M","手配番号=[Forms]![F20受注新規訂正]![手配番号]")

値の代入
  アイテム　=　[Forms]![F20受注新規訂正]![加工課]
  式　　　　=　DLookUp("加工課","T20受注M","手配番号=[Forms]![F20受注新規訂正]![手配番号]")

値の代入
  アイテム　=　[Forms]![F20受注新規訂正]![印刷課]
  式　　　　=　DLookUp("印刷課","T20受注M","手配番号=[Forms]![F20受注新規訂正]![手配番号]")

値の代入
  アイテム　=　[Forms]![F20受注新規訂正]![成形フォーキャスト]
  式　　　　=　DLookUp("成形フォーキャスト","T20受注M","手配番号=[Forms]![F20受注新規訂正]![手配番号]")

値の代入
  アイテム　=　[Forms]![F20受注新規訂正]![加工フォーキャスト]
  式　　　　=　DLookUp("加工フォーキャスト","T20受注M","手配番号=[Forms]![F20受注新規訂正]![手配番号]")

値の代入
  アイテム　=　[Forms]![F20受注新規訂正]![現品票区分]
  式　　　　=　DLookUp("現品票区分","T20受注M","手配番号=[Forms]![F20受注新規訂正]![手配番号]")

マクロの中止

サブマクロの最後

サブマクロ：訂正数量

値の代入
  アイテム　=　[分納残数]
  式　　　　=　[数量]

マクロの中止

サブマクロの最後

サブマクロ：訂正更新

警告音

If MsgBox("訂正してよろしいですか？",4+32,"確認")=6 Then
  メッセージの設定（いいえ）
  クエリを開く（Q20受注新規訂正更新, データシート, 編集）
  メッセージボックス（訂正しました, はい, なし, 訂正済）
  ウィンドウを閉じる（フォーム, F20受注新規訂正, 確認）
  再クエリ（）
  マクロの中止
Else
  メッセージボックス（処理を中止します, はい, なし, 中止）
  マクロの中止
If 文の最後
サブマクロの最後

サブマクロ：訂正削除
警告音
If MsgBox("表示されたデータを削除します。よろしいですか？",4+32,"確認")=6 Then
  メッセージの設定（いいえ）
  クエリを開く（Q20受注新規訂正削除, データシート, 編集）
  ウィンドウを閉じる（, , 確認）
  コントロールの移動（閉じる）
  再クエリ（）
  マクロの中止
Else
  メッセージボックス（処理を中止します, はい, なし, 中止）
  マクロの中止
If 文の最後
サブマクロの最後

If [受注区分]=2 Then
　値の代入　([Forms]![F20受注新規]![図番].[Visible], True)
　値の代入　([Forms]![F20受注新規]![製品マスタ].[Visible], False)
　値の代入　([Forms]![F20受注新規]![材料受注a].[Visible], False)
　値の代入　([Forms]![F20受注新規]![有償価格].[Visible], False)
　値の代入　([Forms]![F20受注新規]![シート類選択].[Visible], False)
　値の代入　([図番], "T*")
　値の代入　([Forms]![F20受注新規]![手配番号], [Forms]![F20受注新規]![採番])
　値の代入　([Forms]![F20受注新規]![単価], Null)
　コントロールの移動　(取引先コード)
Else
　値の代入　([図番], Null)
If 文の最後

サブマクロ：取引先図番
プロシージャの実行
　プロシージャ名　　[図番].Dropdown
If [受注区分]=2 Then
　値の代入
　　アイテム　=　[図番].[SelStart]
　　式　　　　=　Len([図番])
　マクロの中止
If 文の最後
サブマクロの最後

警告音
If MsgBox("受注を登録してよろしいですか？",4+32,"確認")=6 Then
　メッセージの設定（いいえ）
　クエリを開く（Q20受注新規追加, データシート, 編集）
　クエリを開く（Q20受注新規自動手番追加, データシート, 編集）
　メッセージボックス（新規受注登録しました, はい, なし, 登録済）
　マクロの実行　(M20受注.キャンセル,,)
　マクロの実行　(M20受注.登録区分2,,)
　コントロールの移動（取引先コード）
　再クエリ　()
　マクロの中止
Else
　メッセージボックス（処理を中止します, はい, なし, 中止）
　マクロの中止
If 文の最後

サブマクロ：登録区分2
If [受注区分]=2 Then
　値の代入　([Forms]![F20受注新規]![図番].[Visible], True)
　値の代入　([Forms]![F20受注新規]![製品マスタ].[Visible], False)
　値の代入　([Forms]![F20受注新規]![材料受注a].[Visible], False)
　値の代入　([Forms]![F20受注新規]![有償価格].[Visible], False)
　値の代入　([Forms]![F20受注新規]![シート類選択].[Visible], False)
　値の代入　([図番], "T*")
　値の代入　([Forms]![F20受注新規]![手配番号], [Forms]![F20受注新規]![採番])
　値の代入　([Forms]![F20受注新規]![単価], Null)
　コントロールの移動
　　コントロール名　　取引先コード
If 文の最後
サブマクロの最後

サブマクロ：材料受注

値の代入
    アイテム = [Forms]![F20受注新規]![単価]
    式 = DLookup("単価","T36仕入先有償価格","[ID]=[Forms]![F20受注新規]![ID] ")

値の代入
    アイテム = [図番]
    式 = [材料受注a]

マクロの中止
サブマクロの最後

サブマクロ：材料有償適用開く
フォームを開く（F36仕入先有償価格, フォーム ビュー, , , , 標準）
値の代入
　アイテム　=　[Forms]![F36仕入先有償価格]![新規登録].[Visible]
　式　　　　=　False
値の代入
　アイテム　=　[Forms]![F36仕入先有償価格]![F36仕入先有償価格サブ]![適用].[Visible]
　式　　　　=　True
マクロの中止
サブマクロの最後

サブマクロ：材料有償適用

値の代入
    アイテム = [Forms]![F20受注新規]![材料受注a]
    式 = [Forms]![F36仕入先有償価格]![F36仕入先有償価格サブ]![品名]

値の代入
    アイテム = [Forms]![F20受注新規]![図番]
    式 = [Forms]![F36仕入先有償価格]![F36仕入先有償価格サブ]![品名]

値の代入
    アイテム = [Forms]![F20受注新規]![単価]
    式 = [Forms]![F36仕入先有償価格]![F36仕入先有償価格サブ]![単価]

ウィンドウを閉じる
    オブジェクトの種類　フォーム
    オブジェクト名　F36仕入先有償価格
    オブジェクトの保存　確認

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

サブマクロ：シート類選択

フォームを開く（F20受注シート類選択, フォーム ビュー, , , , 標準）
値の代入
    アイテム = [Forms]![F20受注シート類選択]![F20受注シート類選択サブ]![選択]
    式 = 1
マクロの中止
サブマクロの最後

サブマクロ：取引先検索

フォームを開く（F20受注新規取引先検索, フォーム ビュー, , , , 標準）
マクロの中止
サブマクロの最後

サブマクロ：取引先適用

値の代入
    アイテム = [Forms]![F20受注新規]![取引先コード]
    式 = [Forms]![F20受注新規取引先検索]![F20受注新規取引先検索サブ]![取引先コード]

ウィンドウを閉じる（フォーム, F20受注新規取引先検索, 確認）

If [Forms]![F20受注新規]![受注区分]=2 Then
    値の代入（[Forms]![F20受注新規]![図番], "T*"）
If 文の最後
コントロールの移動（取引先コード）
再クエリ（）
マクロの中止
サブマクロの最後

サブマクロ：製品マスタ

If IsNull([図番]) Then
    メッセージボックス（図番が選択されていません。図番を入力してからボタンを押してください, はい, 警告, 未登録）
    コントロールの移動（図番）
    マクロの中止
Else
    フォームを開く（F10製品リスト, フォーム ビュー, , , , 標準）
    値の代入
        アイテム = [Forms]![F10製品リスト]![図番検索]
        式 = [Forms]![F20受注新規]![図番]
    再クエリ
        コントロール名
    マクロの中止
If 文の最後
サブマクロの最後

サブマクロ：備考履歴

If DCount("*","Q20受注備考履歴")=0 Then
    メッセージボックス（備考の登録履歴はありません, はい, なし, 履歴なし）
    マクロの中止
Else
    フォームを開く（F20受注備考履歴, フォーム ビュー, , , , 標準）
    マクロの中止
If 文の最後
サブマクロの最後

サブマクロ：備考適用

If IsNull([Forms]![F20受注新規]![備考]) Then
    値の代入
        アイテム = [Forms]![F20受注新規]![備考]
        式 = [Forms]![F20受注備考履歴]![備考]
    ウィンドウを閉じる（フォーム, F20受注備考履歴, 確認）
    コントロールの移動（備考）
    マクロの中止
Else
    値の代入
        アイテム = [Forms]![F20受注新規]![備考]
        式 = [Forms]![F20受注新規]![備考] & " " & [Forms]![F20受注備考履歴]![備考]
    ウィンドウを閉じる（フォーム, F20受注備考履歴, 確認）
    コントロールの移動（備考）
    マクロの中止
If 文の最後
サブマクロの最後

サブマクロ：受注登録

If IsNull([受注日]) Then
    メッセージボックス（受注日が登録されていません, はい, 警告, 未登録）
    コントロールの移動（受注日）
    マクロの中止
If 文の最後

If IsNull([発注者コード]) Then
    メッセージボックス（発注者が登録されていません, はい, 警告, 未登録）
    コントロールの移動（発注者コード）
    マクロの中止
If 文の最後

If IsNull([取引先コード]) Then
    メッセージボックス（取引先名が登録されていません, はい, 警告, 未登録）
    コントロールの移動（取引先コード）
    マクロの中止
If 文の最後

If [受注区分]=3 Then
    If IsNull([材料受注a]) Then
        メッセージボックス（材料受注が登録されていません, はい, 警告, 未登録）
        コントロールの移動（材料受注a）
        マクロの中止
    If 文の最後
If 文の最後

If IsNull([図番]) Then
    メッセージボックス（図番が登録されていません, はい, 警告, 未登録）
    コントロールの移動（図番）
    マクロの中止
If 文の最後

If [受注区分]=1 Then
    If DCount("[図番]","T10製品M","[図番] = [Forms]![F20受注新規]![図番] ")=0 Or IsNull(DCount("[図番]","T10製品M","[図番] = [Forms]![F20受注新規]![図番] ")) Then
        メッセージボックス（図番が製品マスタに存在しません, はい, 警告, エラー）
        コントロールの移動（図番）
        マクロの中止
    If 文の最後
If 文の最後

If IsNull([手配番号]) Then
    メッセージボックス（手配番号が登録されていません, はい, 警告, 未登録）
    コントロールの移動（手配番号）
    マクロの中止
If 文の最後

If IsNull([納期]) Then
    メッセージボックス（納期が登録されていません, はい, 警告, 未登録）
    コントロールの移動（納期）
    マクロの中止
If 文の最後

If IsNull([数量]) Then
    メッセージボックス（数量が登録されていません, はい, 警告, 未登録）
    コントロールの移動（数量）
    マクロの中止
If 文の最後

If IsNull([単価]) Then
    メッセージボックス（単価が登録されていません, はい, 警告, 未登録）
    コントロールの移動（納入先）
    マクロの中止
If 文の最後

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

If IsNull([備考]) Then
    値の代入（[備考], " "）
If 文の最後

警告音
If MsgBox("受注を登録してよろしいですか？",4+32,"確認")=6 Then
    メッセージの設定（いいえ）
    クエリを開く（Q20受注新規追加, データシート, 編集）
    クエリを開く（Q20受注新規自動手番追加, データシート, 編集）
    メッセージボックス（新規受注登録しました, はい, なし, 登録済）
    マクロの実行（M20受注.キャンセル, , ）
    コントロールの移動（取引先コード）
    再クエリ（）
    マクロの中止
Else
    メッセージボックス（処理を中止します, はい, なし, 中止）
    マクロの中止
If 文の最後
サブマクロの最後

サブマクロ：キャンセル

値の代入（[Forms]![F20受注新規]![取引先コード], Null）
値の代入（[Forms]![F20受注新規]![図番], Null）
値の代入（[Forms]![F20受注新規]![材料受注a], Null）
値の代入（[Forms]![F20受注新規]![手配番号], Null）
値の代入（[Forms]![F20受注新規]![納期], Null）
値の代入（[Forms]![F20受注新規]![数量], Null）
値の代入（[Forms]![F20受注新規]![単価], Null）
値の代入（[Forms]![F20受注新規]![備考], Null）
値の代入（[Forms]![F20受注新規]![製品マスタ備考], Null）
値の代入（[Forms]![F20受注新規]![成形課], False）
値の代入（[Forms]![F20受注新規]![加工課], False）
値の代入（[Forms]![F20受注新規]![印刷課], False）
値の代入（[Forms]![F20受注新規]![成形フォーキャスト], False）
値の代入（[Forms]![F20受注新規]![加工フォーキャスト], False）
値の代入（[Forms]![F20受注新規]![現品票区分], Null）
値の代入（[Forms]![F20受注新規]![納期設定], 0）
値の代入（[Forms]![F20受注新規]![有償価格].Visible, False）
再クエリ（）
マクロの中止
サブマクロの最後

サブマクロ：材料注文書印刷

If DCount("*","Q20受注新規サブ")=0 Then
    メッセージボックス（印刷するデータがありません, はい, 警告, データなし）
    マクロの中止
If 文の最後

警告音
If MsgBox("注文書をプレビューで確認してから印刷してください。よろしいですか？",4+32,"確認")=6 Then
    レポートを開く（R20受注材料手配書印刷, 印刷プレビュー, , , 標準）
    If MsgBox("専用用紙をセットしてください。注文書を印刷します。よろしいですか？",4+32,"確認")=6 Then
        レポートを開く（R20受注材料手配書印刷, 印刷, , , 標準）
        メッセージボックス（注文書の印刷が完了しました。, はい, なし, 印刷完了）
        ウィンドウを閉じる（レポート, R20受注材料手配書印刷, 確認）
        マクロの中止
    Else
        メッセージボックス（印刷を中止しました, はい, なし, 中止）
        ウィンドウを閉じる（レポート, R20受注材料手配書印刷, 確認）
        マクロの中止
    If 文の最後
Else
    メッセージボックス（処理を中止しました, はい, なし, 中止）
    マクロの中止
If 文の最後
サブマクロの最後

サブマクロ：製造依頼書印刷

If DCount("*","Q20受注新規サブ")=0 Then
    メッセージボックス（印刷するデータがありません, はい, 警告, データなし）
    マクロの中止
If 文の最後

警告音
If MsgBox("製造依頼書をプレビューで確認してから印刷してください。よろしいですか？",4+32,"確認")=6 Then
    レポートを開く（R20受注製造依頼書印刷, 印刷プレビュー, , , 標準）
    If MsgBox("専用用紙をセットしてください。製造依頼書を印刷します。よろしいですか？",4+32,"確認")=6 Then
        レポートを開く（R20受注製造依頼書印刷, 印刷, , , 標準）
        メッセージボックス（製造依頼書の印刷が完了しました。, はい, なし, 印刷完了）
        ウィンドウを閉じる（レポート, R20受注製造依頼書印刷, 確認）
        マクロの中止
    Else
        メッセージボックス（印刷を中止しました, はい, なし, 中止）
        ウィンドウを閉じる（レポート, R20受注製造依頼書印刷, 確認）
        マクロの中止
    If 文の最後
Else
    メッセージボックス（処理を中止しました, はい, なし, 中止）
    マクロの中止
If 文の最後
サブマクロの最後

サブマクロ：受注日報印刷

If DCount("*","Q20受注新規サブ")=0 Then
    メッセージボックス（印刷するデータがありません, はい, 警告, データなし）
    マクロの中止
If 文の最後

警告音
If MsgBox("受注日報をプレビューで確認してから印刷してください。よろしいですか？",4+32,"確認")=6 Then
    レポートを開く（R20受注受注日報印刷, 印刷プレビュー, , , 標準）
    If MsgBox("受注日報を印刷します。よろしいですか？",4+32,"確認")=6 Then
        レポートを開く（R20受注受注日報印刷, 印刷, , , 標準）
        メッセージボックス（受注日報の印刷が完了しました。, はい, なし, 印刷完了）
        ウィンドウを閉じる（レポート, R20受注受注日報印刷, 確認）
        マクロの中止
    Else
        メッセージボックス（印刷を中止しました, はい, なし, 中止）
        ウィンドウを閉じる（レポート, R20受注受注日報印刷, 確認）
        マクロの中止
    If 文の最後
Else
    メッセージボックス（処理を中止しました, はい, なし, 中止）
    マクロの中止
If 文の最後
サブマクロの最後

サブマクロ：日次更新

警告音
If MsgBox("受注の日次更新を行います。「製造依頼書」と「受注日報」を発行してから作業してください。",4+32,"確認")=6 Then
    メッセージの設定（いいえ）
    クエリを開く（Q20受注日次出荷状況更新, データシート, 編集）
    クエリを開く（Q20受注日次成形課仕入先発注M追加, データシート, 編集）
    クエリを開く（Q20受注日次加工課仕入先発注M追加, データシート, 編集）
    クエリを開く（Q20受注日次印刷課仕入先発注M追加, データシート, 編集）
    クエリを開く（Q20受注日次仕入先発注M追加後更新, データシート, 編集）
    クエリを開く（Q20受注日次仕入先発注M手配成形更新, データシート, 編集）
    クエリを開く（Q20受注日次仕入先発注M手配加工更新, データシート, 編集）
    クエリを開く（Q20受注日次日報発行後更新, データシート, 編集）
    メッセージボックス（受注の日次更新は完了しました。, はい, なし, 完了）
    再クエリ（）
    マクロの中止
Else
    メッセージボックス（処理を中止します, はい, なし, 中止）
    マクロの中止
If 文の最後
マクロの中止
サブマクロの最後