Need expression to take last word in text field 1

[TeddB]

Have a text field containing many words. Need only last word.

ex: mountain stream grass

Have tried RIGHT function, but can't supply 'lenght' number because the lenght of the word varies.

"A good man knows his limitations." -- "Dirty Harry" Callahan (Clint Eastwood)

 

[scriverb]

Here is a Function that should be copied and pasted into a database Module. It searches a string from the right looking for a specifically designed string of characters which in this instance will be a space.

Public Function InStrRight(vSearchStr As String, vTargetStr As String, vStart As Long) As Long
Dim I As Integer
For I = vStart To 1 Step -1
If InStr(I, vSearchStr, vTargetStr, 1) = I Then
InStrRight = I 'Position of vTargetStr
Exit For
End If
Next I
End Function

Make you call to strip the right most word of a string with the following:

Trim(Mid$(<YourString>, InStrRight(<YourString>, &quot; &quot;, Len(<YourString>)))

Just update the Mid$ function with the name of either a form control, a field name, or a variable that is holding the long string of words.

Bob Scriver

 

[PWise]

in a2k
right(yourstring,len(yourstring)-instrrev(yourstring,&quot; &quot)

 

[TeddB]

Thanks Bob. Your function worked like a charm!

&quot;A good man knows his limitations.&quot; -- &quot;Dirty Harry&quot; Callahan (Clint Eastwood)