Delete if form field is not defined

[Skrewdriver1979]

I currently have a text form field that is conditional where when you type
"OH" or "OHIO" and that state information appears elsewhere in the form. If
the field is left blank, it clears the state information. Is there a way that
if someone places something other then a state or something that is not
defined in the 'Case ""', that will delete the state infromation?
Right now if someone types "OH" the state information changes to Ohio, etc.,
but if you type "asdf" then the state information stays with OH.

 

[Graham Mayor]

If the field in question is Text1 then the following macro run on exit from
Text1 will allow the user to enter the state letters or the full state name
in upper or lower case and the state name will be entered into the field in
upper case. Any other entry will clear the entered text. If you want to trap
that empty field then add the second macro to run on entry to the following
field - here Text2

Sub OnExitText1()
Dim oT1 As String

With ActiveDocument.FormFields("Text1")
oT1 = .Result
Select Case UCase(oT1)

Case "AL"
.Result = "ALABAMA"
Case "ALABAMA"
.Result = "ALABAMA"
Case "ALABAMA"
.Result = "ALABAMA"
Case "AK"
.Result = "ALASKA"
Case "ALASKA"
.Result = "ALASKA"
Case "AS"
.Result = "AMERICAN SAMOA"
Case "AMERICAN SAMOA"
.Result = "AMERICAN SAMOA"
Case "AZ"
.Result = "ARIZONA"
Case "ARIZONA"
.Result = "ARIZONA"
Case "AR"
.Result = "ARKANSAS"
Case "ARKANSAS"
.Result = "ARKANSAS"
Case "CA"
.Result = "CALIFORNIA"
Case "CALIFORNIA"
.Result = "CALIFORNIA"
Case "CO"
.Result = "COLORADO"
Case "COLORADO"
.Result = "COLORADO"
Case "CT"
.Result = "CONNECTICUT"
Case "CONNECTICUT"
.Result = "CONNECTICUT"
Case "DE"
.Result = "DELAWARE"
Case "DELAWARE"
.Result = "DELAWARE"
Case "DC"
.Result = "DISTRICT OF COLUMBIA"
Case "DISTRICT OF COLUMBIA"
.Result = "DISTRICT OF COLUMBIA"
Case "FM"
.Result = "FEDERATED STATES OF MICRONESIA"
Case "FEDERATED STATES OF MICRONESIA"
.Result = "FEDERATED STATES OF MICRONESIA"
Case "FL"
.Result = "FLORIDA"
Case "FLORIDA"
.Result = "FLORIDA"
Case "GA"
.Result = "GEORGIA"
Case "GEORGIA"
.Result = "GEORGIA"
Case "GU"
.Result = "GUAM"
Case "GUAM"
.Result = "GUAM"
Case "HI"
.Result = "HAWAII"
Case "HAWAII"
.Result = "HAWAII"
Case "ID"
.Result = "IDAHO"
Case "IDAHO"
.Result = "IDAHO"
Case "IL"
.Result = "ILLINOIS"
Case "ILLINOIS"
.Result = "ILLINOIS"
Case "IN"
.Result = "INDIANA"
Case "INDIANA"
.Result = "INDIANA"
Case "IA"
.Result = "IOWA"
Case "IOWA"
.Result = "IOWA"
Case "KS"
.Result = "KANSAS"
Case "KANSAS"
.Result = "KANSAS"
Case "KY"
.Result = "KENTUCKY"
Case "KENTUCKY"
.Result = "KENTUCKY"
Case "LA"
.Result = "LOUISIANA"
Case "LOUISIANA"
.Result = "LOUISIANA"
Case "ME"
.Result = "MAINE"
Case "MAINE"
.Result = "MAINE"
Case "MH"
.Result = "MARSHALL ISLANDS"
Case "MARSHALL ISLANDS"
.Result = "MARSHALL ISLANDS"
Case "MD"
.Result = "MARYLAND"
Case "MARYLAND"
.Result = "MARYLAND"
Case "MA"
.Result = "MASSACHUSETTS"
Case "MASSACHUSETTS"
.Result = "MASSACHUSETTS"
Case "MI"
.Result = "MICHIGAN"
Case "MICHIGAN"
.Result = "MICHIGAN"
Case "MN"
.Result = "MINNESOTA"
Case "MINNESOTA"
.Result = "MINNESOTA"
Case "MS"
.Result = "MISSISSIPPI"
Case "MISSISSIPPI"
.Result = "MISSISSIPPI"
Case "MO"
.Result = "MISSOURI"
Case "MISSOURI"
.Result = "MISSOURI"
Case "MT"
.Result = "MONTANA"
Case "MONTANA"
.Result = "MONTANA"
Case "NE"
.Result = "NEBRASKA"
Case "NEBRASKA"
.Result = "NEBRASKA"
Case "NV"
.Result = "NEVADA"
Case "NEVADA"
.Result = "NEVADA"
Case "NH"
.Result = "NEW HAMPSHIRE"
Case "NEW HAMPSHIRE"
.Result = "NEW HAMPSHIRE"
Case "NJ"
.Result = "NEW JERSEY"
Case "NEW JERSEY"
.Result = "NEW JERSEY"
Case "NM"
.Result = "NEW MEXICO"
Case "NEW MEXICO"
.Result = "NEW MEXICO"
Case "NY"
.Result = "NEW YORK"
Case "NEW YORK"
.Result = "NEW YORK"
Case "NC"
.Result = "NORTH CAROLINA"
Case "NORTH CAROLINA"
.Result = "NORTH CAROLINA"
Case "ND"
.Result = "NORTH DAKOTA"
Case "NORTH DAKOTA"
.Result = "NORTH DAKOTA"
Case "MP"
.Result = "NORTHERN MARIANA ISLANDS"
Case "NORTHERN MARIANA ISLANDS"
.Result = "NORTHERN MARIANA ISLANDS"
Case "OH"
.Result = "OHIO"
Case "OHIO"
.Result = "OHIO"
Case "OK"
.Result = "OKLAHOMA"
Case "OKLAHOMA"
.Result = "OKLAHOMA"
Case "OR"
.Result = "OREGON"
Case "OREGON"
.Result = "OREGON"
Case "PW"
.Result = "PALAU"
Case "PALAU"
.Result = "PALAU"
Case "PA"
.Result = "PENNSYLVANIA"
Case "PENNSYLVANIA"
.Result = "PENNSYLVANIA"
Case "PR"
.Result = "PUERTO RICO"
Case "PUERTO RICO"
.Result = "PUERTO RICO"
Case "RI"
.Result = "RHODE ISLAND"
Case "RHODE ISLAND"
.Result = "RHODE ISLAND"
Case "SC"
.Result = "SOUTH CAROLINA"
Case "SOUTH CAROLINA"
.Result = "SOUTH CAROLINA"
Case "SD"
.Result = "SOUTH DAKOTA"
Case "SOUTH DAKOTA"
.Result = "SOUTH DAKOTA"
Case "TN"
.Result = "TENNESSEE"
Case "TENNESSEE"
.Result = "TENNESSEE"
Case "TX"
.Result = "TEXAS"
Case "TEXAS"
.Result = "TEXAS"
Case "UT"
.Result = "UTAH"
Case "UTAH"
.Result = "UTAH"
Case "VT"
.Result = "VERMONT"
Case "VERMONT"
.Result = "VERMONT"
Case "VI"
.Result = "VIRGIN ISLANDS"
Case "VIRGIN ISLANDS"
.Result = "VIRGIN ISLANDS"
Case "VA"
.Result = "VIRGINIA"
Case "VIRGINIA"
.Result = "VIRGINIA"
Case "WA"
.Result = "WASHINGTON"
Case "WASHINGTON"
.Result = "WASHINGTON"
Case "WV"
.Result = "WEST VIRGINIA"
Case "WEST VIRGINIA"
.Result = "WEST VIRGINIA"
Case "WI"
.Result = "WISCONSIN"
Case "WISCONSIN"
.Result = "WISCONSIN"
Case "WY"
.Result = "WYOMING"
Case "WYOMING"
.Result = "WYOMING"
Case Else
.Result = ""

