Accessマクロで作る自動発注数量調整フォームの作り方

自社工場で確定した製造データに対し、金型へ投入する材料量を歩留まりを見込んで自動計算し、オペレーターの裁量で確定させるためのフォームです。確定ボタン・数量変ポップアップ・在庫引当ポップアップという3通りの確定方法を用意し、材料手配後は4種の帳票発行、そして日次更新でロール作業用のT70ロール自動テーブルへとデータを引き継ぎます。

デザインビューで見る自動発注数量調整の構成

「群馬工場自動発注 成形数量調整」という一覧画面で、成形課で確定した内製データを1行1件として表示します。歩留まり95％（仮）で自動計算された数量と、確定・数量変・在引当の3つのボタンが各行に並び、確定済みかどうか・手配待ちかどうかが行色でひと目で分かる構成になっています。

群馬工場自動発注 成形数量調整　フォームビュー

F70ロール数量調整　デザインビュー

一覧に表示される列の構成

数量変・在引当・確定の3操作ボタンを左端に置き、右へ向かって発注情報→歩留まり計算→在庫情報の順に並んでいます。

一覧の列構成

フォームフッターの件数表示

「図番 W」ダブルクリックで製品マスタをショートカット表示する仕組み

一覧の図番ラベルには「W」という印が添えられており、これは図番をダブルクリックすると該当製品の製品マスタへショートカットできることを示すサインです。ダブルクリックイベント自体は図番コントロールに設置されています。図番だけを見てもその製品を作るための詳細情報（材料構成・工程情報など）まで覚えているとは限らないため、製造に必要な情報をすぐ参照できるようにする仕組みです。

実際の動きは、製品マスタリストを開いて図番検索欄に対象図番を転記し、検索済みの状態で表示する2段階の処理になっています。開いた直後に該当製品が絞り込み済みで表示され、そこから詳細ボタンで製品マスタの編集画面までもう1段階進む流れです。

製品マスタリストフォーム解説はこちら＞＞＞

サブマクロ：製品マスタ開く

マクロの概要

マクロの設置場所

非連結・隠しコントロールの構成

行の色分けや確定・手配の状態管理は、画面上には見えない5つのコントロールが裏で支えています。

非連結・隠しコントロールの構成

数量 確定ボタンで転記される仕組み

確定ボタンは、歩留まり95％で自動計算された設定数量を確定数量欄へワンクリックで転記するボタンです。裏側では確定・手配という2つの隠しチェックボックスの状態をIfで判定し、2本の更新クエリを使い分けることでON/OFFの往復を実現しています。手配が済んでいないデータは確定できない仕組みも組み込まれています。

転記を実行する2本の更新クエリ

確定数量欄への転記とクリアは、それぞれ専用の更新クエリが担当します。抽出条件はどちらもサブフォームのIDで対象行を1件に絞り込みます。

Q70ロール数量確定更新・確定否更新の構成

確定ボタンのマクロ（数量確定更新）

確定ボタンをクリックすると実行されるサブマクロです。確定の現在値をIfで判定し、転記・取消のどちらか一方の更新クエリだけを実行します。

サブマクロ：数量確定更新

マクロの概要

マクロの設置場所

デザインビューで見る数量変ポップアップの仕組み

数量変ボタンは、歩留まり95％の自動計算値をそのまま使わず、任意の数量で確定したい場合に使うポップアップです。サブフォームの元データをDLookupでポップアップ側の非連結コントロールへ転記し、設定不良率か直接入力のどちらかで確定数量を決めてから、確定ボタンでサブフォームへ書き戻します。

数量調整・確定　ポップアップフォームビュー

F70ロール数量確定ポップ　デザインビュー

数量調整・確定ポップアップの非連結コントロール構成

数量変ボタンでポップアップを開き元データを転記するマクロ

サブフォームの手配状態を先にチェックし、手配否のデータはポップアップを開かせずにブロックする仕組みです。開いた後は4項目をDLookupで転記します。

サブマクロ：数量確定ポップ

サブマクロのテキスト表示

