Syntax: Wild Character with a String in VBA? - Microsoft Community

[zashaikh]

Hello



I am using the following code (along with a module) to search for a string of text.

Private Sub btnSuspectORSearch_Click()
Dim strCriteria As String

strCriteria = "FindAnyWord([Suspect Name],""" & Me.SuspectField & """)"
strCriteria = strCriteria & "OR FindAnyWord([Suspect Information.Suspect Alias],""" & Me.SuspectField & """)"

DoCmd.OpenForm "frmSuspectSearch", _
WhereCondition:=strCriteria, _
WindowMode:=acDialog
End Sub

How do I add the Like "*" qualifier to both ends for both fields I am searching through? For example, in a simple query, I would do Like "*" & WORD & "*"

[ranman256]

we dont know what FindAnyWord does.

[orange]

I agree with Ranman256. Not enough info and no context
Please give us
-a description of what you're trying to accomplish in plain English(no jargon),
-the design of table(s) involved,
-the code related to the function FindAnyWord.

Did you test your function with some sample data and ensure it works consistently, before getting involved with the Form?
Breaking the issue into steps and solving each, then combinations of steps is a good learning tool and usually quite efficient with your time.

Good luck

[zashaikh]

Please forgive me! I am still learning Access.

The FindAnyWord function is below:

Public Function FindAnyWord(varFindIn, strWordList As String) As Boolean

Dim var
Dim aWords

aWords = Split(strWordList, ",")

For Each var In aWords
If FindWord(varFindIn, var) Then
FindAnyWord = True
Exit Function
End If
Next var

End Function

Basically, I am trying to create a search form that searches through multiple fields across multiple tables (ie: the whole database). I have been using the FindAnyWord function to help me. If I search for "John,Smith,Anderson" I will get a return of all fields that contain either John, Smith, or Anderson. However, If I search for "Ander", I will not get a return of Anderson.

I want to be able to do that.

Please let me know if there is anything more I need to say

[orange]

see the samples in this thread ---any field, any table

Did you build or copy FindAnyWord?

You use FindWord and FindAnyWord in your example??

[orange]

zashaikh,

You should keep your comments in this thread --not in the Code Repository.

In response to your message that has just been posted:
***************

This is useful. Thanks! But my not all my tables have primary keys :/
As such, I can not search anything

Every table should have a Primary Key. rule #2

Review the info on Codd's rules to help resolve your issue.

[zashaikh]

I know. Unfortuanely, I was not the one who designed my company's database. And I would rather not go around doing anything that could possible break it

[Bulzie]

Have used this line before:
strWhere = strWhere & " AND ProjectDescription Like '*" & Me!ProjectDescription & "*'"

Not sure but maybe with your lines:
strCriteria = "Where [Suspect Name] Like '*" & Me.SuspectField & "*' OR [Suspect Information.Suspect Alias] Like '*" & Me.SuspectField & "*'"

or

strCriteria = "Where [Suspect Name] Like '*" & Me.SuspectField & "*'"
strCriteria = strCriteria & "OR [Suspect Information.Suspect Alias] Like '*" & Me.SuspectField & "*'"