End Select
End With
End Sub

Sub OnEntryText2()
Dim oT2 As String
With ActiveDocument.FormFields("Text1")
oT2 = .Result
If Len(oT2) < 2 Then
MsgBox "Enter the correct full state name or abbreviation letters",
_
vbCritical, "Incorrect Entry"
.Select
End If
End With
End Sub


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Skrewdriver1979]

Helpful, but not quite what i am looking for. See below for what i am
running, the string is longer then 256 characters hence the
ActiveDocument.Bookmarks. What i am looking for is if someone fills in
Ontario, Asia, or something other then defined in the macro in the form field
case it will cause an error and/or delete all the
Range.Fields(1).Results.Text.

Case "AK", "ALASKA"
ActiveDocument.Unprotect Password:="password"

ActiveDocument.Bookmarks("LLStatesVehicle").Range.Fields(1).Result.Text = ""

ActiveDocument.Bookmarks("LLStatesCustomer").Range.Fields(1).Result.Text = ""

ActiveDocument.Bookmarks("LLStatesFiling").Range.Fields(1).Result.Text = ""
ActiveDocument.Bookmarks("DaysOut").Range.Fields(1).Result.Text = ""
ActiveDocument.Bookmarks("Repairs").Range.Fields(1).Result.Text = ""
ActiveDocument.Bookmarks("PeriodMonths").Range.Fields(1).Result.Text
= ""
ActiveDocument.Bookmarks("PeriodMiles").Range.Fields(1).Result.Text
= ""
ActiveDocument.Bookmarks("ContExist").Range.Fields(1).Result.Text = ""
ActiveDocument.Bookmarks("Safety").Range.Fields(1).Result.Text = ""
ActiveDocument.Bookmarks("SafetyTime").Range.Fields(1).Result.Text =
""
ActiveDocument.Bookmarks("SafetyMiles").Range.Fields(1).Result.Text
= ""
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True,
Password:="password"

 

[Graham Mayor]

If you are using Case statements to define what is allowed, use a Case Else
at the end to define what happens when something other is entered.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>