Input Mask

L

landeye

I want to create an input mask that will fill in leading zeros when I enter
data directly into a table. The field is text field of length 4. When I enter
"99" I want it to store "0099" in the table. When I enter "1" I want it to
store "0001" and so on. Thanks in advance.
 
S

Sprinks

Hi, Landeye,

I'm not sure that is possible with an input mask, but would be easy to do
with an AfterUpdate event:

Dim intI as Integer
For intI = (len([YourField]) + 1) to 4
[YourField] = "0" & [YourField]
Next intI

Hope that helps.
Sprinks
 
T

Tom Lake

landeye said:
I want to create an input mask that will fill in leading zeros when I enter
data directly into a table. The field is text field of length 4. When I enter
"99" I want it to store "0099" in the table. When I enter "1" I want it to
store "0001" and so on. Thanks in advance.
Click to expand...

Right("0000" & [YourNumber], 4)

should do it.

Tom Lake
 
Top