I have created and unbound form with a 'Button' object and an unbound text box named DrawingNbrBox
The 'OnClick' event for the Item Button is as follows:
Private Sub ItemButton_Click()
Dim ThisDatabase As Database
Dim RcdSt As Recordset
Dim SqlString As String
Dim RequestedItem As String
Set ThisDatabase = CurrentDb
'User input for Item Number
RequestedItem = InputBox("Enter Item Number"

SqlString = "SELECT Drwngs.* FROM Drwngs WHERE (((Drwngs.xref_item_nbr)=""" & RequestedItem & """

); "
Set RcdSt = ThisDatabase.OpenRecordset(SqlString, dbOpenDynaset)
With RcdSt
RcdSt.MoveFirst
Do While Not RcdSt.EOF
Me.DrawingNbrBox = (RcdSt!xref_dwg_nbr)
RcdSt.MoveNext
Loop
End With
RcdSt.close
End Sub
Using an item number known to have 4 records in a standard query will result in four(4) records. The above method returns four(4) records but one at a time. It will not list all 4 records at the same time on the form. The sql string is in deed returning the proper number of records, I just can't seem to get them displayed at the same time on the same form.
thx again
RGB