顧客IDを入力すると顧客名や住所が表示されるように

Accessで、フォームから顧客テーブルにある顧客IDを入力すると、同じフォーム内にある「顧客住所」や、「電話番号」など、顧客テーブルに登録してある情報が表示されるようにするには、どうすれば良いでしょうか？

環境は
WindowsXP
Access2003
です。

No.1 ベストアンサー 回答者： imogasi 回答日時： 2011/06/02 19:03

顧客番号を入力すると、テーブルにある情報（顧客住所）を表示したい,

ということは検索（選択）の要素があることは判りますね。
形式にこだわらなければ、選択クエリのパラメータクエリで本件は
出来ることも知ってますか。
フォームの場合、質問で言うテーブルを新規の段階で指定すると、連結してしまって
旨く顧客番号を指定することが難しくなる。
ーー
其れで、フォームに非連結で、３つのテキストボックスを設ける。
検索スタート用のコマンドボタンを設ける方が良いだろう。
ボタンをクリックしたとき、ということなので「イベント」を使わざるを得ない。
１つは顧客番号入力等のテキストボックス、あと２つは顧客番号でテーブルを
検索し情報を表示する。今のところは、１顧客番号で、テーブルで１レコードとする。
ーー
例データで説明。
社員2 テーブル
ID氏名住所電話番号
1山田 三郎東京都大田区０３－２３４５－６５４３
2大島　義男東京都品川区０４２－２３４５－２３４５
3下田　茂　　　　　仙台市青葉区０７２０－３４－３４５６
4小出　健二名古屋市緑区０４２－３４５－２３４５
5中田 卓　　　　福岡市北区０７５２３－２３４５６
6山田 三郎大阪市北区
7中田 卓　　　　東京都豊島区
8今村　三郎奈良市西大寺０７５－２３４－１２３４
9木見　明　　　　和歌山市　　　　０７６－１１１－１１１１
10木見　研　　　　新宮市　　　　０８３－１２３－１２３４
ーー
フォーム

　　　　　テキスト３

　　　　　テキスト１

　　　　　テキスト５
　　　　　　　　　　　　コマンド0(ボタン)
３，１，５は私の場合であって、実際質問者の場合の名前で下記コードの
テキスト3 などの数字を変えてください。
ーーー
ボタンのクリックイベントに
Private Sub コマンド0_Click()
テキスト3.SetFocus
Dim SQL As String
SQL = "SELECT 氏名,住所 "
SQL = SQL & "FROM 社員2 "
SQL = SQL & "where 社員2.ID = " & テキスト3.Text
Me.RecordSource = SQL
Me.テキスト5.ControlSource = "氏名"
Me.テキスト1.ControlSource = "住所"
End Sub
----
テキスト３に7
と入れてボタンをクリックする。
ーー
フォームの結果は
　　７
　　東京都豊島区
　　中田　卓


と
なります。
ーーー
VBAを使っていますが、使わない回答が出るかどうか。
本質問は、基本的なことで、たやすいようで難しいと思う。