combo box does not populate records

[GelC]

Hi all,
I have a search form base on combo box, when click Search, it should give me all records which match "Type" in my table.
I'm not sure what to do. Thanks for any help

Private Sub cmdSearch_Click()
If Me.cbType.Value = "(All)" Then
DoCmd.OpenForm "frmAllRecord"
Else
DoCmd.OpenForm "frmAllRecord", , , [Type] = " & me.cbType "  
End Sub

My frmAllResord based on a query

SELECT tblAllReports.*
FROM tblAllReports
WHERE (((tblAllReports.Type)=([Form]![frmSearch]![cbType])));

 

[PHV]

Remove the WHERE clause of frmAllResord's RecordSource !

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[GelC]

PHV,
Thanks, I've tried it before.

 

[PHV]

And what happens now without the where clause ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[GelC]

That's right. I tried my qry without WHERE clause

SELECT tblAllReports.*
FROM tblAllReports
[code]
Is it because cbType is UNBOUND?

 

[PHV]

And doesn't now your search form work as expected ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[GelC]

PHV, Do yo mean with qry without WHERE clause as you suggested

SELECT tblAllReports.*
FROM tblAllReports

The search does not work at all.

 

[PHV]

What is the data type of tblAllReports.Type ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[GelC]

Data type for tblAllReports.Type is text
This should be very simple search. I don't know why it did not work on my form.
Thanks

 

[PHV]

So, frmAllRecord is not open and don't have the where clause in this RecordSource and no special code in the Open and Load event procedures.
what about this ?

Private Sub cmdSearch_Click()
If Me!cbType.Value = "(All)" Then
  DoCmd.OpenForm "frmAllRecord"
Else
  DoCmd.OpenForm "frmAllRecord", , , [!]"[/!][Type]=[!]'[/!]" & Me!cbType [!]&[/!] "[!]'"[/!]
End Sub

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[GelC]

I did not even work with your code.
I might have to restart over. Hope it does something
Thanks a lot for your help, PHV.

GelC