validating form data in word with If statements

I hope this is not in the wrong forum. I am quite new to VBA but I am trying
to create a form in word with form fields that the user will fill in. At the
end I have made a "validate" control button. This runs various "IF"
statements to check each field has been filled in correctly before it
submits the data to an email address.

My problem is I do not know how to refer to my form fields in the IF's
properly.

I have been doing this:

Sub example()
With ActiveDocument.FormFields("TypeYourName")
If Len(.Result) < 4 or (.Result) = "TypeYourName" Then
MsgBox "Please insert your full name", vbInformation
ActiveDocument.Bookmarks("TypeYourName").Range.Fields(1).Result.Select
End
Else
End If
End With

etc.


The problem is, I want to refer to multiple form fields/bookmarks in the
same IF to be able to do something like..

If (IsThisAnAddressableLocation) ="Yes" and Len(HouseNumber) < 1 Then
Msgbox "You have stated that this an addressable location so please provide
a house number"
End
Else
End If

If (IsThisAnAddressableLocation) = "No" and Len(HouseNumber) > 0 Then
Msgbox "You have stated that this is not an addressable location yet have
provided a house number"
End
Else
End If

I know there is probably better ways I could have gone about this form but
its all set up and works great, and if I had an answer to my problem I could
complete the validation stage a lot sooner.

Many thanks and I hope this makes sense

For your example, it would be best to nest the If...then...Else
constructions as follows

If ActiveDocument.FormFields("IsThisAnAddressableLocation").Result ="Yes"
Then
If Len(ActiveDocument.FormFields("HouseNumber").Result) < 1 Then
Msgbox "You have stated that this an addressable location so please
provide a house number"
End If
Else 'The address is not an addressable location, so there should be no
house number
If Len(ActiveDocument.FormFields("HouseNumber").Result) > 0 Then
Msgbox "You have stated that this is not an addressable location yet
have provided a house number"
End If
End If



--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
"Ed Greenbank" <egreenbank.RemoveThis@gmail.com> wrote in message
news:%23VSZ95X2JHA.4412@TK2MSFTNGP06.phx.gbl...
>I hope this is not in the wrong forum. I am quite new to VBA but I am
>trying to create a form in word with form fields that the user will fill
>in. At the end I have made a "validate" control button. This runs various
>"IF" statements to check each field has been filled in correctly before it
>submits the data to an email address.
>
> My problem is I do not know how to refer to my form fields in the IF's
> properly.
>
> I have been doing this:
>
> Sub example()
> With ActiveDocument.FormFields("TypeYourName")
> If Len(.Result) < 4 or (.Result) = "TypeYourName" Then
> MsgBox "Please insert your full name", vbInformation
> ActiveDocument.Bookmarks("TypeYourName").Range.Fields(1).Result.Select
> End
> Else
> End If
> End With
>
> etc.
>
>
> The problem is, I want to refer to multiple form fields/bookmarks in the
> same IF to be able to do something like..
>
> If (IsThisAnAddressableLocation) ="Yes" and Len(HouseNumber) < 1 Then
> Msgbox "You have stated that this an addressable location so please
> provide a house number"
> End
> Else
> End If
>
> If (IsThisAnAddressableLocation) = "No" and Len(HouseNumber) > 0 Then
> Msgbox "You have stated that this is not an addressable location yet have
> provided a house number"
> End
> Else
> End If
>
> I know there is probably better ways I could have gone about this form but
> its all set up and works great, and if I had an answer to my problem I
> could complete the validation stage a lot sooner.
>
> Many thanks and I hope this makes sense
>