Add zeros to the left using Input Mask

[Khalil Handal]

Hi To all,


I have a field in a table. The field size s three. If the user enters a one character for example, how can I build an input mask to allow leading zeros?
Example:
1 ---> 001
k ---> 00k
23 --> 023
123 --> 123

Khalil

[Bob Fitz]

I'm not sure that can be done with an input mask. I think you would need some code the the Before Update event of a control on a form.

[Bob Fitz]

On refection, the code would need to be in the AfterUpdate event of the control. Something like:

Select Case Len(Me.ActiveControl)    
     
    Case 1
        Me.ActiveControl = "00" & Me.ActiveControl
        
    Case 2
        Me.ActiveControl = "0" & Me.ActiveControl

End Select

[Khalil Handal]

Hi,
Thank you.

[June7]

Or instead of CASE:

Me.controlname = IIf(IsNull(Me.controlname), Null, Right("00" & Me.controlname, 3))