資材マスタ「編集」

サブマクロ：編集開く
 フォームを開く　(F60資材編集, フォームビュー, , , , 標準)
 値の代入　[Forms]![F60資材編集]![ID]、[Forms]![F60資材リスト]![F60資材リストサブ]![ID]
 マクロの実行　(M60資材.編集表示, , )
 If DCount("*","Q60資材ロット単価有無")>0 Then
  値の代入　[Forms]![F60資材編集]![ロット単価有無].[Visible]、True
 If 文の最後
 マクロの中止
サブマクロの最後

サブマクロ：編集表示
 値の代入　[Forms]![F60資材編集]![登録者コード]、DLookUp("登録者コード","T60資材M","[ID]=[Forms]![F60資材編集]![ID]")
 値の代入　[Forms]![F60資材編集]![所属部署コード]、DLookUp("所属部署コード","T60資材M","[ID]=[Forms]![F60資材編集]![ID]")
 値の代入　([Forms]![F60資材編集]![取引先コード], DLookUp("取引先コード","T60資材M","[ID]=[Forms]![F60資材編集]![ID]"))
 値の代入　([Forms]![F60資材編集]![資材名], DLookUp("資材名","T60資材M","[ID]=[Forms]![F60資材編集]![ID]"))
 値の代入　([Forms]![F60資材編集]![仕様], DLookUp("仕様","T60資材M","[ID]=[Forms]![F60資材編集]![ID]"))
 値の代入　([Forms]![F60資材編集]![種別コード], DLookUp("種別コード","T60資材M","[ID]=[Forms]![F60資材編集]![ID]"))
 値の代入　([Forms]![F60資材編集]![単価], DLookUp("単価","T60資材M","[ID]=[Forms]![F60資材編集]![ID]"))
 値の代入　([Forms]![F60資材編集]![単位], DLookUp("単位","T60資材M","[ID]=[Forms]![F60資材編集]![ID]"))
 値の代入　([Foms]![F60資材編集]![在庫数], DLookUp("在庫数","T60資材M","[ID]=[Forms]![F60資材編集]![ID]"))
 値の代入　([Forms]![F60資材編集]![在庫更新日], DLookUp("在庫更新日","T60資材M","[ID]=[Forms]![F60資材編集]![ID]"))
 値の代入　([Forms]![F60資材編集]![在庫メモ], DLookUp("在庫メモ","T60資材M","[ID]=[Forms]![F60資材編集]![ID]"))
 値の代入　([Formsrms]![F60資材編集]![備考], DLookUp("備考","T60資材M","[ID]=[Forms]![F60資材編集]![ID]"))
 値の代入　([Forms]![F60資材編集]![登録日], DLookUp("登録日","T60資材M","[ID]=[Forms]![F60資材編集]![ID]"))
 値の代入　([For]![F60資材編集]![ロット単価], DLookUp("ロット単価","T60資材M","[ID]=[Forms]![F60資材編集]![ID]"))
 値の代入　([Forms]![F60資材編集]![有効], DLookUp("有効","T60資材M","[ID]=[Forms]![F60資材編集]![ID]"))
 マクロの中止
サブマクロの最後

サブマクロ：編集更新
 If IsNull([登録者コード]) Then
  メッセージボックス　(登録者が登録されていません, はい, 警告, 未入力)
  コントロールの移動　(登録者コード)
  マクロの中止
 If 文の最後

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

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

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

 If IsNull([種別コード]) Or [種別コード]="" Then
  メッセージボックス　(種別が登録されていません, はい, 警告, 未入力)
  コントロールの移動　(種別コード)
  マクロの中止
 If 文の最後

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

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

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

 警告音

 If MsgBox("編集したデータを更新してもよろしいですか？",4+32,"確認")=6 Then
  メッセージの設定　(いいえ)
  クエリを開く　(Q60資材編集更新, データシート, 編集)
  メッセージボックス　(編集データを更新しました, はい, なし, 更新)
  ウィンドウを閉じる　( , , 確認)
  再クエリ　()
  マクロの中止

 Else
  メッセージボックス　(処理を中止しました, はい, なし, 中止)
  マクロの中止
 If 文の最後
サブマクロの最後