Search Command

[Meccer]

Hello,
I want to open a Report (Contacts), with a search command I've got a textbox for the search keyword (txtSearch) and a dropdown to select the column in the database to search in (ddCategory).

Here is my code, but nothing happens when I press the button;

Private Sub SearchContacts_Click()
 
 DoCmd.OpenReport "Contacts", acViewPreview, , "ddCategory like '*" & txtSearch & "*'"
End Sub

[pmacbeth]

I would try

DoCmd.OpenReport "Contacts", acViewPreview, , ddCategory & " like '*" & txtSearch & "*'"

[Meccer]

Thank you for the response,
Unfortunately the button is still not doing anything, even if there is text or no text in the TextBox.

[ssanfu]

To make sure the button is connected to the code, try this:

Private Sub SearchContacts_Click()
 
   msgbox  "text search is" & Me.txtSearch

End Sub

If the message box is displayed, try:

Private Sub SearchContacts_Click()

   msgbox  "[ddCategory] like '*" & Me.txtSearch & "*'"

End Sub

Next, try:

Private Sub SearchContacts_Click()

    DoCmd.OpenReport "Contacts", acViewPreview

End Sub

Then try:

Private Sub SearchContacts_Click()
    dim strCriteria as string

    strCriteria =  "[ddCategory] like '*" & Me.txtSearch & "*'"
    DoCmd.OpenReport "Contacts", acViewPreview, , strCriteria

End Sub

[pmacbeth]

I don't know why it's not working, but if you put the name of the dropdown between quotation marks as in

strCriteria = "[ddCategory] like '*" & Me.txtSearch & "*"

you don't get the name of the column in the string strCriteria, but the name of the dropdown...

That should be

strCriteria = Me.ddCategory & " like '*" & Me.txtSearch & "*"

[Meccer]

Ok it seems that the code is not connected to the button, Ssanfu I tried your first piece of code and still nothing.

I've deleted everything and started over, and still I get nothing.

[ssanfu]

You deleted the code, deleted the button, created a new button, renamed the button, clicked on the "On Click" property, then added the message box line of code?

And still nothing????

[Meccer]

Sorry for the inconvienence, macro's was not enabled.

Thanks for all the help

[ssanfu]

So you will mark the thread solved??

[Meccer]

One more question; I tested all of your code.

The textbox (txtContacts) gives the correct answer.
ddContacts is a dropdown with three values; name, company and job the user must choose one of these options (this is the field to search in).
but on the message box I get ddContacts and not the value.

[ssanfu]

One more question; I tested all of your code.

The textbox (txtContacts) gives the correct answer.
ddContacts is a dropdown with three values; name, company and job the user must choose one of these options (this is the field to search in).
but on the message box I get ddContacts and not the value.

What is the bound column of the comb box?? That is the value that the comb box returns unless you use the columns property.
(What is the SQL of the combo box?)

[Meccer]

I've managed to figure it out, the problem was with the quotation marks in the search criteria; (how do a mark a post solved?)

Dim CB As String
Me.ddContacts.SetFocus
CB = Me.ddContacts.Text

strCriteria = CB & " like '*" & Me.txtContacts & "*'"
DoCmd.OpenReport "Contacts", acViewReport, , strCriteria