Format a Text Box for Zip Code

[PosseJohn]

I have a BeforeUpdate event that requires the input to a textbox to be either
5 or 9 digits.

When I set the format for the textbox to "@@@@@-@@@@" and the input is only
5 digits, it shows 1-2345 as the entry.

How can I format the textbox to show 12345 or 12345-6789 (including the dash
if 9 digits).

 

[Jeff Boyce]

When you say "digits", it makes me wonder ... what data type do you have
this data defined as? If "number", stop now! A Zip Code is a code, not a
number. In fact, in places other than the USA, Postal Codes include alpha
characters.

First confirm the data type...

--

Regards

Jeff Boyce
Microsoft Access MVP

Disclaimer: This author may have received products and services mentioned in
this post. Mention and/or description of a product or service herein does
not constitute endorsement thereof.

Any code or pseudocode included in this post is offered "as is", with no
guarantee as to suitability.

You can thank the FTC of the USA for making this disclaimer
possible/necessary.

 

[Marshall Barton]

I have a BeforeUpdate event that requires the input to a textbox to be either
5 or 9 digits.

When I set the format for the textbox to "@@@@@-@@@@" and the input is only
5 digits, it shows 1-2345 as the entry.

How can I format the textbox to show 12345 or 12345-6789 (including the dash
if 9 digits).

When you need to have two different formats, you can use
separate text boxes for user data entry and formatting the
display value. This can be done by adding a text box (named
txtDisplayZip) with the same size and position as your user
entry zip text box. Use the Format - Bring To Front menu
item to make sure the display text box is on top of the
entry text box

Add a line of code to the display text box's GotFocus event
to shift the focus to the entry text box:
Me.yourtextbox.SetFocus

In your entry text box's AfterUpdate event, set the display
text box's value to the formatted value:
If Len(Me.yourtextbox) = 5 Then
txtDisplayZip = Format(Me.yourtextbox, "@@@@@")
Else
txtDisplayZip = Format(Me.yourtextbox, "@@@@@-@@@@")
End If

 

[Tom Wickerath]

Try this KB article:

Flexible Input Mask for Entering Five- or Nine-Digit ZIP Codes
http://support.microsoft.com/kb/208949

Ignore the "ACC2000" in the title, as this applies equally well to other
versions of Access.


Tom Wickerath
Microsoft Access MVP
http://www.accessmvp.com/TWickerath/
__________________________________________

 

[PosseJohn]

Thank you Marshall, would have tried your suggestion, but Tom had a slightly
better resolution. Happy New Year.

 

[PosseJohn]

Jeff, thankyou for your response, Tom below had a good solution for me. Yes,
the control only accepts numeric, but is actually a text field. I restrict
input using the keydown event. Happy New Year.

 

[PosseJohn]

Tom, that resolved my problem, thank you and have a Happy New Year.

 

[Tom Wickerath]

Happy New Year to you as well!


Tom Wickerath
Microsoft Access MVP
http://www.accessmvp.com/TWickerath/
__________________________________________

 

[Tony Toews [MVP]]

I have a BeforeUpdate event that requires the input to a textbox to be either
5 or 9 digits.

And you'll never, ever have an address in Canada or the rest of the
world?

Tony
--
Tony Toews, Microsoft Access MVP
Tony's Main MS Access pages - http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/
For a convenient utility to keep your users FEs and other files
updated see http://www.autofeupdater.com/
Granite Fleet Manager http://www.granitefleet.com/