The purpose of this is to check if a mistake (spelling or omission) has occurred between the two Fields and I therefore wish to show all such Records where there is a mistake. To check that the text in the whole of one (short) Field is somewhere in another Field I use either

WHERE hdscds.soloists AND InStr(hdscds.contents, hdscds.soloists)=false in a Query

Or

Me.Filter = "hdscds.soloists AND InStr(hdscds. contents, hdscds.soloists)=false"
Me.FilterOn = True

on a Form.

More generally this Filter string can be expressed as

MyTableMain.TextField1 AND InStr(MyTableMain.TextField2, MyTableMain.TextField1)=false

A Module that will isolate the first word in a text string is as follows:

Function FirstWordGet()

Dim FullString As String
Dim FirstWord As String

FullString = " Jack Smith Esq"

FullString = Trim(FullString) ' NOT REQUIRED IF there is no leading space in the FullString

' FullString = Screen.ActiveControl.Value ' Works IF an active control (text Field) is selected

FirstWord = Left(FullString, InStr(1, FullString, " ", vbTextCompare)) ' WORKS

MsgBox FirstWord ' Shows Jack

End Function

I assume that one way of approaching this would be to use a DAO recordset? I have never used one yet. I also understand that a Query can call a function? I am an early stage learner and have so far only used simple Filter strings.

Can anyone advise me about solving this seemingly simple problem using either Code on a Form, a Module, a Query or a combination of these?