Refreshing a Forms Data

[BobLoblaws]

I have a form that I created through the wizard.
It is a columnar form.
At the top of the form there is a textbox. When a customerID is typed into the textbox and enter is hit, the query is changed to only select that customers records.
Then the rows of records are displayed in the underneath.
The default query is select none. That works when the form opens.
When I type the customer and hit enter, it changes the query correctly.
The problem is that I cannot get the form to re-select the data from the query.

I have tried Requery, Recalc...
What am I missing?

Thanks

 

[jimmythegeek]

I think this will work:

Me.Filter = ""
Me.Requery Jim Lunde
compugeeks@hotmail.com
We all agree your theory is crazy, but is it crazy enough?

 

[BobLoblaws]

Okay, now how do I tell a subform to requery?

 

[jimmythegeek]

Try this:

Me.sbfrmStores.Form.Filter = ""
Me.sbfrmStores.Form.Requery Jim Lunde
compugeeks@hotmail.com
We all agree your theory is crazy, but is it crazy enough?

 

[BobLoblaws]

This is the onclick event for a command button

Private Sub cmdGetInfo_Click()

Dim qd

Set qd = CurrentDb.QueryDefs("qryTest&quot
txtCustomer.SetFocus
qd.SQL = "SELECT * FROM tblTest WHERE PartID='" & txtCustomer.Text & "';"
qd.Close

Me.frmSubForm.Form.Filter = ""
Me.frmSubForm.Form.Requery

End Sub

The subform pulls it's info from qryTest.
The query updates, but the subform is not pulling the correct information. It keeps pulling the info it already has. ???

 

[BobLoblaws]

I tried this and it works.

Me.frmSubForm.Form.RecordSource = "SELECT * FROM tblTest WHERE PartID='" & txtCustomer.Text & "';"
Me.frmSubForm.Form.Requery

Thanks for your help.