Forms AfterUpdate

[IqbalEva]

I have a form and a subform. After updating one of the cboBox in the main form [Supplier] I would like the cboBox [Products] in the subform to filter out only the products from the supplier selected above. Currently the subform picks all the products from all suppliers.

[kadghar]

I have a form and a subform. After updating one of the cboBox in the main form [Supplier] I would like the cboBox [Products] in the subform to filter out only the products from the supplier selected above. Currently the subform picks all the products from all suppliers.

and your data base is in SQL? excel? access?? or is it a list you have in a combo or a listbox?

[RogerThis]

I have a similar question.
In the "Filter part" of the form, combo boxes populate the data for YearFilter and Cat(egory)Filter. The default values are preload and the filter works "On Load", but I can't get the data to refresh in the sub-form.. I also tried requery

The "AfterUpdate" of the ComboBox, I have

Private Sub cboYearFilter_AfterUpdate()
[Forms]![frmMainMenu]![txtCorpPgmYear] = cboYearFilter
Call ApplyCorpFilters
End Sub

-----------------------------
Private Sub Form_Load()
Call ApplyCorpFilters
Me.Refresh
End Sub
---------------------------------
Private Sub ApplyCorpFilters()
Me.AllowFilters = True

YearFilter = [Forms]![frmMainMenu]![txtCorpPgmYear]
CatFilter = [Forms]![frmMainMenu]![txtCorpCategoryFilter]

If CatFilter <> "(All)" Then
strFilter = "([Year] = '" & YearFilter & "' AND [Category] = '" & CatFilter & "')"
Else
strFilter = "[Year] = '" & YearFilter & "'"
End If

Me.RecordSource = "SELECT CorpPrograms.* FROM CorpPrograms WHERE " & strFilter & " ORDER BY CorpPrograms.CorpProgram"
Me.Refresh
End Sub