run-time error 424 object required

[tony6844]

Hi
I am new at this could someone point me in the right direction
[CODE=VB]

Private Sub cmdSearch_Click ()

If Len(cboSearchFi eld) = 0 Or IsNull(cboSearc hField) = True Then
MsgBox "You must select a field to search."

ElseIf Len(txtSearchSt ring) = 0 Or IsNull(txtSearc hString) = True Then
MsgBox "You must enter a search string."

Else


GCriteria = cboSearchField. Value & " LIKE '*" & txtSearchString & "*'"


Form_frmDVDProg rams1.RecordSou rce = "select * from DVDPrograms where " & GCriteria
Form_frmDVDProg rams1.Caption = "DVDProgram s (" & cboSearchField. Value & " contains '*" & txtSearchString & "*')"


DoCmd.Close acForm, "frmSearch"

MsgBox "Results have been filtered."

End If

End Sub

[/CODE]

Problem with the line
[CODE=VB]
Form_frmDVDProg rams1.RecordSou rce = "select * from DVDPrograms where " & GCriteria
[/CODE]

[smartchap]

Please check if table DVDPrograms or form Form_frmDVDProg rams exits. It appears that either of them is not found / set in the form.

[lotus18]

Double-check if the field is really existing or not. Uhm... Why don't you try to replace the asterisk character (*) with percent sign (%). This is only just a suggestion : ).

Rey Sean

[rpicilli]

Hi there.

The line below is not correct.

GCriteria = cboSearchField. Value & " LIKE '*" & txtSearchString & "*'"

When you use the LIKE and you desire to get similar words you need to supply the symbol % not *

Your line should be (pick just one) depending what you expect from your query.

GCriteria = cboSearchField.Value & " LIKE '%" & txtSearchString & "'"
                                      
or

GCriteria = cboSearchField.Value & " LIKE '" & txtSearchString & "%'"

or 

GCriteria = cboSearchField.Value & " LIKE '%" & txtSearchString & "%'"

[tony6844]

Thanks

Thanks for your input but still failing at the same line of code and have tried all your suggestions

Tony

[debasisdas]

try using this

GCriteria = cboSearchField.list(cboSearchField.ListIndex) & " LIKE  '%" & txtSearchString & "%'"

[Stewart Ross]

You have not posted the value of GCriteria, which includes the item selected from your combo (your search field names). I would guess these field names have spaces in them. Spaces in the field name within the WHERE part will cause a run-time error unless you use the correct syntax for the DB engine concerned. You don't say what the DB is, so I'll assume it is Jet (Access) for now.

You will need to include the field name in brackets in your SQL string for the syntax to be correct.

GCriteria = "[" & cboSearchField & "] LIKE '*"

If indeed it is the Jet database engine you are accessing then the wildcard character for use with Like is the "*" and not the "%". On the other hand you might be accessing a different DB back-end in which the '%' is the wildcard - we don't know because you have not told us what DB you are using.

-Stewart