サブマクロ：数量確定ポップ
If [Forms]![F70ロール数量調整]![F70ロール数量調整サブ]![手配]=False Then
    メッセージボックス（手配否のデータは訂正できません。手配否を解除してから訂正してください。, はい, 警告, 訂正不可）
    マクロの中止
If 文の最後
フォームを開く（F70ロール数量確定ポップ, フォーム ビュー, , , , 標準）
値の代入
    アイテム＝[Forms]![F70ロール数量確定ポップ]![ID]
    式＝[Forms]![F70ロール数量調整]![F70ロール数量調整サブ]![ID]
値の代入
    アイテム＝[Forms]![F70ロール数量確定ポップ]![数量]
    式＝DLookUp("数量","T70ロール数量調整","[ID]=[Forms]![F70ロール数量確定ポップ]![ID]")
値の代入
    アイテム＝[Forms]![F70ロール数量確定ポップ]![設定数量]
    式＝DLookUp("設定数量","T70ロール数量調整","[ID]=[Forms]![F70ロール数量確定ポップ]![ID]")
値の代入
    アイテム＝[Forms]![F70ロール数量確定ポップ]![確定数量]
    式＝DLookUp("確定数量","T70ロール数量調整","[ID]=[Forms]![F70ロール数量確定ポップ]![ID]")
マクロの中止
サブマクロの最後

マクロの概要

マクロの設置場所

ポップアップ内の確定ボタンでサブフォームへ書き戻すマクロ

確定数量が未入力のまま確定させないチェックを挟み、入力済みなら確定フラグをTrueにしてから専用の更新クエリでサブフォーム側へ書き戻します。

◆スクショ　サブマクロ：数量確定

マクロの概要

マクロの設置場所

Q70ロール数量確定ポップ更新の構成

設定不良率コンボの更新後処理で確定数量を自動計算する仕組み

設定不良率を選択すると、更新後処理で確定数量が自動計算されます。歩留まりロスを見込んで、数量に不良率分を上乗せした数字が確定数量欄にセットされる仕組みです。

サブマクロ：数量調整

マクロの概要

マクロの設置場所

在引当ポップアップで在庫を消し込みながら生産数を確定する仕組み

在引当ボタン（在庫引当）は、確定前に在庫を参照しながら生産数量を調整するためのポップアップです。全て引当・一部引当のどちらを選んでも「引当後生産数」「引当後在庫数」が自動計算され、確定＞ボタンで生産数量へ渡した後、在庫引当確定ボタンを押すと在庫テーブルの更新・追加・備考書き込みまでまとめて実行されます。

在庫引当調整　フォームビュー

F70ロール数量調整在庫引当ポップ　デザインビュー

F70ロール数量調整在庫引当ポップの非連結コントロール構成

ポップアップを開き元データ・在庫情報を転記するマクロ

在庫数が0の場合はポップアップを開かせずにブロックします。開いた後は、サブフォーム側の項目に加え、在庫テーブル（T45在庫）から保管場所コード・検査員コードをDLookupで取得します。

サブマクロ：在庫引当

マクロの概要

マクロの設置場所

引当数量の更新後処理で在庫と生産数を自動計算するマクロ

「引当数量」コントロールボックスを入力するたびに実行される更新後処理マクロです。マイナス入力・在庫超過をそれぞれブロックし、正常範囲内であれば引当後生産数・引当後在庫数を差分計算します。

サブマクロ：在庫引当数量更新

マクロの概要

マクロの設置場所

全て引当ボタン・一部引当ボタンのマクロ

全て引当は在庫数をそのまま引当数量に採用するショートカットで、一部引当は引当数量欄へ直接カーソルを移すだけの単純な誘導マクロです。全て引当側は数量と在庫数の大小関係によって処理を分けています。

サブマクロ：在庫全部引当

マクロの概要

マクロの設置場所

サブマクロ：在庫一部引当

マクロの概要

マクロの設置場所

確定＞ボタンで生産数量へ値を渡すマクロ

引当後生産数を設定数量へそのままコピーするだけの、1行だけの橋渡しマクロです。

サブマクロ：在庫設定数量確定

マクロの概要

マクロの設置場所

在庫引当確定ボタンで在庫・生産数量をまとめて確定するマクロ

