Create a script to change first three words of text to uppercase

[cjr123]

I want to use an AfterUpdate Event to change the first three words in an Access text field to uppercase. I need suggestions on the correct syntax for the script. thank you.

[Seth Schrock]

I believe this is what you want.

Dim strText As String
Dim intLoc As Integer
 
strText = "One Two Three Four Five Six"
intLoc = InStr(InStr(InStr(1, strText, " ") + 1, strText, " ") + 1, strText, " ")
strText = UCase(Left(strText, intLoc)) & Mid(strText, intLoc + 1)
Debug.Print strText

This returns "ONE TWO THREE Four Five Six". All you would have to do is make line 4 be

strText = Me.ControlName

and then add a line at the end

Me.ControlName = strText

and you would have it. Just replace ControlName with the name of your control.

[zmbd]

Why?
Sounds like a homework problem?

Besides, I'd use the split function, ucase the first three array elements and then rebuild the string.

[cjr123]

@zmbd
Not homework, its a work-related database. thank you!

[cjr123]

@Seth Schrock
AWESOME AWESOME AWESOME! Thank you!