![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
Access2000で質問です。
「顧客テーブル」を作ります。
顧客テーブルには以下のフィールドを設けます。
顧客ID(主キー)
名前
TEL
住所
変更住所
顧客IDから住所まではすでにデータが入っています。
「変更住所」に新しくデータを入れていきます。
その際に、フォームを利用したいと思っていますが、
新規フォーム(何もデータが入っていない)に顧客IDを入れたら、すでに顧客テーブルに入力されている名前、TEL、住所がパッと表示され、変更住所だけが空欄で表示されるようなフォームを作りたいと思います。
どのような方法がありますでしょうか?
ぜひお知恵を貸してください。よろしくお願いいたします。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
すいません。
顧客IDの更新後の[イベント プロシージャ]が間違っていましたので訂正いたします。
Me!名前 = Null: Me!TEL = Null: Me!住所 = Null: Me!変更住所 = Null
Dim db As Database, trm As Recordset, tyuusitu As String
Set db = CurrentDb
Set trm = db.OpenRecordset("顧客テーブル", dbOpenDynaset)
tyuusitu = "顧客ID='" & Me![顧客ID] & "'"
trm.FindFirst tyuusitu
DoCmd.GoToControl "変更住所"
If IsNull(Me![顧客ID]) Then Me![顧客ID] = 0
DoCmd.FindRecord Me!顧客ID, acEntire, True, , True, , True
If Me!顧客ID <> trm!顧客ID Then MsgBox "No." & Me!顧客ID & " の顧客ID が見つかりません。@ 顧客IDを確認して下さい。@", vbCritical, "検索顧客IDエラー": Me!顧客ID = Null: Me!名前 = Null: Me!TEL = Null: Me!住所 = Null: DoCmd.GoToControl "顧客ID": Exit Sub
Me![名前] = trm![名前]: Me![TEL] = trm![TEL]: Me![住所] = trm![住所]
trm.Close
No.1
- 回答日時:
AccessVBAを使用すれば簡単ですが馴れていないのなら参考にして下さい。
初めに非連結の住所変更フォームを作成します。
テキストボックスは、顧客ID・名前・TEL・住所・変更住所を作成し、顧客IDのイベントの更新後処理にコードビルダを起動し下記をコピー貼り付けして下さい。
Me!名前 = Null: Me!TEL = Null: Me!住所 = Null: Me!変更住所 = Null
Dim db As Database, trm As Recordset, tyuusitu As String
Set db = CurrentDb
Set trm = db.OpenRecordset("顧客テーブル", dbOpenDynaset)
tyuusitu = "顧客ID='" & Me![顧客ID] & "'"
trm.FindFirst tyuusitu
DoCmd.GoToControl "変更住所"
If IsNull(Me![顧客ID]) Then Me![顧客ID] = 0
DoCmd.FindRecord Me!顧客ID, acEntire, True, , True, , True
If Me!顧客ID <> trm!顧客ID Then MsgBox "No." & Me!顧客ID & " の納品票が見つかりません。@ 納品票番号を確認して下さい。@", vbCritical, "検索顧客IDエラー": Me!顧客ID = Null: Me!名前 = Null: Me!TEL = Null: Me!住所 = Null: DoCmd.GoToControl "顧客ID": Exit Sub
Me![名前] = trm![名前]: Me![TEL] = trm![TEL]: Me![住所] = trm![住所]
trm.Close
次に変更住所のイベントの更新後処理にコードビルダを起動し下記をコピー貼り付けして下さい。
Dim db As Database, trm As Recordset, tyuusitu As String
Set db = CurrentDb
Set trm = db.OpenRecordset("顧客テーブル", dbOpenDynaset)
tyuusitu = "顧客ID='" & Me![顧客ID] & "'"
trm.FindFirst tyuusitu
trm.Edit
trm![変更住所] = Me![変更住所]
trm.Update: trm.Close
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access2013VBA 複数のテーブル...
-
シングルクォーテーションとダ...
-
Accessデータベースで行と列を...
-
Access VBAでクエリーのレコー...
-
Access IF文でテーブルに存在し...
-
Access レコードロックについて...
-
ACCESS で マクロの中でフィ...
-
Access フォームのデータがテー...
-
ACCESSについて質問させ...
-
Access 縦(行)のデータを横(列)...
-
ファイルメーカーの集計につい...
-
別のDBからテーブルをコピーす...
-
Access2000 フォームからレコ...
-
データベースの1要素に複数デー...
-
Access 既に開いているフォー...
-
顧客IDを入力すると顧客名や住...
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
「直需」の意味を教えてください
-
Oracle 2つのDate型の値の差を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access フォームのデータがテー...
-
Access IF文でテーブルに存在し...
-
Access VBAでクエリーのレコー...
-
ワードでの単純作業の効率化に...
-
ACCESS で マクロの中でフィ...
-
データベースの1要素に複数デー...
-
顧客IDを入力すると顧客名や住...
-
Accessで名寄せグループの関係...
-
別のDBからテーブルをコピーす...
-
シングルクォーテーションとダ...
-
Access 縦(行)のデータを横(列)...
-
Accessデータベースで行と列を...
-
ワードで保存するファイル名の...
-
Access 既に開いているフォー...
-
ADOでレコードを閉じるタイミン...
-
Access クロス集計クエリについて
-
ACCESS2003 Aアクロバットを介...
-
Access レコードロックについて...
-
Access2000 単票フォーム上の...
-
ファイルメーカーの集計につい...
おすすめ情報