Leading zero and Capitalization needed

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a text field called Township in a table and on a form. It will hold
values of one number or two numbers followed by a letter of the alphabet (one
of the following letters: E, W, N, S).

After entering the data in the textbox on the form I want a leading zero to
display (and record in the table) if only one number was used and I want the
alpha character to be capitalized (form display as well as storage in the
table).
 
I have a text field called Township in a table and on a form. It will hold
values of one number or two numbers followed by a letter of the alphabet (one
of the following letters: E, W, N, S).

After entering the data in the textbox on the form I want a leading zero to
display (and record in the table) if only one number was used and I want the
alpha character to be capitalized (form display as well as storage in the
table).
Click to expand...

Put the following code in the AfterUpdate event of the textbox (click on the
.... icon and choose Code Builder):

Private Sub Township_AfterUpdate()
Me.Township = UCase(Right("00" & Me.Township, 3))
End Sub

You may want to put an Input Mask such as "00A" on the textbox to force entry
of two digits and a letter; and perhaps some validation code in the control's
BeforeUpdate event to check for valid entries (I'm guessing that there is no
Twp 98W!)

John W. Vinson [MVP]
 
I have a text field called Township in a table and on a form. It will
hold values of one number or two numbers followed by a letter of the
alphabet (one of the following letters: E, W, N, S).

After entering the data in the textbox on the form I want a leading
zero to display (and record in the table) if only one number was used
and I want the alpha character to be capitalized (form display as well
as storage in the table).
Click to expand...

You can do that by using len(Township.value)
and if len<>3 put a leading zero with var=0 & Township.value
and to display: Township.value=var

Put your code in the update event of Township
 
Back
Top