製品マスタ「成形課」

サブマクロ：成形編集開く
  If  IsNull([取数])  Then
    メッセージボックス
      メッセージ    取数が表示されていません。まずは新規登録する必要があるかも知れません。仮登録の場合はここから登録してください
      警告音        はい
      メッセージの種類  警告
      メッセージタイトル  未入力
  If 文の最後
  フォームを開く（F11製品成形編集, フォームビュー, , , , 標準）
  値の代入
    アイテム  = [Forms]![F11製品成形編集]![図番ID]
    式        = [Forms]![F00メインメニュー]![図番ID]
  値の代入
    アイテム  = [Forms]![F11製品成形編集]![図番]
    式        = DLookUp("図番","T10製品M","[図番ID]=[Forms]![F11製品成形編集]![図番ID]")
  値の代入（[Forms]![F11製品成形編集]![取引先コード], DLookUp("取引先コード","T10製品M","[図番ID]=[Forms]![F11製品成形編集]![図番ID]")）
  値の代入（[Forms]![F11製品成形編集]![取数], DLookUp("取数","T11製品成形","[図番ID]=[Forms]![F11製品成形編集]![図番ID]")）
  値の代入（[Forms]![F11製品成形編集]![金型保管], DLookUp("金型保管","T11製品成形","[図番ID]=[Forms]![F11製品成形編集]![図番ID]")）
  値の代入（[Forms]![F11製品成形編集]![金型メーカー], DLookUp("金型メーカー","T11製品成形","[図番ID]=[Forms]![F11製品成形編集]![図番ID]")）
  値の代入（[Forms]![F11製品成形編集]![金型刻印], DLookUp("金型刻印","T11製品成形","[図番ID]=[Forms]![F11製品成形編集]![図番ID]")）
  …（2次加硫条件・成形圧力・収縮率・バンプ条件1〜5・洗浄サイクル・離型剤・バリ仕上げ・後加工・KT挿入・ベース厚み・条件出しプレス・成形時狙い荷重・動画・成形時注意事項・備考・登録日・製品重量・登録者コードまで全フィールドをDLookupで転写）
  マクロの中止
サブマクロの最後

サブマクロ：成形編集更新
  If  IsNull([取数])  Then
    メッセージボックス
      メッセージ    取数が入力されていません。最低「取数」だけは登録してください
      警告音        はい
      メッセージの種類  警告
      メッセージタイトル  未入力
    コントロールの移動（取数）
    マクロの中止
  If 文の最後
  警告音
  If  MsgBox("訂正・編集したデータを更新してもよろしいですか？",4+32,"確認")=6  Then
    メッセージの設定（いいえ）
    クエリを開く（Q11製品成形編集更新, データシート, 編集）
    メッセージボックス（訂正・編集したデータを更新しました。, はい, なし, 完了）
    マクロの実行（M10製品.成形表示, , ）
    ウィンドウを閉じる（フォーム, F11製品成形編集, 確認）
    再クエリ
      コントロール名
    マクロの中止
  Else
    メッセージボックス（処理を中止します, はい, なし, 中止）
    マクロの中止
  If 文の最後
サブマクロの最後

