run sql query for each record in a contious form

[Kevin.S.Campbell]

Greetings,

I'm trying to run a sql query on a continous form. I have the
query working correctly the way I want it. I want this query to be
displayed on the form in the text box on the load event of the form.
Each record in the continous form should have different results for the
same query. My query bases the results on a Where condition of the
primary key of the table. So when the form loads, it displays only the
results for the first item in the query. The first record will have
the correct query result. Each succeeding record will show the results
for the first record. How can I correct this in vba? Here is my code
snippet:

Private Sub Form_Load()

Dim SQLString As String
Dim db As dao.Database
Dim rs As dao.Recordset
Dim tests As String

'me.testnumber is the primary key
Set db = CurrentDb
SQLString = "SELECT DISTINCT Test, TestNumber FROM DATA WHERE
TestNumber = " &
Me.TestNumber.Value

Set rs = db.OpenRecordset(SQLString)

tests = "Tests:" & Chr(13) & Chr(9)
Do While rs.EOF = False
tests = tests & rs.Fields("Test").Value & Chr(13) & Chr(9)
rs.MoveNext
Loop

rs.Close
Set rs = Nothing

'display result
Me.txtResult.Value = tests

End

Regards,
Kevin

[pietlinden]

why not just pass in the primary key of the parent record? Then you'd
get a recordset of the child records and could manipulate that way?