wildcard search using visual basic
wildcard search using visual basic
(OP)
In Access, I have a form that uses a wildcard search but i can't seem to make it work.
Heres the code
I get a syntax at Me.Recordsource = findLibSQL
Thank you in Advance
Heres the code
CODE
Private Sub SEARCH_Click()
Dim findLibSQL As String
If IsNull(Me.SEARCH_DES) Then
MsgBox "Please enter search criteria.", , "Natural Catalog"
Me.SEARCH_DES.SetFocus
Exit Sub
End If
findLibSQL = "SELECT * FROM [PROGRAM_NAME]![Descritption] WHERE [SEARCH_DES] LIKE "
findLibSQL = findLibSQL + "*" + Me.SEARCH_DES + "*"
Me.RecordSource = findLibSQL
If Me.SEARCH_DES = "" Then
MsgBox "No records matching the criteria", vbExclamation, " Database -Library Search'"
End If
End Sub
Dim findLibSQL As String
If IsNull(Me.SEARCH_DES) Then
MsgBox "Please enter search criteria.", , "Natural Catalog"
Me.SEARCH_DES.SetFocus
Exit Sub
End If
findLibSQL = "SELECT * FROM [PROGRAM_NAME]![Descritption] WHERE [SEARCH_DES] LIKE "
findLibSQL = findLibSQL + "*" + Me.SEARCH_DES + "*"
Me.RecordSource = findLibSQL
If Me.SEARCH_DES = "" Then
MsgBox "No records matching the criteria", vbExclamation, " Database -Library Search'"
End If
End Sub
Thank you in Advance





RE: wildcard search using visual basic
findLibSQL = findLibSQL + "'*" + Me.SEARCH_DES + "*'"
Francis
RE: wildcard search using visual basic
Good Luck
johnwm
________________________________________________________
To get the best from these forums read FAQ731-376 before posting
Steam Engine enthusiasts: www.essexsteam.co.uk
RE: wildcard search using visual basic
RE: wildcard search using visual basic
Private Sub SEARCH_Click()
Dim findLibSQL As String
CODE
MsgBox "Please enter search criteria.", , "Natural Catalog"
Me.SEARCH_DES.SetFocus
Exit Sub
End If
findLibSQL = "SELECT * FROM Program_Name WHERE Program_Name.Description LIKE "
findLibSQL = findLibSQL + "'*" + Me.SEARCH_DES + "*'"
Me.RecordSource = findLibSQL
If me.search_des = "" Then
MsgBox "No records matching the criteria", vbExclamation, " Database -Library Search'"
End If
End Sub