フォーム内で複数のレコードを表示
アクセスで、表形式のサブフォーム(S_フォーム)を作成し、データを入力するとテーブル(T_明細)に追加されるようになっています。これをサブフォームのテキストボックスに入力するのではなく、別のクエリ(Q_クエリ)にあるデータを実行ボタンを押すことでサブフォームのテキストボックスに表示するようにし、テーブルのレコード(何件もある)を入力させていきたいと思っています。下記のようにコードをまず作成してみました。
Public Db As Database
Public rs As Recordset
Private Sub 実行_Click()
Dim Temp_count As Integer
Dim I As Integer
Set Db = CurrentDb
Set rs = Db.OpenRecordset("Q_クエリ", dbOpenDynaset)
Temp_count = DCount("ID", "Q_クエリ")
For I = 1 To Temp_count
If IsNull(rs![氏名]) = False Then 氏名テキスト = rs![氏名]
If IsNull(rs![住所]) = False Then 住所テキスト = rs![住所]
rs.MoveNext
Next I
End Sub
すると、ループした内容が全て同じテキストボックスに上書きされていき、結局1つのレコードしか追加できない状態です。入力操作でENTERしていくとサブフォーム内で複数のレコードが入力出来るように、出来ないでしょうか??良い記述があれば教えてください。お願い致します。