製品マスタ「新規登録」

サブマクロ：シート図番タイプ
  値の代入
    アイテム  = [シート図番]
    式        = [タイプ]
  マクロの中止
サブマクロの最後

サブマクロ：シート図番材質
  If  IsNull([シート図番])  Then
    メッセージボックス（「タイプ」を選択してから「材質」を選択してください, はい, 警告, 再選択）
    コントロールの移動（タイプ）
    値の代入（[材質], Null）
    マクロの中止
  Else
    値の代入
      アイテム  = [シート図番]
      式        = [シート図番] & [材質]
    マクロの中止
  If 文の最後
サブマクロの最後

サブマクロ：シート図番硬度
  If  IsNull([材質])  Then
    メッセージボックス（「材質」を選択してから「硬度」を選択してください, はい, 警告, 再選択）
    コントロールの移動（材質）
    値の代入（[硬度], Null）
    マクロの中止
  Else
    値の代入
      アイテム  = [シート図番]
      式        = [シート図番] & [硬度]
    マクロの中止
  If 文の最後
サブマクロの最後

サブマクロ：シート図番サイズ
  If  IsNull([硬度])  Then
    メッセージボックス（「硬度」を選択してから「サイズ」を選択してください, はい, 警告, 再選択）
    コントロールの移動（硬度）
    値の代入（[サイズ], Null）
    マクロの中止
  Else
    値の代入
      アイテム  = [シート図番]
      式        = [シート図番] & [サイズ]
    マクロの中止
  If 文の最後
サブマクロの最後

サブマクロ：シート図番色調
  If  IsNull([サイズ])  Then
    メッセージボックス（「サイズ」を選択してから「色調」を選択してください, はい, 警告, 再選択）
    コントロールの移動（サイズ）
    値の代入（[色調], Null）
    マクロの中止
  Else
    値の代入
      アイテム  = [シート図番]
      式        = [シート図番] & [色調]
    マクロの中止
  If 文の最後
サブマクロの最後

サブマクロ：シート図番厚み
  If  IsNull([色調])  Then
    メッセージボックス（「色調」を選択してから「厚み」を選択してください, はい, 警告, 再選択）
    コントロールの移動（色調）
    値の代入（[厚み], Null）
    マクロの中止
  Else
    値の代入
      アイテム  = [シート図番]
      式        = [シート図番] & [厚み]
    マクロの中止
  If 文の最後
サブマクロの最後

サブマクロ：シート図番表面状態
  If  IsNull([厚み])  Then
    メッセージボックス（「厚み」を選択してから「表面状態」を選択してください, はい, 警告, 再選択）
    コントロールの移動（厚み）
    値の代入（[表面状態], Null）
    値の代入（[サラサラ], Null）
    マクロの中止
  Else
    値の代入
      アイテム  = [シート図番]
      式        = [シート図番] & [表面状態]
    マクロの中止
  If 文の最後
サブマクロの最後

サブマクロ：シート図番サラサラ
  If  IsNull([厚み])  Then
    メッセージボックス（「厚み」を選択してから「サラサラ」を選択してください, はい, 警告, 再選択）
    コントロールの移動（厚み）
    値の代入（[サラサラ], Null）
    値の代入（[表面状態], Null）
    マクロの中止
  Else
    値の代入
      アイテム  = [シート図番]
      式        = [シート図番] & [SC]
    マクロの中止
  If 文の最後
サブマクロの最後

サブマクロ：シート図番やり直し
  値の代入（[タイプ], Null）
  値の代入（[材質], Null）
  値の代入（[硬度], Null）
  値の代入（[サイズ], Null）
  値の代入（[色調], Null）
  値の代入（[厚み], Null）
  値の代入（[表面状態], Null）
  値の代入（[サラサラ], Null）
  値の代入（[シート図番], Null）
  コントロールの移動（タイプ）
  マクロの中止
サブマクロの最後

サブマクロ：シート図番適用
  値の代入
    アイテム  = [Forms]![F10製品新規]![図番]
    式        = [Forms]![F10製品新規シート図番生成]![シート図番]
  値の代入
    アイテム  = [Forms]![F10製品新規]![取引先コード]
    式        = 2
  ウィンドウを閉じる（フォーム, F10製品新規シート図番生成, 確認）
  コントロールの移動（品名）
  マクロの中止
サブマクロの最後

