取引先マスタ「編集」

サブマクロ：編集表示
　値の代入　（[Forms]![F05取引先編集]![取引先コード], [Forms]![F05取引先編集]![検索]）
　値の代入　（[Forms]![F05取引先編集]![取引区分],
　　　　　　　DLookUp("取引区分","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![取引先名],
　　　　　　　DLookUp("取引先名","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![略称],
　　　　　　　DLookUp("略称","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![フリガナ],
　　　　　　　DLookUp("フリガナ","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![郵便番号],
　　　　　　　DLookUp("郵便番号","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![都道府県],
　　　　　　　DLookUp("都道府県","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![住所1],
　　　　　　　DLookUp("住所1","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![住所2],
　　　　　　　DLookUp("住所2","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![電話番号],
　　　　　　　DLookUp("電話番号","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![FAX],
　　　　　　　DLookUp("FAX","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![URL],
　　　　　　　DLookUp("URL","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![代表者],
　　　　　　　DLookUp("代表者","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![担当者],
　　　　　　　DLookUp("担当者","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![メモ],
　　　　　　　DLookUp("メモ","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![登録日],
　　　　　　　DLookUp("登録日","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![営業担当者],
　　　　　　　DLookUp("営業担当者","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![締め日],
　　　　　　　DLookUp("締め日","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![端数金額区分],
　　　　　　　DLookUp("端数金額区分","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![端数金額区分仕入],
　　　　　　　DLookUp("端数金額区分仕入","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![請求書郵便番号],
　　　　　　　DLookUp("請求書郵便番号","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![請求書都道府県],
　　　　　　　DLookUp("請求書都道府県","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![請求書住所1],
　　　　　　　DLookUp("請求書住所1","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![請求書住所2],
　　　　　　　DLookUp("請求書住所2","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![請求書部署],
　　　　　　　DLookUp("請求書部署","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![請求書電話番号],
　　　　　　　DLookUp("請求書電話番号","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![銀行コード],
　　　　　　　DLookUp("銀行コード","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![銀行名],
　　　　　　　DLookUp("銀行名","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![支店コード],
　　　　　　　DLookUp("支店コード","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![支店名],
　　　　　　　DLookUp("支店名","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![口座種別],
　　　　　　　DLookUp("口座種別","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![口座番号],
　　　　　　　DLookUp("口座番号","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![口座名義],
　　　　　　　DLookUp("口座名義","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![旧住所],
　　　　　　　DLookUp("旧住所","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![加工購入先表示],
　　　　　　　DLookUp("加工購入先表示","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![加工加工先表示],
　　　　　　　DLookUp("加工加工先表示","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　値の代入　（[Forms]![F05取引先編集]![金型メーカー表示],
　　　　　　　DLookUp("金型メーカー表示","T05取引先M","[取引先コード]=[Forms]![F05取引先編集]![取引先コード] ")）
　再クエリ　（）
　マクロの中止
サブマクロの最後

サブマクロ：編集旧住所
　If　IsNull([旧住所])　Then
　　値の代入
　　　アイテム　＝[旧住所]
　　　式　　　　＝[郵便番号] & " " & [都道府県] & [住所1] & [住所2] & " " & Date() & " "
　　マクロの中止
　Else
　　値の代入
　　　アイテム　＝[旧住所]
　　　式　　　　＝[旧住所] & [郵便番号] & " " & [都道府県] & [住所1] & [住所2] & " " & Date() & " "
　　マクロの中止
　If文の最後
サブマクロの最後

サブマクロ：配送先開く
　フォームを開く　（F05取引先配送先新規, フォームビュー, , , , 標準）
　値の代入
　　アイテム　＝[Forms]![F05取引先配送先新規]![取引先コード]
　　式　　　　＝[Forms]![F05取引先編集]![取引先コード]
　値の代入
　　アイテム　＝[Forms]![F05取引先配送先新規]![配送先取引先名]
　　式　　　　＝[Forms]![F05取引先編集]![取引先名]
　マクロの中止
サブマクロの最後

サブマクロ：編集更新
　警告音
　If　IsNull([取引先コード])　Then
　　メッセージボックス　（訂正する取引先が表示されていません, はい, 警告, エラー）
　　コントロールの移動　（検索）
　　マクロの中止
　If文の最後
　If　MsgBox("訂正・編集したデータを更新してもよろしいですか？",4+32,"確認")=6　Then
　　メッセージの設定　（いいえ）
　　クエリを開く
　　　クエリ名　Q05取引先編集更新
　　　ビュー　データシート
　　　データモード　編集
　　メッセージボックス　（訂正・編集したデータを更新しました。, はい, なし, 完了）
　　マクロの実行
　　　マクロ名　M05取引先.編集キャンセル
　　マクロの中止
　Else
　　メッセージボックス
　　　メッセージ　中止しました。
　　　警告音　はい
　　　メッセージの種類　なし
　　　メッセージタイトル　中止
　　マクロの中止
　If文の最後
サブマクロの最後

サブマクロ：編集キャンセル
　値の代入　（[取引区分], 1）
　値の代入　（[取引先コード], Null）
　値の代入　（[取引先名], Null）
　値の代入　（[略称], Null）
　値の代入　（[フリガナ], Null）
　値の代入　（[郵便番号], Null）
　値の代入　（[都道府県], Null）
　値の代入　（[住所1], Null）
　値の代入　（[住所2], Null）
　値の代入　（[電話番号], Null）
　値の代入　（[FAX], Null）
　値の代入　（[URL], Null）
　値の代入　（[代表者], Null）
　値の代入　（[担当者], Null）
　値の代入　（[締め日], 6）
　値の代入　（[端数金額区分], 1）
　値の代入　（[端数金額区分仕入], 1）
　値の代入　（[メモ], Null）
　値の代入　（[営業担当者], Null）
　値の代入　（[登録日], Date()）
　値の代入　（[適格事業者番号], Null）
　値の代入　（[請求書郵便番号], Null）
　値の代入　（[請求書都道府県], Null）
　値の代入　（[請求書住所1], Null）
　値の代入　（[請求書住所2], Null）
　値の代入　（[請求書部署], Null）
　値の代入　（[請求書電話番号], Null）
　値の代入　（[銀行コード], Null）
　値の代入　（[銀行名], Null）
　値の代入　（[支店コード], Null）
　値の代入　（[支店名], Null）
　値の代入　（[口座種別], Null）
　値の代入　（[口座番号], Null）
　値の代入　（[口座名義], Null）
　値の代入　（[旧住所], Null）
　値の代入　（[検索], Null）
　値の代入　（[加工購入先表示], False）
　値の代入　（[加工加工先表示], False）
　値の代入　（[金型メーカー表示], False）
　再クエリ　（）
　マクロの中止
サブマクロの最後