テーブルのデータをフォームに表示したい。

質問

テーブルのデータをフォームに表示したい。
Access2003で顧客管理のシステムを作成しています、
下記コードで検索フォームより顧客フォームを開き顧客テーブルのデータを渡していますが、
現在では顧客データを渡したいフォームが増えた為、各フォームにtxt顧客コードを設けて
標準モジュールで行った方が良いかと思うのですが、どの様にしたら良いか解りません。
良い方法がありましたらご教授よろしくお願いいたします。

Dim rs As ADODB.Recordset

Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "T顧客", cn, adOpenKeyset, adLockOptimistic
rs.Find "顧客コード=" & Forms!F顧客検索!S顧客.Form.顧客コード
Forms!F顧客!txt顧客コード = rs!顧客コード
Forms!F顧客!cmb顧客区分 = rs!顧客区分
Forms!F顧客!txt顧客名 = rs!顧客名
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing

回答No.1

piroin654 · ベストアンサー

顧客フォームは形式が同じならば、
検索フォームからデータを送るのではなく、
開いたフォームが検索フォームのデータを
参照して表示するデータを選択するように
すればどうですか。
顧客ごとにフォームの形式が違えば
使えませんが。

たとえば、以下はDAOでのコードですが、
顧客フォームが開いたときの一例です。
顧客フォームに張り付けたコードです。

Private Sub Form_Open(Cancel As Integer)
If IsLoaded("frm顧客検索") Then
If Not IsNull(Forms![frm顧客検索]![txt顧客コード]) Then
Me.RecordsetClone.FindFirst "[顧客コード] = " & Forms![frm顧客検索]![txt顧客コード]
Me.Bookmark = Me.RecordsetClone.Bookmark
End If
End If
End Sub

お礼

返答ありがとうございます。
これは連結のｔｘｔBox用ですか？
そうであれば説明不足で大変申し訳ありません、フォーム、txtBox共に非連結で作成しております。
回答よろしくお願いいたします。

回答No.2

piroin654

>If IsLoaded("frm顧客検索") Then

のIsLoaded関数はマイクロソフトの
サポートにあるものです。

お礼

回答ありがとうございます。
IsLoaded関数についてあさってみました。

「使い方としては、以下のような場面が考えられます。」

(1)特定のフォームが開いていたら別の処理を行わせる。
(2)サブフォームを単独で開けないように警告メッセージを発する。

とありました、なんとなく今回は(1)の場合かなと思うのですが、自分のレベルでは今回の処理でピンときません・・・（T T）
お手数掛けますがもう少しヒントを頂けたらと思います。
素人ですいません。