設定数量が未入力なら確定させず、警告音付きの最終確認メッセージを経てから4本の更新・追加クエリを実行します。設定数量が0の場合のみ、手配否フラグを立てる追加クエリが実行される分岐が組まれています。

サブマクロ：在庫引当確定

サブマクロのテキスト表示

サブマクロ：在庫引当確定
If IsNull([設定数量]) Then
    メッセージボックス（生産数量を確定していません。「確定」ボタンで生産数量を確定してください, はい, 警告, 未確定）
    マクロの中止
Else
    警告音
    If MsgBox("確定すると在庫登録の更新も自動的に行われます。元に戻せませんのがよろしいですか？",4+32)=6 Then
        メッセージの設定（いいえ）
        クエリを開く（Q70ロール数量調整在庫引当ポップ更新, データシート, 編集）
        クエリを開く（Q70在庫追加, データシート, 編集）
        クエリを開く（Q70在庫引当備考更新, データシート, 編集）
　　　　クエリを開く（Q70在庫引当製品マスタ更新, データシート, 編集）
        If [設定数量]=0 Then
            クエリを開く（Q70在庫0手配否更新, データシート, 編集）
        If 文の最後
        メッセージボックス（在庫引当しました, はい, なし, 完了）
        ウィンドウを閉じる（, , 確認）
        再クエリ（）
        マクロの中止
    Else
        メッセージボックス（処理を中止します, はい, なし, 中止）
        マクロの中止
    If 文の最後
If 文の最後
サブマクロの最後

マクロの概要

マクロの設置場所

在庫引当確定で実行される5本のクエリ構成

在庫引当確定ボタンでは、確定数量の書き戻し・在庫データの新規追加・仕入先発注側の備考更新・手配フラグのリセットという4つの処理を、それぞれ専用のクエリに分けて順に実行しています。

①設定数量（生産数）を確定してT70ロール数量調整テーブルを更新するクエリ

Q70ロール数量調整在庫引当ポップ更新　クエリデザインビュー

Q70ロール数量調整在庫引当ポップ更新の構成

②在庫履歴をT45在庫履歴テーブルに追加するクエリ

Q70在庫追加　追加クエリデザインビュー

Q70在庫追加の構成

※追加先対象テーブル：T45在庫履歴

③在庫引当が行われたことを仕入先発注マスタの備考欄に情報を転記するクエリ

Q70在庫引当備考更新　クエリデザインビュー

Q70在庫引当備考更新の構成

④最新の在庫履歴をT10製品Mの在庫関連フィールドに更新するクエリ

Q70在庫引当製品マスタ更新　クエリデザインビュー

Q70在庫引当製品マスタ更新の構成

⑤在庫引当で設定数量（生産数）がゼロになった場合は手配否にする更新クエリ

Q70在庫0手配否更新の構成

地味に便利：設定数量＝0だけを手配否に自動で戻す分岐

在庫引当確定は基本的に「確定して終わり」ですが、設定数量が0（＝在庫を全部引き当てて生産不要になったケース）だけ、わざわざ手配フラグをFalseに戻すクエリをもう1本追加で走らせています。これにより、生産の必要がなくなったデータが確定ボタン・数量変ポップの側で「手配否のデータは確定できません」という前段のガードに引っかかり、誤って再確定されるのを防ぐ形になっています。3つのボタンで張ったガードが、この1行できれいに閉じている構成です。

4種の帳票印刷の構成

自動発注数量調整ページで確定した内製データは、用途に応じて4種の帳票に出力されます。いずれも「プレビュー確認→印刷実行」の2段階確認をMsgBoxで挟む共通構成を取っており、うっかり印刷してしまう事故を防いでいます。

4種の帳票の対象・役割

現品票印刷のレコードソースクエリ（Q70ロール数量現品票印刷）

現品票に必要な製造情報・材料情報・工程情報・検査項目を1本のクエリに集約しています。T70ロール数量調整を起点に、T10製品M→T11製品成形→T13製品品証、およびT10製品M→T05取引先M と結合し、対象は仕入先コード＝2（自社工場）かつ手配・確定がTrueのデータのみに絞り込まれます。

