Populate Initials from Names in feild automatically 1

[Yarbz]

Greetings All,
I have a need to have Assess 03 automatically create or populate the first initials from a consumers names (i.e. John E. Doe = JOD) Is this possible?
And where would I insert the code?
Yarbz

 

[Andrzejek]

That's not enough information to help you.

How do you store the names in your table?
Is it something like:
[tt]
FName MI LName
John E Doe
Susie B Smith[/tt]

Have fun.

---- Andy

 

[davejam]

if it is stored in a single field you could try splitting it by the line spaces....

ie.

Dim myName As String
Dim bldStr As String
Dim sItems() As String
Dim sItem As Variant

myName = "John E Doe"
bldStr = ""
sItems = Split(myName, " ")
For Each sItem In sItems
 bldStr = bldStr & Left(sItem, 1)
Next
MsgBox bldStr

daveJam

it works on my machine, so technically i win!

 

[Yarbz]

Many Apologies,
Yes it is three fields as stated by Andy.
First, Middle Initial and Last.
Yarbz

 

[randy700]

Initials = Left("FName", 1) & Left("MI", 1) & Left("LName",1)

Randy

 

[Yarbz]

That did it. I just placed the correct name in [ ] and bingo.
Thanks
Yarbz