Combo box property

[monarips]

Dear friends,
plz help me out in setting the property of the combo box ...
the property of ALL where if the user selects the all field then all the results are shown.
example in a table of category_id .
a combo box showing the category_Id .
Table Category
fields
Category_Id
and Category_Name
values
1 Cars
2 Trucks
if the user selects ALL in combo box then all the results should be shown.
so a combo box should have values
All
1
2
plz tell me if u understand.
Thanks a ton in advance
mail at monarips@yahoo.ca
Thanks
Mona

 

[VBslammer]

Just add a row to the category lookup table for 'All' and then base a query on the result.

0 All
1 Cars
2 Trucks

In the AfterUpdate() for the combo, just change the recordsource for the form or whatever using a where clause:

Private Sub cboCategory_AfterUpdate()
  Dim strWhere As String
  
  If Me!cboCategory = 0 Then
    strWhere = ""
  Else
    strWhere = " WHERE [VehicleType]=" & Me!cboCategory
  End If

  Me.RecordSource = "SELECT * FROM Vehicles" & strWhere

End Sub

VBSlammer

Unemployed in Houston, Texas