Q70ロール数量現品票印刷　クエリデザインビュー

つづき

つづき

つづき

つづき

Q70ロール数量現品票印刷の使用テーブルと結合関係

Q70ロール数量現品票印刷の主な抽出条件・並べ替え

Q70ロール数量現品票印刷の主な取得フィールド（グループ別）

現品票印刷レポートの構成

現品票（成形課）は、製造情報・材料情報・成形記録・寸法測定記録・工程管理記録・内職記録の6ブロックで構成された、製造箇所に常に付随する記録用紙です。仕入先発注成形課の外製用現品票と様式は同じですが、レポート名は別に管理されています。

R70ロール数量現品票印刷　レポートデザインビュー

現品票（成形課）のブロック構成

現品票印刷ボタンのマクロ

印刷プレビューでの確認と、印刷実行前の最終確認、合計2段階のMsgBoxで確認を取ってから印刷する構成です。

サブマクロ：現品票印刷

サブマクロのテキスト表示

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

マクロの概要

マクロの設置場所

材料裁断カード印刷のレコードソースクエリ（Q70ロール数量材料裁断カード印刷）

材料裁断カードに必要な材料情報を1本のクエリに集約しています。結合構成は現品票印刷と同じくT70ロール数量調整→T10製品M→T11製品成形ですが、対象を金型保管”GG-*”（群馬工場）に絞り込む点が異なります。

Q70ロール数量材料裁断カード印刷　クエリデザインビュー

つづき

つづき

つづき

Q70ロール数量材料裁断カード印刷の使用テーブルと結合関係

Q70ロール数量材料裁断カード印刷の主な抽出条件・並べ替え

Q70ロール数量材料裁断カード印刷の主な取得フィールド（グループ別）

材料裁断カード印刷レポートの構成

材料裁断カードは、材料1〜4それぞれの配合番号・材料名・色調・厚み（分出し）・カット寸法・1本重量・重量公差・使用本数・備考を横並びで比較できる構成です。カット日・裁断者の記入欄と、日付・ショット数・残数・ロットNo.を記録する右側の実績記入欄を備え、QRコードも配置されています。

生産数量を取数で割り、端数を切り上げて必要ショット数を算出する計算式が組まれています。

単純ショット数：=Int([確定数量]/[取数]+0.99)

R70ロール数量材料裁断カード印刷　レポートデザインビュー

材料裁断カードのブロック構成

材料裁断カード印刷ボタンのマクロ

現品票印刷と同じ2段階確認構成です。

サブマクロ：材料裁断カード印刷

マクロの概要

マクロの設置場所

内職管理カード印刷のレコードソースクエリ（Q70ロール数量内職管理カード印刷）

現品票・材料裁断カードよりも結合テーブルが1つ増え、T70ロール数量調整→T05取引先M→T10製品M→T11製品成形という結合順になっています。宛先情報（取引先名・略称）を持つ点が他の2帳票との違いです。

Q70ロール数量内職管理カード印刷　クエリデザインビュー

Q70ロール数量内職管理カード印刷の使用テーブルと結合関係

Q70ロール数量内職管理カード印刷の主な抽出条件

Q70ロール数量内職管理カード印刷の主な取得フィールド

内職管理カード印刷レポートの構成

左側が管理カード、右側が納品書兼請求書という1枚2面構成が特徴です。管理カード側は良品数・不良数・不良内容（異物混入・ショート／エアー・汚れ／テカリ・混色・キレ／キズ／イグレ・その他）を記録し、納品書側はバリ取り・検査・梱包・テープ貼り・印刷検査・その他の作業区分と数量・単価・金額・合計金額を記載する、給金計算の根拠にもなる帳票です。

R70ロール数量内職管理カード印刷　レポートデザインビュー

内職管理カードのブロック構成

内職管理カード印刷ボタンのマクロ

これまでの2本と同じ2段階確認構成です。

サブマクロ：内職管理カード印刷

マクロの概要

マクロの設置場所

2次加硫依頼書印刷のレコードソースクエリ（Q70ロール数量2次加硫依頼書印刷）

