仕入先製品マスタ「編集」

サブマクロ：旧単価開く
　If IsNull([図番]) Then
　　メッセージボックス（旧単価を登録する図番が選択されていません, はい, 警告, 未選択）
　　マクロの中止
　If 文の最後
　フォームを開く（F30仕入先製品旧単価編集, フォーム ビュー, , , , 標準）
　値の代入
　　アイテム：[Forms]![F30仕入先製品旧単価編集]![図番ID]
　　式：[Forms]![F30仕入先製品編集]![図番ID]
　値の代入
　　アイテム：[Forms]![F30仕入先製品旧単価編集]![図番]
　　式：[Forms]![F30仕入先製品編集]![図番]
　値の代入
　　アイテム：[Forms]![F30仕入先製品旧単価編集]![登録日]
　　式：Date()
　再クエリ
　マクロの中止
　サブマクロの最後

サブマクロ：旧単価コピー
　値の代入
　　アイテム：[Forms]![F30仕入先製品旧単価編集]![単価]
　　式：[Forms]![F30仕入先製品編集]![仕入先単価]
　マクロの中止
　サブマクロの最後

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

サブマクロ：旧単価クリア
　値の代入（[単価], Null）
　値の代入（[登録日], Null）
　値の代入（[備考], Null）
　マクロの中止
　サブマクロの最後

サブマクロ：編集開く
　フォームを開く（F30仕入先製品編集, フォーム ビュー, , , , 標準）
　値の代入
　　アイテム：[Forms]![F30仕入先製品編集]![ID]
　　式：[Forms]![F30仕入先製品リスト]![F30仕入先製品リストサブ]![ID]
　値の代入
　　アイテム：[Forms]![F30仕入先製品編集]![仕入先コード]
　　式：DLookUp("仕入先コード","T30仕入先製品M","[ID]=[Forms]![F30仕入先製品編集]![ID]")
　値の代入（[Forms]![F30仕入先製品編集]![仕入先単価], DLookUp("仕入先単価","T30仕入先製品M","[ID]=[Forms]![F30仕入先製品編集]![ID]"))
　値の代入（[Forms]![F30仕入先製品編集]![成形], DLookUp("成形課","T30仕入先製品M","[ID]=[Forms]![F30仕入先製品編集]![ID]"))
　値の代入（[Forms]![F30仕入先製品編集]![加工], DLookUp("加工課","T30仕入先製品M","[ID]=[Forms]![F30仕入先製品編集]![ID]"))
　値の代入（[Forms]![F30仕入先製品編集]![図番], DLookUp("図番","T30仕入先製品M","[ID]=[Forms]![F30仕入先製品編集]![ID]"))
　値の代入（[Forms]![F30仕入先製品編集]![印刷], DLookUp("印刷課","T30仕入先製品M","[ID]=[Forms]![F30仕入先製品編集]![ID]"))
　値の代入（[Forms]![F30仕入先製品編集]![材料], DLookUp("材料課","T30仕入先製品M","[ID]=[Forms]![F30仕入先製品編集]![ID]"))
　値の代入（[Forms]![F30仕入先製品編集]![有効], DLookUp("有効","T30仕入先製品M","[ID]=[Forms]![F30仕入先製品編集]![ID]"))
　値の代入（[Forms]![F30仕入先製品編集]![手配], DLookUp("手配","T30仕入先製品M","[ID]=[Forms]![F30仕入先製品編集]![ID]"))
　値の代入（[Forms]![F30仕入先製品編集]![備考], DLookUp("備考","T30仕入先製品M","[ID]=[Forms]![F30仕入先製品編集]![ID]"))
　再クエリ
　コントロール名：（空欄）
　マクロの中止
　サブマクロの最後

サブマクロ：編集更新
　警告音
　If MsgBox("訂正・編集したデータを更新してもよろしいですか？",4+32,"確認")=6 Then
　　メッセージの設定（いいえ）
　　クエリを開く（Q30仕入先製品編集更新, データシート, 編集）
　　メッセージボックス（訂正・編集したデータを更新しました。, はい, なし, 完了）
　　ウィンドウを閉じる（フォーム, F30仕入先製品編集, 確認）
　　再クエリ
　　マクロの中止
　Else
　　メッセージボックス（処理を中止します, はい, なし, 中止）
　　マクロの中止
　If 文の最後
　サブマクロの最後