Number Format

[Balfour211]

I am using Access 2003. I am trying to enter serial numbers in my table.
Some of the serial numbers start with 0 (ie - 0123456). When I enter them,
the leading zero goes away. Oh by the way, I have the program do a little
math when I enter the numbers.

I give the program a starting serial number (Start_Number) and a count of
how many items have come into the inventory (How_Many). If I have a case of
24 items, and the starting serial number is 012345, then I want the program
to enter 012345, 012346, 012347, and so on until it has entered 24 serial
numbers (Serial_No).


Dim Check, Counter

Check = True
Counter = Me.How_Many

Do Until Counter = 0
Me.Serial_No.Value = Me.Start_Number
DoCmd.GoToRecord , , acNewRec
Me.Start_Number = Me.Start_Number + 1
Counter = Counter - 1
If Counter = 0 Then
Check = False
Exit Do
End If
Loop

This code works fine, except, it does not like the leading zero. I have
tried formating the table and the form with the field being "number" or
"text". A little help would be appreciated.

Thanks,
Balfour211

 

[Balfour211]

Thanks for taking time on my problem. I changed the field in my table to a
"text" field, and replaced my line "Me.Start_Number = Me.Start_Number + 1"
with your suggestion, and I still do not get the leading zero. The first
number that is entered into the table is correct. That one is coming from:

Me.Serial_No.Value = Me.Start_Number

but when the process gets to the adding of "1"

Me.Start_Number = CLng(Me.Start_Number) + 1

I lose the zero and count up by 1. Any suggestion on what I may be doing
wrong?

Thanks again,
Balfour211

 

[Larry Linson]

The Format statement or function is your friend, if you want the number to
show lead zeros... It's pretty well described in Help.

Larry Linson
Microsoft Office Access MVP