Filter by Combo box in form

[aliaslamy2k]

Hi,


I have created a form where i want to add combo box to fliter.When I tried to enter below code i always get error.
I dont understand what's wrong with below code. Please help me correct this code.




Private Sub CmbSearch_AfterUpdate()
Dim SearchOwnerList As String
SearchOwnerList = "Select * from Fleets DB where([Owner] = " & Me.CmbSearch & ")"
Me.FleetsDBsearch1.Form.RecordSource = CmbSearch
Me.FleetsDBsearch1.Form.Requery
End Sub

Regards,
AB

[orange]

What error message do you receive? If Owner is a text datatype you'll need to account for this in the SQL.

Private Sub CmbSearch_AfterUpdate()
Dim SearchOwnerList As String
SearchOwnerList = "Select * from Fleets DB where([Owner] = '" & Me.CmbSearch & "')"
Me.FleetsDBsearch1.Form.RecordSource = SearchOwnerList
Me.FleetsDBsearch1.Form.Requery
End Sub

Review the Similar Threads at the bottom of this page.

[Bob Fitz]

Try:

Private Sub CmbSearch_AfterUpdate()
Dim SearchOwnerList As String
   SearchOwnerList = "Select * from Fleets DB where([Owner] = " & Me.CmbSearch & ")"
   Me.FleetsDBsearch1.Form.RecordSource = SearchOwnerList
   Me.FleetsDBsearch1.Form.Requery
End Sub

Or even:

Private Sub CmbSearch_AfterUpdate()
   Me.FleetsDBsearch1.Form.RecordSource = "Select * from Fleets DB where([Owner] = " & Me.CmbSearch & ")"
   Me.FleetsDBsearch1.Form.Requery
End Sub

[aliaslamy2k]

I am getting same error every time i run the code. I have struggling with this from past 3 days

[aliaslamy2k]

Hi Orange,

Yes it started working now Thank you so much
But its not filtering two names from combo box, rest all is fine.

I have 14 company names in the combo box and i am able to filter 12 out of 14. I am not sure what must be the reason for not filtering those two names. I mean when i select this names nothing happens

[Bob Fitz]

Show us the Row Source property of the combo box.

What is the name of the table that has the field called "[Owner]" ?

What Data Type is the "[Owner]" field?

[aliaslamy2k]

Row Source of Combo Box property:
SELECT [AllOwnerCompanies Query].[Owner] FROM [AllOwnerCompanies Query] ORDER BY [Owner];

Table Name: Fleets DB
Field Name: Owner (Data Type: Short text)