Error message "Overflow" - what does it mean

[Andy Davis]

Dear Group

I am trying to automate process of adding a new record id in my form using
the following code when the user clicks the "Add New Record" button. For
example if the last record id is "2005001" then I want to increment this by
one so that new value is "2005002" and place it in the record id field for
the new record on the form. I've tried using the following code but get the
message "Overflow" when I run the code. Can't find on the online help what
this means. Not sure if the logic is correct in the code? Any pointers or
ideas would be much appreciated.

Code:
On Error GoTo Err_Command623_Click
Dim intlastrecID As Integer

DoCmd.GoToRecord , , acLast
intlastrecID = PropID.Value
DoCmd.GoToRecord , , acNewRec
PropID.Value = intlastrecID + 1

Exit_Command623_Click:
Exit Sub

Err_Command623_Click:
MsgBox Err.Description
Resume Exit_Command623_Click
Many thanks in advance

[Allen Browne]

Overflow means the number is too great for the type of variable.

Integers go up to 32767 only.
Replace the declaration line with a long, e.g.:
Dim lngLastRecId As Long

If the form was filtered or sorted differently, the last record could
contain a value that is not the highest. Also, if there are no records, the
assignment of a Null to an Integer or Long will fail. Safer to lookup the
highest number yet assigned directly in the table, and this avoids jumping
around the records as well:
lngLastRecId = Nz(DMax("PropId", "Table1"), 0)

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Andy Davis" <ad******@westnet.com.au> wrote in message
news:42********@quokka.wn.com.au...

Dear Group

I am trying to automate process of adding a new record id in my form using
the following code when the user clicks the "Add New Record" button. For
example if the last record id is "2005001" then I want to increment this
by one so that new value is "2005002" and place it in the record id field
for the new record on the form. I've tried using the following code but
get the message "Overflow" when I run the code. Can't find on the online
help what this means. Not sure if the logic is correct in the code? Any
pointers or ideas would be much appreciated.

Code:
On Error GoTo Err_Command623_Click
Dim intlastrecID As Integer

DoCmd.GoToRecord , , acLast
intlastrecID = PropID.Value
DoCmd.GoToRecord , , acNewRec
PropID.Value = intlastrecID + 1

Exit_Command623_Click:
Exit Sub

Err_Command623_Click:
MsgBox Err.Description
Resume Exit_Command623_Click
Many thanks in advance

[Andy Davis]

Dear Allen

Many thanks for the advice. It would have taken me a fair few hours of
poring thro' my VB books. I am a bit rusty with VB at the moment after a 2-3
year break from VBA coding. Again thanks for that. It worked a beaut!

Dawn Davis

"Allen Browne" <Al*********@SeeSig.Invalid> wrote in message
news:42***********************@per-qv1-newsreader-01.iinet.net.au...

Overflow means the number is too great for the type of variable.

Integers go up to 32767 only.
Replace the declaration line with a long, e.g.:
Dim lngLastRecId As Long

If the form was filtered or sorted differently, the last record could
contain a value that is not the highest. Also, if there are no records,
the assignment of a Null to an Integer or Long will fail. Safer to lookup
the highest number yet assigned directly in the table, and this avoids
jumping around the records as well:
lngLastRecId = Nz(DMax("PropId", "Table1"), 0)

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Andy Davis" <ad******@westnet.com.au> wrote in message
news:42********@quokka.wn.com.au...

Dear Group

I am trying to automate process of adding a new record id in my form
using the following code when the user clicks the "Add New Record"
button. For example if the last record id is "2005001" then I want to
increment this by one so that new value is "2005002" and place it in the
record id field for the new record on the form. I've tried using the
following code but get the message "Overflow" when I run the code. Can't
find on the online help what this means. Not sure if the logic is correct
in the code? Any pointers or ideas would be much appreciated.

Code:
On Error GoTo Err_Command623_Click
Dim intlastrecID As Integer

DoCmd.GoToRecord , , acLast
intlastrecID = PropID.Value
DoCmd.GoToRecord , , acNewRec
PropID.Value = intlastrecID + 1

Exit_Command623_Click:
Exit Sub

Err_Command623_Click:
MsgBox Err.Description
Resume Exit_Command623_Click
Many thanks in advance