By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
446,327 Members | 1,806 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 446,327 IT Pros & Developers. It's quick & easy.

Question about adding a record

Stang02GT
Expert 100+
P: 1,208
Hello,

I have run into a problem. For some reason on my forms that my users can add/update/delete records, when they enter a new record and then attempt to search for it they are hit with this error message.

Run-time error '3349': Numeric field overflow

The tables that the forms are based off of are Excel spread sheets. This is a new problem this error was never generated before, because i was able to accomplish this task before with no problems.

When i hit the DEBUG button this is where it tells me my error is in the BOLD line

Expand|Select|Wrap|Line Numbers
  1. Private Sub Command35_Click()
  2.    If IsNull(cmbLock) = False Then
  3.       Me.Recordset.FindFirst "[SR Num]=" & cmbLock      
  4.        Me!cmbLock = Null
  5.       If Me.Recordset.NoMatch Then
  6.          MsgBox "No record found", vbOKOnly + vbInformation, "Sorry"
  7.             Me!cmbLock = Null
  8.       End If
  9.    End If
  10. End Sub
This code is what executes my search.

Thanks in advance for your help!
Aug 8 '07 #1
Share this Question
Share on Google+
5 Replies


Rabbit
Expert Mod 10K+
P: 12,392
Hello,

I have run into a problem. For some reason on my forms that my users can add/update/delete records, when they enter a new record and then attempt to search for it they are hit with this error message.

Run-time error '3349': Numeric field overflow

The tables that the forms are based off of are Excel spread sheets. This is a new problem this error was never generated before, because i was able to accomplish this task before with no problems.

When i hit the DEBUG button this is where it tells me my error is in the BOLD line

Expand|Select|Wrap|Line Numbers
  1. Private Sub Command35_Click()
  2.    If IsNull(cmbLock) = False Then
  3.       Me.Recordset.FindFirst "[SR Num]=" & cmbLock      
  4.        Me!cmbLock = Null
  5.       If Me.Recordset.NoMatch Then
  6.          MsgBox "No record found", vbOKOnly + vbInformation, "Sorry"
  7.             Me!cmbLock = Null
  8.       End If
  9.    End If
  10. End Sub
This code is what executes my search.

Thanks in advance for your help!
Numeric field overflow means that whatever number is stored in cmbLock is too large for [SR Num] to handle.
Aug 8 '07 #2

Stang02GT
Expert 100+
P: 1,208
Ok, i found the problem. There was one record that was displayed as !NUM#. I removed that from the field and then everything worked just fine. I'm not sure what causes the number to be too large or what generates this error because all the entries are 5 digit number feilds.

Any idea?
Aug 8 '07 #3

Rabbit
Expert Mod 10K+
P: 12,392
Ok, i found the problem. There was one record that was displayed as !NUM#. I removed that from the field and then everything worked just fine. I'm not sure what causes the number to be too large or what generates this error because all the entries are 5 digit number feilds.

Any idea?
The !NUM# means that when you imported, Access saw the field as numeric, however, someone either entered in a number too large, or used characters it did not recognize.
Aug 8 '07 #4

Stang02GT
Expert 100+
P: 1,208
Ahh i see, thank you for explaining and thanks for your help!
Aug 9 '07 #5

Rabbit
Expert Mod 10K+
P: 12,392
Not a problem, good luck.
Aug 9 '07 #6

Post your reply

Sign in to post your reply or Sign up for a free account.