Accessマクロで作る 受注管理「分納伝票印刷」フォームの作り方

サブマクロ：受注分納印刷
フォームを開く（F20受注分納印刷, フォーム ビュー, , , , 標準）
マクロの中止
サブマクロの最後

サブマクロ：分納表示
値の代入
　アイテム　=　[Forms]![F20受注分納印刷]![取引先コード]
　式　　　　=　DLookUp("取引先コード","T20受注M","手配番号=[Forms]![F20受注分納印刷]![手配番号]")
値の代入　([Forms]![F20受注分納印刷]![図番], DLookUp("図番","T20受注M","手配番号=[Forms]![F20受注分納印刷]![手配番号]"))
値の代入　([Forms]![F20受注分納印刷]![図番ID], DLookUp("図番ID","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("略称","T05取引先M","取引先コード=[Forms]![F20受注分納印刷]![取引先コード]"))
マクロの中止
サブマクロの最後

サブマクロ：分納ＯＫ
If IsNull([手配番号]) Then
　メッセージボックス（手配番号を入力して下さい。, はい, 警告, エラー）
　コントロールの移動（手配番号）
　マクロの中止
If 文の最後
If DCount("手配番号","T20受注M","手配番号=Forms![F20受注分納印刷]![手配番号]")=0 Or IsNull(DCount("手配番号","T20受注M","手配番号=Forms![F20受注分納印刷]![手配番号]")) Then
　メッセージボックス（手配番号は存在しません。, はい, 警告, エラー）
　コントロールの移動（手配番号）
　マクロの中止
If 文の最後
If IsNull([分納数量]) Then
　メッセージボックス（分納数量を入力して下さい。, はい, 警告, エラー）
　コントロールの移動（分納数量）
　マクロの中止
If 文の最後
If [Forms]![F20受注分納印刷]![分納残数]<[Forms]![F20受注分納印刷]![分納数量] Then
　メッセージボックス（分納残数をオーバーしています。, はい, 警告, エラー）
　コントロールの移動（分納数量）
　マクロの中止
If 文の最後
If IsNull([発行枚数]) Then
　メッセージボックス（発行枚数を入力して下さい。, はい, 警告, エラー）
　コントロールの移動（発行枚数）
　マクロの中止
If 文の最後
If IsNull([従業員コード]) Then
　メッセージボックス（発行者を入力して下さい。, はい, 警告, エラー）
　コントロールの移動（従業員コード）
　マクロの中止
If 文の最後
警告音
If MsgBox("登録してよろしいですか？",33,"確認")=1 Then
　マクロの実行
　　マクロ名　　　M20受注.分納更新
　　実行回数　　　=[Forms]![F20受注分納印刷]![発行枚数]
　　繰り返し条件式
Else
　メッセージボックス（処理を中止します, はい, なし, 中止）
　マクロの中止
If 文の最後
マクロの実行
　マクロ名　　　M20受注.分納更新1
　実行回数
　繰り返し条件式
コントロールの移動（手配番号）
マクロの中止
サブマクロの最後

サブマクロ：分納更新
メッセージの設定（いいえ）
クエリを開く（Q20受注分納印刷追加, データシート, 編集）
サブマクロの最後

サブマクロ：分納更新1
If MsgBox("印刷する分納伝票は、登録されました。") Then
If 文の最後
コントロールの移動（手配番号）
マクロの実行　(M20受注.分納キャンセル,,)
再クエリ　()
マクロの中止
サブマクロの最後

サブマクロ：分納キャンセル
値の代入
　アイテム　=　[取引先コード]
　式　　　　=　Null
値の代入　([図番], Null)
値の代入　([図番ID], Null)
値の代入　([納期], Null)
値の代入　([数量], Null)
値の代入　([受注日], Null)
値の代入　([単価], Null)
値の代入　([分納残数], Null)
値の代入　([分納回数], Null)
値の代入　([略称], Null)
値の代入　([手配番号], Null)
値の代入　([分納数量], Null)
値の代入　([従業員コード], Null)
値の代入　([発行枚数], Null)
値の代入　([備考], Null)
コントロールの移動（手配番号）
再クエリ　()
マクロの中止
サブマクロの最後

サブマクロ：分納印刷
警告音
If MsgBox("分納伝票をプレビューで確認してから印刷してください。よろしいですか？",4+32)=6 Then
　レポートを開く（R20受注分納印刷, 印刷プレビュー, , , 標準）
　ウィンドウを閉じる（フォーム, F20受注分納印刷, 確認）
Else
　メッセージボックス（処理を中止します, はい, なし, 中止）
　マクロの中止
If 文の最後
警告音
If MsgBox("分納伝票の印刷をしてよろしいですか？",4+32)=6 Then
　レポートを開く（R20受注分納印刷, 印刷, , , 標準）
　メッセージの設定（いいえ）
　クエリを開く（Q20受注分納印刷削除, データシート, 編集）
　メッセージボックス（分納伝票の印刷が完了しました。, はい, なし, 完了）
　ウィンドウを閉じる（, , 確認）
　フォームを開く（F20受注分納印刷, フォーム ビュー, , , , 標準）
　マクロの中止
Else
　メッセージボックス（処理を中止します, はい, なし, 中止）
　ウィンドウを閉じる（, , 確認）
　フォームを開く（F20受注分納印刷, フォーム ビュー, , , , 標準）
　マクロの中止
If 文の最後
サブマクロの最後