変数に取得した値をテキストボックスやコンボボックスに表示させた

質問

アクセスで、変数に取得した値をテキストボックスやコンボボックスに表示させたいと思っています。例えば、まずクエリをひとつ作成します。そのクエリのレコードをループで配列変数に取得していきます。フィールド（IDと名前）レコード（件数は2件とします）

public ID(2) as String
public 名前(2) as String

Sub temp()
Dim Db As Database
Dim rs As Recordset
Dim I As Integer
Set Db = CurrentDb
Set rs = Db.OpenRecordset("Q_クエリ", dbOpenDynaset)

rs.MoveFirst

For I = 1 To 2

If IsNull(rs![ID]) = False Then ID(I) = rs![ID]

If IsNull(rs![名前]) = False Then 名前(I) = rs![名前]

rs.MoveNext
Next I

rs.Close
Db.Close

End Sub
（この時点で変数に値は入っているようです。）
フォームで作成したテキストボックスやコンボボックスに実行ボタンをクリックすると表示するというコードは下記のように記述してみました。

Private Sub 実行_Click()

Call temp （標準モジュールを呼び出す）

ID = ID(1)
　　　　名前 = 名前(1)
（2)省略

End Sub

すると、かならず「実行時エラー'13';　型が一致しません。」とエラーが出ます。なにぶんVBA初心者になりますので、ご教授お願い致します。ちなみに同じような方法で、同一フォーム内に2つテキストボックスを用意し、片方に値を入力して実行するともう一方のテキストボックスにその値が表示すると言う実験は成功しています。もっと他に良いコードがあれば教えて下さい。お願いします。

回答No.2

laputart · ベストアンサー

ID = ID(2)
名前 = 名前(1)

でエラーになります
ID(2)という変数を宣言しているので
ID が使えないのです。
Me!ID = ID(2)という事の出来ますが
混同しやすいので

Dim XID(2) とか別の変数名を使う方が
わかりやすいでしょう。

別回答
変数を使わずに直接フォームモジュールで
データベースの値を取得する事も可能です。

Public Db As Database
Public rs As Recordset
で宣言しておいてから

Private Sub 実行_Click()
Set Db = CurrentDb
Set rs = Db.OpenRecordset("Q_クエリ", dbOpenDynaset)

rs.movefirst
ID = rs!ID
名前 = rs!名前

End Sub

補足

ありがとうございますm(__)m　表示しました！！そこで追加でお聞きしたいんですが、フォームで表示する際に何件かレコードがあるので、フォームの２件目にレコード２件目を、フォームの３件目に３個目のレコードをと言う風には出来ますでしょうか？

回答No.1

maruru01

こんにちは。maruru01です。

配列変数の名前とテキストボックスやコンボボックスの名前が同じなのはよくないと思います。

ID = ID(1)

とした場合に、左辺の「ID」は配列変数と認識されているのではないでしょうか。
その場合、左辺が配列で、右辺が単独の変数なのでエラーになるのではないでしょうか？
したがって、テキストボックスやコンボボックスの名前を変更するか、

Me!ID.Value = ID(1)

のようにプロパティを付ければ、いいと思います。
「名前」の方も同様です。

補足

返答ありがとうございます。名前も変えて試してみたのですが、やはり同じエラーが出ます。標準モジュールで実行している間はきれいに配列変数に値が代入されているのですが、それをフォームで使おうとするとそこで型が一致しないというエラーになるようです。