結合構成は現品票印刷・材料裁断カード印刷と同じくT70ロール数量調整→T10製品M→T11製品成形です。対象は自社工場（仕入先コード＝2）かつ2次加硫条件が空欄・”なし”以外のデータに絞り込まれます。

Q70ロール数量2次加硫依頼書印刷　クエリデザインビュー

Q70ロール数量2次加硫依頼書印刷の使用テーブルと結合関係

Q70ロール数量2次加硫依頼書印刷の主な抽出条件・並べ替え

Q70ロール数量2次加硫依頼書印刷の主な取得フィールド

2次加硫依頼書印刷レポートの構成

他の3帳票よりシンプルな1ブロック構成です。2次加硫条件を目立つ位置に大きく表示し、供給予定時間（AM／PM）・出荷予定日の記入欄を右側にまとめています。

R70ロール数量2次加硫依頼書印刷　レポートデザインビュー

2次加硫依頼書のブロック構成

2次加硫依頼書印刷ボタンのマクロ

他の3本と同じ2段階確認構成です。

サブマクロ：2次加硫依頼書印刷

マクロの概要

マクロの設置場所

日次更新ボタンで材料手配データをT70ロール自動へ移行する仕組み

4種の帳票印刷がすべて完了した後、日次更新ボタンで確定済みデータをT70ロール自動（ロール作業の生産・製造管理テーブル）へ移行します。製品マスタの材料1〜4のうち実際に登録されている材料だけを個別に追加し、最後にT70ロール数量調整テーブルを空にして翌日以降のデータ投入に備えます。

更新前に必要データの有無をチェックする2本の判定クエリ

計算に必要な「1ショット総重量」「取数」が製品マスタ側に未登録だと日次更新が正しく計算できないため、実行前にDCountで該当データの有無を確認します。

Q70ロール数量調整Null1ショット重量判定・Null取数判定の構成

日次更新ボタンのマクロ

事前チェック2本＋更新対象データの有無チェックを行った後、警告メッセージを経て8本のクエリを順に実行します。

サブマクロ：日次更新

マクロの概要

マクロの設置場所

確定数量を発注データへ書き戻す2本の更新クエリ

このフォームで確定した数量は、T70ロール数量調整側だけでなく、元の仕入先発注データ（T31仕入先発注M）側にも書き戻されます。発注時点の数量は仮の数量のため、確定した設定数量で上書きする形です。

Q70ロール数量確定数量更新　クエリデザインビュー

Q70ロール数量確定数量更新の構成

Q31仕入先発注成形課設定数量更新　クエリデザインビュー

Q31仕入先発注成形課設定数量更新の構成

材料1〜4を個別にT70ロール自動へ追加するクエリ（Q70ロール数量自動1〜4追加）

4本とも構造は同一で、材料番号（1〜4）だけが異なります。各材料の1本重量が0でない（＝その材料が実際に登録されている）データのみを抽出条件とすることで、使っていない材料スロットを追加しない仕組みになっています。

Q70ロール数量自動1〜4追加　クエリデザインビュー（代表で1のみ）

つづき

つづき

Q70ロール数量自動1追加の構成（材料2〜4は添字を読み替え）

T70ロール数量調整をクリアする2本の削除クエリ

材料手配データがT70ロール自動へ確定・保管された後、元のT70ロール数量調整テーブルは削除して空にします。確定データと手配否データ、それぞれ別クエリで削除する2段構成です。

Q70ロール数量調整削除　クエリデザインビュー

Q70ロール数量調整手配否削除　クエリデザインビュー

Q70ロール数量調整削除・手配否削除の構成

まとめ

自動発注数量調整ページは、確定ボタン・数量変ポップアップ・在庫引当ポップアップという3つの異なる確定手段を用意し、歩留まりや在庫状況に応じてオペレーターが柔軟に材料手配数量を決められる設計になっています。確定後は4種の帳票へ用途別に分岐して印刷し、日次更新で製品マスタの材料構成に応じてT70ロール自動テーブルへとデータを移行します。歩留まり計算・切り上げ処理・二重の確定フラグなど、随所で「自動計算にオペレーターの裁量の余地を残す」という一貫した設計思想が見られるページです。