| |
どうかお助けを〜
表形式のフォームを作成し、テキストボックスに非連結でテーブルのデータを持ってくるようにしましたが、最後に読み込んだデータが全レコードに入ってしまいます。読み込んだデータをそれぞれレコード別に入れていくにはどうしたらいいのでしょうか？
顧客コード
１
２
３
４
↑こうしたいのに
↓こうなってしまいます・・・
顧客コード
４
４
４
４
Dim recAdress As New ADODB.Recordset
Dim vntArray As Variant
Dim vntTemp As Variant
recAdress.Open "顧客マスタ", CurrentProject.Connection, adOpenKeyset,
vntArray = recAdress.GetRows(, , "顧客コード")
For Each vntTemp In vntArra
Me.顧客コード = vntTemp
Next
全部同じ「Me.顧客コード」に入れちゃってるのでこうなる理由は分かるのですが、レコード別に「Me.顧客コード」を指定してやる書き方がわかりません。それとも考え方が根本的に間違ってるのでしょうか？
うまく説明もできてるかどうかわかりませんがよろしくお願いします。
Accessは2000です。
|
|
ｷｬｯﾋﾟｰ
- 04/9/22(水) 16:57 -