サブマクロ：親図番表示
  値の代入（[Forms]![F10製品新規]![図番], DLookUp("図番","T10製品M","[図番ID]=[Forms]![F10製品新規]![親図番ID]")）
  値の代入（[Forms]![F10製品新規]![取引先コード], DLookUp("取引先コード","T10製品M","[図番ID]=[Forms]![F10製品新規]![親図番ID]")）
  値の代入（[Forms]![F10製品新規]![品名], DLookUp("品名","T10製品M","[図番ID]=[Forms]![F10製品新規]![親図番ID]")）
  値の代入（[Forms]![F10製品新規]![単価], DLookUp("単価","T10製品M","[図番ID]=[Forms]![F10製品新規]![親図番ID]")）
  値の代入（[Forms]![F10製品新規]![成形課], DLookUp("成形課","T10製品M","[図番ID]=[Forms]![F10製品新規]![親図番ID]")）
  値の代入（[Forms]![F10製品新規]![加工課], DLookUp("加工課","T10製品M","[図番ID]=[Forms]![F10製品新規]![親図番ID]")）
  値の代入（[Forms]![F10製品新規]![印刷課], DLookUp("印刷課","T10製品M","[図番ID]=[Forms]![F10製品新規]![親図番ID]")）
  値の代入（[Forms]![F10製品新規]![品証課], DLookUp("品証課","T10製品M","[図番ID]=[Forms]![F10製品新規]![親図番ID]")）
  値の代入（[Forms]![F10製品新規]![業務課], DLookUp("業務課","T10製品M","[図番ID]=[Forms]![F10製品新規]![親図番ID]")）
  値の代入（[Forms]![F10製品新規]![営業課], DLookUp("営業課","T10製品M","[図番ID]=[Forms]![F10製品新規]![親図番ID]")）
  値の代入（[Forms]![F10製品新規]![現品票区分], DLookUp("現品票区分","T10製品M","[図番ID]=[Forms]![F10製品新規]![親図番ID]")）
  値の代入（[Forms]![F10製品新規]![成形フォーキャスト], DLookUp("成形フォーキャスト","T10製品M","[図番ID]=[Forms]![F10製品新規]![親図番ID]")）
  値の代入（[Forms]![F10製品新規]![加工フォーキャスト], DLookUp("加工フォーキャスト","T10製品M","[図番ID]=[Forms]![F10製品新規]![親図番ID]")）
  値の代入（[Forms]![F10製品新規]![重要事項], DLookUp("重要事項","T10製品M","[図番ID]=[Forms]![F10製品新規]![親図番ID]")）
  値の代入（[Forms]![F10製品新規]![備考], DLookUp("備考","T10製品M","[図番ID]=[Forms]![F10製品新規]![親図番ID]")）
  値の代入（[Forms]![F10製品新規]![営業メモ], DLookUp("営業メモ","T10製品M","[図番ID]=[Forms]![F10製品新規]![親図番ID]")）
  値の代入（[Forms]![F10製品新規]![登録日], Date()）
  値の代入（[Forms]![F10製品新規]![工程1], DLookUp("工程1","T10製品M","[図番ID]=[Forms]![F10製品新規]![親図番ID]")）
  …（工程2〜16・工程作業者1〜16を同形式でDLookup転写）
  値の代入（[Forms]![F10製品新規]![工程群コード], DLookUp("工程群コード","T10製品M","[図番ID]=[Forms]![F10製品新規]![親図番ID]")）
  値の代入（[Forms]![F10製品新規]![業種コード], DLookUp("業種コード","T10製品M","[図番ID]=[Forms]![F10製品新規]![親図番ID]")）
  値の代入（[Forms]![F10製品新規]![納期設定], DLookUp("納期設定","T10製品M","[図番ID]=[Forms]![F10製品新規]![親図番ID]")）
  再クエリ（）
  マクロの中止
サブマクロの最後

サブマクロ：取引先適用
  値の代入
    アイテム  = [Forms]![F10製品新規]![取引先コード]
    式        = [Forms]![F10製品新規取引先検索]![F10製品新規取引先検索サブ]![取引先コード]
  ウィンドウを閉じる（フォーム, F10製品新規取引先検索, 確認）
  コントロールの移動（取引先コード）
  再クエリ（）
  マクロの中止
サブマクロの最後

