Add wildcards to this FindWords Fucntion?

[zashaikh]

Does anyone know how I can add wildcards to this FindWord Function??

Imnot sure if this is even possible.

Option Compare Database
Option Explicit

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

[CJ_London]

you refer to the findwords function, but have provided code for a findanyword function which calls a function called findword. I presume this is a typo on your part. I suspect the answer will lie in the findword function - please provide the code for that

[Bulzie]

What code is in the FindWord function? I would think there you would do some type of Like * code.

Also no need to create Dup post on this: https://www.accessforums.net/showthread.php?t=64321

[orange]

zashaikh,

Is this a new topic? If not, then why create a new thread? Keeping all the related info in 1 thread/series of posts on same subject shows the related info-the issue, advice/suggestions, your responses and new questions etc.

Related post/thread:

I suggest you give some details of what you are trying to accomplish. Tell readers that you tables are not necessarily designed for relational database (some/many/a few do not have primary keys).

In my view, and I could be way off-base, you have a piece of a function that you think you need. But you haven't really done the analysis, or have not communicated your requirements (analysis results) clearly.

You want to search for some "words/strings" in any field in any table. Why do you need to do that? There may be other options for How to achieve WHAT you need.

Good luck