Combo Requery

pipestew

Registered User.
Local time
Today, 06:57
Joined
Oct 3, 2007
Messages
19
Combo2 list items are based on the selection made in Combo1. The list displays correct the first time a selection is made in Combo1, but does not update if a new selection is made.

Combo1 = JobNum_Combo
Combo2 = ODWall_Combo

After Update Event Procedure.....

Private Sub JobNum_Combo_AfterUpdate()
Me.ODWall_Combo.Requery
End Sub

I am obviously missing something here. Hopefully a different perspective will discover it.
 
SELECT [JobNum].[JobNum], [JobNum].[Customer], [JobNum].[Project_Lease] FROM JobNum ORDER BY [JobNum];

SELECT [JobSetup].[JobID], [JobSetup].[OD], [JobSetup].[Wall] FROM JobSetup WHERE (((JobSetup.JobNum)=[Forms]![DailyProduct]![JobNum_Combo]));
 
SELECT [JobNum].[JobNum], [JobNum].[Customer], [JobNum].[Project_Lease] FROM JobNum ORDER BY [JobNum];<---Keep this the way it is.
SELECT [JobSetup].[JobID], [JobSetup].[OD], [JobSetup].[Wall] FROM JobSetup WHERE (((JobSetup.JobNum)=[Forms]![DailyProduct]![JobNum_Combo]));

Eliminate this Rowsource completely
Substitue for combo 2 rowsource
Code:
Private Sub JobNum_Combo_AfterUpdate()

  Me.ODWall_Combo.Rowsource = "SELECT JobSetup.JobID, JobSetup.OD, 
  JobSetup.Wall FROM JobSetup WHERE JobSetup.JobNum = [JobNum_Combo]"

End Sub
 

Users who are viewing this thread

Back
Top Bottom