Leading Zeros

  • Thread starter Thread starter Ann
  • Start date Start date
A

Ann

I have a text field called [txtDRS]. It's a maximum of four characters. If
the maximum isn't used I need to have leading zeros. I have tried everything
I can think of to do this and still have a maximum of zero but nothing works.
Can someone help me out? Thanks in advance.
 
Numeric fields will never have leading zeros. You either need to make it a
text field or pad a numeric field for display. I would suggest it be a text
field and validate the length when the data is entered.
 
I already tried that and it didn't work. When I type in 90A, that's what I
get.

RonaldoOneNil said:
Put 0000 in the format row of your textbox properties.

Ann said:
I have a text field called [txtDRS]. It's a maximum of four characters. If
the maximum isn't used I need to have leading zeros. I have tried everything
I can think of to do this and still have a maximum of zero but nothing works.
Can someone help me out? Thanks in advance.
Click to expand...
Click to expand...
 
It is a text field, not a numeric and has a field size of four. How do I
validate the length when it's entered?

Klatuu said:
Numeric fields will never have leading zeros. You either need to make it a
text field or pad a numeric field for display. I would suggest it be a text
field and validate the length when the data is entered.
--
Dave Hargis, Microsoft Access MVP


Ann said:
I have a text field called [txtDRS]. It's a maximum of four characters. If
the maximum isn't used I need to have leading zeros. I have tried everything
I can think of to do this and still have a maximum of zero but nothing works.
Can someone help me out? Thanks in advance.
Click to expand...
Click to expand...
 
I have a text field called [txtDRS]. It's a maximum of four characters. If
the maximum isn't used I need to have leading zeros. I have tried everything
I can think of to do this and still have a maximum of zero but nothing works.
Can someone help me out? Thanks in advance.
Click to expand...

You can set an Input Mask of 0000 to force input of four numeric digits, or
@@@@ to force entry of four nonblank characters.

If you want to be able to type 8 <tab> and have the leading zeros
automatically filled in, put some code in the textbox's AfterUpdate event:

Private Sub txtDRS_AfterUpdate()
Me!txtDRS = Right("0000" & Me!txtDRS, 4)
End Sub
 
You can use the control's Before Update event to do the padding.

If Not Isnumeric(Me.txtDRS) Then
MsgBox "Only Numeric Values Allowed", vbExclamation
Cancel = True
Else
Me.txtDRS = String(4 - Len(Me.txtDRS), "0")
End If

--
Dave Hargis, Microsoft Access MVP


Ann said:
It is a text field, not a numeric and has a field size of four. How do I
validate the length when it's entered?

Klatuu said:
Numeric fields will never have leading zeros. You either need to make it a
text field or pad a numeric field for display. I would suggest it be a text
field and validate the length when the data is entered.
--
Dave Hargis, Microsoft Access MVP


Ann said:
I have a text field called [txtDRS]. It's a maximum of four characters. If
the maximum isn't used I need to have leading zeros. I have tried everything
I can think of to do this and still have a maximum of zero but nothing works.
Can someone help me out? Thanks in advance.
Click to expand...
Click to expand...
Click to expand...
 
The code did exactly what I wanted it to. Thanks so much for the help.

John W. Vinson said:
I have a text field called [txtDRS]. It's a maximum of four characters. If
the maximum isn't used I need to have leading zeros. I have tried everything
I can think of to do this and still have a maximum of zero but nothing works.
Can someone help me out? Thanks in advance.
Click to expand...

You can set an Input Mask of 0000 to force input of four numeric digits, or
@@@@ to force entry of four nonblank characters.

If you want to be able to type 8 <tab> and have the leading zeros
automatically filled in, put some code in the textbox's AfterUpdate event:

Private Sub txtDRS_AfterUpdate()
Me!txtDRS = Right("0000" & Me!txtDRS, 4)
End Sub
Click to expand...
 
Question?

Shouldn't the function be in the before_update event. This way it will go
into an infinate After-Update loop, won't it?
 
Question?

Shouldn't the function be in the before_update event. This way it will go
into an infinate After-Update loop, won't it?
Click to expand...

Paradoxically, no: if you want to change a control's value you must do so
AFTERupdate - if you do it before update, it triggers beforeupdate again and
loops.
 
Back
Top