VBA Access to Word IF statement 2

[sharonniles]

Good Afternoon,
I'm filling in a Word document using Access XP. To fill in each line I'm using for example:
objWord.Selection.TypeText Text:=Me![First Name] & " " & Me![Last Name]

Let's say the first name field is null, how can I put an IF statement to change the first name field to "Mr.".

I tried:
if objWord.Selection.TypeText Text:=Me![First Name] is null then
objWord.Selection.TypeText Text:="Mr." & Me![Last Name]
else
objWord.Selection.TypeText Text:=Me![First Name] & " " & Me![Last Name]
end if

Obviously this is wrong. What is the correct syntax?

Thanks

 

[SkipVought]

hi,

if Me![First Name] = "" then
   objWord.Selection.TypeText Text:="Mr." & Me![Last Name]
else
   objWord.Selection.TypeText Text:=Me![First Name] & " " & Me![Last Name]
end if

Skip,

_{When a group touring the Crest Toothpaste factory got caught in a large cooler, headlines read...
Tooth Company Freeze a Crowd! and
Many are Cold, but Few are Frozen!}

 

[PHV]

Either:
objWord.Selection.TypeText Text:=Nz(Me![First Name], "Mr.") & " " & Me![Last Name]
Or:
objWord.Selection.TypeText Text:=IIf(Trim(Me![First Name] & "") = "", "Mr.", Me![First Name]) & " " & Me![Last Name]

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[sharonniles]

Thank you Skip and PHV both solutions were exactly what I was looking for.

Sharon