Populate Combo Box Based on Filtered Data (1 Viewer)

[rede96]

Hi All,

I have a combo box which is used to find and select records in a continuous form.

I'm to figure out just how to populate the combo box with records in after a filter has been applied to the form, so the combo box only shows the records being displayed and not all the records.

I am using the form filter to set the filter.

Can anyone help please?

 

[Ranman256]

you would have to rebuild the combo query based on the filter.

Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
if  me.filterOn then
  cboBox.rowsource = "select [field] from table where " & me.filter
else
   cboBox.rowsource = "select [field] from table 
endif
End Sub

 

[arnelgp]

If youre combo has same table as with your form you apply the filtet to your combo bychanging its rowsource filtered. See the code behind the form.

 

[rede96]

you would have to rebuild the combo query based on the filter.

Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)
if  me.filterOn then
  cboBox.rowsource = "select [field] from table where " & me.filter
else
   cboBox.rowsource = "select [field] from table 
endif
End Sub

If youre combo has same table as with your form you apply the filtet to your combo bychanging its rowsource filtered. See the code behind the form.

Thanks to both of you. The record source for the form already has a WHERE clause, but I think you've shown me a way to edit the combo row source when I apply and remove the filter.

Thanks!