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

If you want leading zeros saved in the table, the field has to be a text data
type, not a number. You can still use math to calculate the next serial
number in your procedure, but you might have to use conversion methods. CLng
will work as long as the number is less than about 4.3 billion.

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

Chris
Microsoft MVP


Balfour211 wrote:
>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

--
Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...ccess/200807/1

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


"Chris O'C via AccessMonster.com" wrote:

> If you want leading zeros saved in the table, the field has to be a text data
> type, not a number. You can still use math to calculate the next serial
> number in your procedure, but you might have to use conversion methods. CLng
> will work as long as the number is less than about 4.3 billion.
>
> Me.Start_Number = CLng(Me.Start_Number) + 1
>
> Chris
> Microsoft MVP
>
>
> Balfour211 wrote:
> >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
>
> --
> Message posted via AccessMonster.com
> http://www.accessmonster.com/Uwe/For...ccess/200807/1
>
>

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


"Balfour211" <Balfour211@discussions.microsoft.com> wrote in message
news:08D463E4-9E20-49CC-BB53-C4AC5A8EE7A2@microsoft.com...
> 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
>
>
> "Chris O'C via AccessMonster.com" wrote:
>
>> If you want leading zeros saved in the table, the field has to be a text
>> data
>> type, not a number. You can still use math to calculate the next serial
>> number in your procedure, but you might have to use conversion methods.
>> CLng
>> will work as long as the number is less than about 4.3 billion.
>>
>> Me.Start_Number = CLng(Me.Start_Number) + 1
>>
>> Chris
>> Microsoft MVP
>>
>>
>> Balfour211 wrote:
>> >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
>>
>> --
>> Message posted via AccessMonster.com
>> http://www.accessmonster.com/Uwe/For...ccess/200807/1
>>
>>