サブマクロ：成形表示
  値の代入（[Forms]![F11製品成形]![図番], DLookUp("図番","T10製品M","[図番ID]=[Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![取引先コード], DLookUp("取引先コード","T10製品M","[図番ID]= [Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![品名], DLookUp("品名","T10製品M","[図番ID]= [Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![単価], DLookUp("単価","T10製品M","[図番ID]= [Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![重要事項], DLookUp("重要事項","T10製品M","[図番ID]= [Forms]![F00メインメニュー]![図番ID]")）
  値の代入（[Forms]![F11製品成形]![備考], DLookUp("備考","T10製品M","[図番ID]=[Forms]![F00メインメニュー]![図番ID]")）
  値の代入（[Forms]![F11製品成形]![登録日], DLookUp("登録日","T10製品M","[図番ID]= [Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![取数], DLookUp("取数","T11製品成形","[図番ID]=[Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![金型保管], DLookUp("金型保管","T11製品成形","[図番ID]=[Forms]![F00メインメニュー]![図番ID]")）
  値の代入（[Forms]![F11製品成形]![金型メーカー], DLookUp("金型メーカー","T11製品成形","[図番ID]= [Forms]![F00メインメニュー]![図番ID]")）
  値の代入（[Forms]![F11製品成形]![金型刻印], DLookUp("金型刻印","T11製品成形","[図番ID]=[Forms]![F00メインメニュー]![図番ID]")）
  値の代入（[Forms]![F11製品成形]![2次加硫条件], DLookUp("[2次加硫条件]","T11製品成形","[図番ID]= [Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![成形圧力], DLookUp("[成形圧力]","T11製品成形","[図番ID]= [Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![収縮率], DLookUp("収縮率","T11製品成形","[図番ID]=[Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![収縮率評価], DLookUp("収縮率評価","T11製品成形","[図番ID]= [Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![金型形式], DLookUp("金型形式","T11製品成形","[図番ID]=[Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![金型寸法], DLookUp("金型寸法","T11製品成形","[図番ID]= [Forms]![F00メインメニュー]![図番ID]")）
  値の代入（[Forms]![F11製品成形]![取付けピッチ], DLookUp("取付けピッチ","T11製品成形","[図番ID]= [Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![使用プレス], DLookUp("使用プレス","T11製品成形","[図番ID]=[Forms]![F00メインメニュー]![図番ID]")）
  値の代入（[Forms]![F11製品成形]![真空有無], DLookUp("真空有無","T11製品成形","[図番ID]= [Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![敷ゴム], DLookUp("敷ゴム","T11製品成形","[図番ID]= [Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![表面温度上型], DLookUp("表面温度上型","T11製品成形","[図番ID]= [Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![表面温度下型], DLookUp("表面温度下型","T11製品成形","[図番ID]= [Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![加硫時間], DLookUp("加硫時間","T11製品成形","[図番ID]=[Forms]![F00メインメニュー]![図番ID]")）
  値の代入（[Forms]![F11製品成形]![バンピング条件1], DLookUp("バンピング条件1","T11製品成形","[図番ID]= [Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![バンピング条件2], DLookUp("バンピング条件2","T11製品成形","[図番ID]=[Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![バンピング条件3], DLookUp("バンピング条件3","T11製品成形","[図番ID]= [Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![バンピング条件4], DLookUp("バンピング条件4","T11製品成形","[図番ID]=[Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![バンピング条件5], DLookUp("バンピング条件5","T11製品成形","[図番ID]=[Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![洗浄サイクル], DLookUp("洗浄サイクル","T11製品成形","[図番ID]=[Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![離型剤], DLookUp("離型剤","T11製品成形","[図番ID]= [Forms]![F00メインメニュー]![図番ID]")）
  値の代入（[Forms]![F11製品成形]![離型剤使用頻度], DLookUp("離型剤使用頻度","T11製品成形","[図番ID]= [Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![バリ仕上げ], DLookUp("バリ仕上げ","T11製品成形","[図番ID]=[Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![治具], DLookUp("治具","T11製品成形","[図番ID]= [Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![後加工], DLookUp("後加工","T11製品成形","[図番ID]= [Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![KT挿入], DLookUp("KT挿入","T11製品成形","[図番ID]=[Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![ベース厚み], DLookUp("ベース厚み","T11製品成形","[図番ID]= [Forms]![F00メインメニュー]![図番ID]")）
  値の代入（[Forms]![F11製品成形]![条件出しプレス], DLookUp("条件出しプレス","T11製品成形","[図番ID]= [Forms]![F00メインメニュー]![図番ID]")）
  値の代入（[Forms]![F11製品成形]![成形時狙い荷重], DLookUp("成形時狙い荷重","T11製品成形","[図番ID]=[Forms]![F00メインメニュー]![図番ID]")）
  値の代入（[Forms]![F11製品成形]![動画], DLookUp("動画","T11製品成形","[図番ID]= [Forms]![F00メインメニュー]![図番ID]")）
  値の代入（[Forms]![F11製品成形]![成形時注意事項], DLookUp("成形時注意事項","T11製品成形","[図番ID]= [Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![備考a], DLookUp("備考","T11製品成形","[図番ID]=[Forms]![F00メインメニュー]![図番ID] ")）
  値の代入（[Forms]![F11製品成形]![登録日a], DLookUp("仕様書作成日","T11製品成形","[図番ID]=[Forms]![F00メインメニュー]![図番ID]")）
  値の代入（[Forms]![F11製品成形]![製品重量], DLookUp("製品重量","T11製品成形","[図番ID]= [Forms]![F00メインメニュー]![図番ID]")）
  マクロの中止
サブマクロの最後

サブマクロ：金型洗浄
  フォームを開く（F11製品成形金型洗浄, フォームビュー, , , , 標準）
  値の代入
    アイテム  = [Forms]![F11製品成形金型洗浄]![図番ID]
    式        = [Forms]![F11製品成形]![図番ID]
  値の代入
    アイテム  = [Forms]![F11製品成形金型洗浄]![ID]
    式        = DLookUp("ID","T11製品成形","[図番ID]=[Forms]![F11製品成形]![図番ID]")
  再クエリ
    コントロール名
  マクロの中止
サブマクロの最後

サブマクロ：金型洗浄追加
  If  [判断]=1  Then
    値の代入
      アイテム  = [洗浄者]
      式        = [従業員]
    値の代入
      アイテム  = [判断]
      式        = [判断]+1
    マクロの中止
  Else
    値の代入
      アイテム  = [洗浄者]
      式        = [洗浄者] & "・" & [従業員]
    マクロの中止
  If 文の最後
サブマクロの最後

サブマクロ：金型洗浄登録
  If  IsNull([図番])  Then
    メッセージボックス
      メッセージ    図番が登録されていません
      警告音        はい
      メッセージの種類  警告
      メッセージタイトル  未登録
    コントロールの移動（図番ID）
    マクロの中止
  If 文の最後
  If  IsNull([手配番号])  Then
    メッセージボックス
      メッセージ    手配番号（作業指示）が登録されていません
      警告音        はい
      メッセージの種類  警告
      メッセージタイトル  未登録
    コントロールの移動（手配番号）
    マクロの中止
  If 文の最後
  If  IsNull([洗浄日])  Then  ・・・（以下略）
  If  IsNull([開始時間])  Then  ・・・
  If  IsNull([洗浄サイクル])  Then  ・・・
  If  IsNull([洗浄])  Then  ・・・
  If  IsNull([洗浄者])  Then  ・・・
  警告音
  If  MsgBox("金型洗浄記録を登録してよろしいですか？",4+32,"確認")=6  Then
    メッセージの設定（いいえ）
    クエリを開く（Q11製品成形金型洗浄追加, データシート, 編集）
    クエリを開く（Q11製品成形金型洗浄履歴追加, データシート, 編集）
    メッセージボックス（金型洗浄記録を登録しました, はい, なし, 登録済）
    ウィンドウを閉じる（フォーム, F11製品成形金型洗浄, 確認）
    再クエリ（）
    マクロの中止
  Else
    メッセージボックス（処理を中止します, はい, なし, 中止）
    マクロの中止
  If 文の最後
サブマクロの最後

サブマクロ：成形作業仕様書Excel
  If  IsNull([取数])  Then
    メッセージボックス（出力するデータがありません。成形条件を登録してから出力可能になります, はい, 警告, 中止）
    マクロの中止
  If 文の最後
  メッセージの設定
    メッセージの表示  いいえ
  クエリを開く（Q11成形作業仕様書出力追加, データシート, 編集）
  クエリを開く（Q11成形作業仕様書履歴出力追加, データシート, 編集）
  警告音
  If  MsgBox("表示されているデータをExcelに出力します。保管先はC:¥Access¥ です。",4+32,"確認")=6  Then
    スプレッドシートのインポート/エクスポート
      変換の種類          エクスポート
      スプレッドシートの種類  Excel Workbook
      テーブル名          T11成形作業仕様書出力
      ファイル名          C:¥Access¥成形作業仕様書作成データ.xlsx
      フィールド名の設定  いいえ
    スプレッドシートのインポート/エクスポート
      変換の種類          エクスポート
      スプレッドシートの種類  Excel Workbook
      テーブル名          T11成形作業仕様書履歴出力
      ファイル名          C:¥Access¥成形作業仕様書履歴作成データ.xlsx
      フィールド名の設定  いいえ
    メッセージボックス（成形作業仕様書のピボットデータをExcelで作成しました。, はい, なし, 作成済）
    クエリを開く（Q11成形作業仕様書出力削除, データシート, 編集）
    クエリを開く（Q11成形作業仕様書履歴出力削除, データシート, 編集）
    マクロの中止
  Else
    メッセージボックス（処理を中止します, はい, なし, 中止）
    マクロの中止
  If 文の最後
サブマクロの最後