資材マスタ「新規登録」

サブマクロ：取引先検索適用
 If [Forms]![F61資材発注取引先検索]![選択]=1 Then
  値の代入　[Forms]![F60資材新規]![取引先名]、[Forms]![F61資材発注取引先検索]![F61資材発注取引先検索サブ]![略称]
  ウィンドウを閉じる　(フォーム, F61資材発注取引先検索, 確認)
  再クエリ　(コントロール名)
  コントロールの移動　(資材名)
  マクロの中止
 If 文の最後

 If [Forms]![F61資材発注取引先検索]![選択]=2 Then

 If 文の最後

 If IsNull([Forms]![F61資材発注取引先検索]![選択]) Then
  マクロの中止
 If 文の最後
サブマクロの最後

サブマクロ：ロット単価新規開く
 If IsNull([取引先名]) Then
 If 文の最後

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

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

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

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

 フォームを開く　(F60資材ロット単価, フォームビュー, , , , 標準)
 値の代入　[Forms]![F60資材ロット単価]![ID]、[Forms]![F60資材新規]![ID]
 値の代入　[Forms]![F60資材ロット単価]![資材名]、[Forms]![F60資材新規]![資材名]
 値の代入　[Forms]![F60資材ロット単価]![ロット単価追加].[Visible]、False
 マクロの実行　(M60資材.ロット単価登録, , )
 再クエリ　(コントロール名)
 マクロの中止
サブマクロの最後

サブマクロ：新規登録
 If DCount("*","Q60資材新規ダブりチェック")>0 Then
  メッセージボックス　(この取引先、資材名で既に登録があります。ダブり登録です。確認してください。, はい, 警告, ダブり)
  マクロの中止
 If 文の最後

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

 If DCount("従業員コード","Q01従業員在籍者","[従業員コード] = Forms![F60資材新規]![登録者コード]")=0 Then
  メッセージボックス　(登録者が在籍従業員には存在しません, はい, 警告, 従業員不明)
  コントロールの移動　(登録者コード)
  マクロの中止
 If 文の最後

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

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

 If DCount("取引先コード","T05取引先M","[取引先コード] = Forms![F60資材新規]![取引先コード]")=0 Then
  メッセージボックス　(取引先が取引先マスタには存在しません, はい, 警告, 取引先不明)
  コントロールの移動　(取引先名)
  マクロの中止
 If 文の最後

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

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

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

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

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

 警告音

 If MsgBox("新規登録してもよろしいですか？",4+32,"確認")=6 Then

  If IsNull([仕様]) Then
   値の代入　[仕様]、" "
  If 文の最後

  If IsNull([備考]) Then
   値の代入　[備考]、" "
  If 文の最後

  メッセージの設定　(いいえ)
  クエリを開く　(Q60資材新規登録, データシート, 編集)
  メッセージボックス　(資材マスタに新規登録しました, はい, なし, 登録完了)
  マクロの実行　(M60資材.キャンセル新規, , )
  コントロールの移動　(登録者コード)
  マクロの中止

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

サブマクロ：キャンセル新規
 値の代入　[種別コード]、Null
 値の代入　[取引先名]、Null
 値の代入　[資材名]、Null
 値の代入　[仕様]、Null
 値の代入　[単価]、Null
 値の代入　[最低発注数量]、Null
 値の代入　[単位]、Null
 値の代入　[備考]、Null
 再クエリ　()
 マクロの中止
サブマクロの最後