サブマクロ：登録
  If  IsNull([図番])  Then
    メッセージボックス（図番が入力されていません, はい, 警告, 未入力）
    コントロールの移動（図番）
    マクロの中止
  If 文の最後
  If  IsNull([取引先コード])  Then  ・・・（取引先コード未入力チェック）
  If  IsNull([取引先名])  Then  ・・・（取引先名未入力チェック）
  If  IsNull([品名])  Then  ・・・（品名未入力チェック）
  If  IsNull([単価])  Then  ・・・（単価未入力チェック）
  If  [関連部署]=0  Then  ・・・（関連部署未選択チェック）
  If  [現品票区分]=False  Then  ・・・（現品票区分未選択チェック）
  If  IsNull([工程群コード])  Then  ・・・（工程群コード未入力チェック）
  If  IsNull([業種コード])  Then  ・・・（業種コード未入力チェック）
  If  IsNull([工程1])  Then  ・・・（工程1未入力チェック）
  If  IsNull([工程作業者1])  Then  ・・・（工程作業者1未入力チェック）
  If  DCount("*","Q10製品新規仕入先サブ")=0  Then
    メッセージボックス（仕入先情報が登録されていません。最低1件は登録してください, はい, 警告, 未登録）
    コントロールの移動（仕入先コード）
    マクロの中止
  If 文の最後
  If  DCount("図番","T10製品M","[図番]=[Forms]![F10製品新規]![図番]")<>0  Then
    メッセージボックス（登録しようとしている図番は既に登録されています。確認してください, はい, 警告, 重複）
    コントロールの移動（図番）
    マクロの中止
  If 文の最後
  警告音
  If  MsgBox("製品マスタに新規登録してよろしいですか？",4+32,"確認")=6  Then
    メッセージの設定（いいえ）
    クエリを開く（Q10製品新規追加, データシート, 編集）
    クエリを開く（Q10製品新規親図番更新, データシート, 編集）
    If  [Forms]![F10製品新規]![成形課]=True  Then
      クエリを開く（Q10製品新規追加成形, データシート, 編集）
      クエリを開く（Q10製品新規成形親図番更新, データシート, 編集）
    If 文の最後
    If  [Forms]![F10製品新規]![加工課]=True  Then
      クエリを開く（Q10製品新規追加加工, データシート, 編集）
      クエリを開く（Q10製品新規加工親図番更新, データシート, 編集）
    If 文の最後
    If  [Forms]![F10製品新規]![印刷課]=True  Then
      クエリを開く（Q10製品新規追加印刷, データシート, 編集）
      クエリを開く（Q10製品新規印刷親図番更新, データシート, 編集）
    If 文の最後
    If  [Forms]![F10製品新規]![品証課]=True  Then
      クエリを開く（Q10製品新規追加品証, データシート, 編集）
      クエリを開く（Q10製品新規品証親図番更新, データシート, 編集）
    If 文の最後
    クエリを開く（Q10製品新規追加生産管理, データシート, 編集）
    クエリを開く（Q10製品新規生産管理親図番更新, データシート, 編集）
    メッセージボックス（製品マスタに登録しました, はい, なし, 登録完了）
    マクロの実行（M10製品新規.キャンセル, , ）
    マクロの中止
  Else
    メッセージボックス（中止しました, はい, 警告, 中止）
    マクロの中止
  If 文の最後
サブマクロの最後

サブマクロ：仕入先登録
  If  IsNull([図番])  Then
    メッセージボックス（図番が入力されていません, はい, 警告, 未入力）
    コントロールの移動（図番）
    マクロの中止
  If 文の最後
  If  IsNull([取引先コード])  Then  ・・・（取引先コード未入力チェック）
  If  IsNull([仕入先コード])  Then  ・・・（仕入先コード未入力チェック）
  If  IsNull([仕入先単価])  Then  ・・・（仕入先単価未入力チェック）
  If  [関連工程]=0  Then
    メッセージボックス（関連工程が選択されていません, はい, 警告, 未入力）
    マクロの中止
  If 文の最後
  If  DCount("図番","T10製品M","[図番]=[Forms]![F10製品新規]![図番]")<>0  Then
    メッセージボックス（登録しようとしている図番は既に登録されていますので仕入先製品マスタにも登録できません。確認してください, はい, 警告, 重複）
    コントロールの移動（図番）
    マクロの中止
  If 文の最後
  警告音
  If  MsgBox("新規登録中の図番で仕入先製品マスタに登録してよろしいですか？",4+32,"確認")=6  Then
    メッセージの設定（いいえ）
    クエリを開く（Q10製品新規仕入先追加, データシート, 編集）
    メッセージボックス（新規製品マスタ登録中の仕入先製品マスタを追加しました, はい, なし, 登録完了）
    マクロの実行（M10製品新規.仕入先クリア, , ）
    マクロの中止
  Else
    メッセージボックス（中止しました, はい, 警告, 中止）
    マクロの中止
  If 文の最後
サブマクロの最後

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