仕入先製品マスタ「新規登録」

サブマクロ：仕入先検索
　フォームを開く
　　フォーム名：F30仕入先製品新規取引先検索
　　ビュー：フォーム ビュー
　　フィルター名：（空欄）
　　Where条件式：（空欄）
　　データモード：（空欄）
　　ウィンドウモード：標準
　マクロの中止
　サブマクロの最後

サブマクロ：仕入先適用
　値の代入
　　アイテム：[Forms]![F30仕入先製品新規]![仕入先コード]
　　式：[Forms]![F30仕入先製品新規取引先検索]![F30仕入先製品新規取引先検索サブ]![取引先コード]
　ウィンドウを閉じる
　　オブジェクトの種類：フォーム
　　オブジェクト名：F30仕入先製品新規取引先検索
　　オブジェクトの保存：確認
　コントロールの移動：（仕入先コード）
　マクロの中止
　サブマクロの最後

サブマクロ：ロット単価新規開く
　If IsNull([図番]) Then
　　メッセージボックス（ロット単価を登録する図番が選択されていません, はい, 警告, 未選択）
　　コントロールの移動（図番）
　　マクロの中止
　If 文の最後
　If IsNull([仕入先コード]) Then
　　メッセージボックス（ロット単価を登録する仕入先が選択されていません, はい, 警告, 未選択）
　　コントロールの移動（仕入先コード）
　　マクロの中止
　If 文の最後
　フォームを開く（F30仕入先製品ロット単価登録, フォーム ビュー, , , , 標準）
　値の代入
　　アイテム：[Forms]![F30仕入先製品ロット単価登録]![図番ID]
　　式：[Forms]![F30仕入先製品新規]![図番ID]
　値の代入
　　アイテム：[Forms]![F30仕入先製品ロット単価登録]![図番]
　　式：[Forms]![F30仕入先製品新規]![図番]
　値の代入
　　アイテム：[Forms]![F30仕入先製品ロット単価登録]![仕入先コード]
　　式：[Forms]![F30仕入先製品新規]![仕入先コード]
　値の代入
　　アイテム：[Forms]![F30仕入先製品ロット単価登録]![ロット単価追加].Visible
　　式：False
　マクロの実行
　　マクロ名：M30仕入先製品.ロット単価登録
　再クエリ
　マクロの中止
　サブマクロの最後

サブマクロ：ロット単価登録
　値の代入（[Forms]![F30仕入先製品ロット単価登録]![ロット].Visible, True）
　値の代入（[Forms]![F30仕入先製品ロット単価登録]![単価].Visible, True）
　値の代入（[Forms]![F30仕入先製品ロット単価登録]![登録日], Date()）
　値の代入（[Forms]![F30仕入先製品ロット単価登録]![備考].Visible, True）
　値の代入（[Forms]![F30仕入先製品ロット単価登録]![前～].Visible, True）
　値の代入（[Forms]![F30仕入先製品ロット単価登録]![後～].Visible, True）
　値の代入（[Forms]![F30仕入先製品ロット単価登録]![なし].Visible, True）
　値の代入（[Forms]![F30仕入先製品ロット単価登録]![新規登録].Visible, True）
　コントロールの移動
　　コントロール名：ロット
　マクロの中止
　サブマクロの最後

サブマクロ：ロット単価追加
　If IsNull([ロット]) Then
　　メッセージボックス（ロット数が入力されていません, はい, 警告, 未入力）
　　コントロールの移動（ロット）
　　マクロの中止
　If 文の最後
　If IsNull([単価]) Then
　　メッセージボックス（単価が入力されていません, はい, 警告, 未入力）
　　コントロールの移動（単価）
　　マクロの中止
　If 文の最後
　If IsNull([登録日]) Then
　　メッセージボックス（登録日が入力されていません, はい, 警告, 未入力）
　　コントロールの移動（登録日）
　　マクロの中止
　If 文の最後
　If [ロット記入判定]<>1 Then
　　メッセージボックス（ロットの「前〜」「後〜」「〜なし」が入力されていないか2つ以上入力されています, はい, 警告, 未入力）
　　マクロの中止
　If 文の最後
　If IsNull([図番]) Then
　　メッセージボックス（ロット単価を登録する図番が指定されていません, はい, 警告, 不明）
　　マクロの中止
　If 文の最後
　警告音
　If MsgBox("ロット単価を登録してよろしいですか？",4+32,"確認")=6 Then
　　メッセージの設定（いいえ）
　　クエリを開く（Q30仕入先製品ロット単価登録追加, データシート, 編集）
　　If MsgBox("「"+[Forms]![F30仕入先製品ロット単価登録]![図番]+"」のロット単価を追加しました。") Then
　　　マクロの実行（M30仕入先製品.ロット単価クリア）
　　　再クエリ
　　　マクロの中止
　　If 文の最後
　Else
　　メッセージボックス（中止しました, はい, 警告, 中止）
　　マクロの中止
　If 文の最後
　サブマクロの最後

サブマクロ：ロット単価クリア
　値の代入（[ロット], Null）
　値の代入（[単価], Null）
　値の代入（[登録日], Date()）
　値の代入（[備考], Null）
　値の代入（[前～], False）
　値の代入（[後～], False）
　値の代入（[なし], False）
　コントロールの移動（ロット）
　マクロの中止
　サブマクロの最後

サブマクロ：仕入先登録
　If DCount("[図番]","T10製品M","[図番] = Forms![F30仕入先製品新規]![図番]")=0 Or IsNull(DCount("[図番]","T10製品M","[図番] = Forms![F30仕入先製品新規]![図番]")) Then
　　メッセージボックス（製品マスタに図番が存在しません。仕入先製品マスタに登録するには製品マスタに存在する必要があります, はい, 警告, 登録不可）
　　コントロールの移動（図番）
　　マクロの中止
　If 文の最後
　If IsNull([仕入先コード]) Then
　　メッセージボックス（仕入先が入力されていません, はい, 警告, 未入力）
　　コントロールの移動（仕入先コード）
　　マクロの中止
　If 文の最後
　If IsNull([仕入先単価]) Then
　　メッセージボックス（仕入先単価が入力されていません, はい, 警告, 未入力）
　　コントロールの移動（仕入先単価）
　　マクロの中止
　If 文の最後
　警告音
　If MsgBox("仕入先製品マスタに登録してよろしいですか？",4+32,"確認")=6 Then
　　メッセージの設定（いいえ）
　　クエリを開く（Q30仕入先製品新規仕入先追加, データシート, 編集）
　　メッセージボックス（仕入先製品マスタに追加しました, はい, なし, 登録完了）
　　マクロの実行（M30仕入先製品.仕入先クリア）
　　マクロの中止
　Else
　　メッセージボックス（中止しました, はい, 警告, 中止）
　　マクロの中止
　If 文の最後
　サブマクロの最後

サブマクロ：仕入先クリア
　値の代入
　　アイテム：[図番]
　　式：Null
　値の代入（[仕入先コード], Null）
　値の代入（[仕入先単価], Null）
　値の代入（[成形], False）
　値の代入（[加工], False）
　値の代入（[印刷], False）
　値の代入（[材料], False）
　値の代入（[有効], False）
　値の代入（[手配], False）
　値の代入（[備考], Null）
　再クエリ
　マクロの中止
　サブマクロの最後