code to update cascade control

S

Sin

In simple terms, I have a form with 2 pages, page 1 contain the company name
(call this field "Company") and page 2 contain 3 unbound list box working as
filter selection, the data of the list boxes comes from "queries.qryInfo".
List box 1 is the distinct UWYear conditioned to the company selected in page
1, list box 2 is the Type of product conditioned to the selection in Company
and UWYear. List box 3 is the Product conditioned to selection in the other
3 box. The problem is after making a selection, the form seems to lock
itself with the one UWYear, if I scroll to the next record, data will not
udpate. The following is the codes I used for the scroll bar:

DoCmd.GoToRecord , , acNext

Me.UWYear.Undo
Me.Type.Undo
Me.Product.Undo

Me.UWYear.RowSource = ""
Me.Type.RowSource = ""
Me.Product.RowSource = ""

Me.Type.Enabled = False
Me.Product.Enabled = False

Me.UWYear.RowSource = "SELECT DISTINCT [UWYear] FROM [qryExcel]"

I've also tried to use "Queries.qryInfo.Requery" before the last line, but
system does not recognise the query table name. In addition I have also
tired to use "Me.UWYear.Requery at the beginning or end of the code, but it
won't work either.
 
Top