Access runtime error overflow

1. runtime error 6 overflow
   

   This is the Append query that I am trying to run and I am getting an overflow error.
   

   This is the data I am multiplying by which is a double field size.

   
   Any help would be appreciated.

   Thanks,
   Nick

   Last edited by nick243; 07-24-2017 at 09:34 AM.

   Reason: Wrong Picture

   ---

2. Is the destination for the results a Double Number as well?

   ---

3. Get back to basics. Change it to a select query, does it still happen? Remove the fields one by one to determine the exact field causing the issue. If it only happens on the append, again remove all other fields and test with just the one.

   ---

4. It is not appending the error rate to the table it is just getting rid of anything from be1j query where the error rate is less than the dept rate * 1.2 . Am I reading the query correctly?

   ---

5. Originally Posted by aytee111
   

   Get back to basics. Change it to a select query, does it still happen? Remove the fields one by one to determine the exact field causing the issue. If it only happens on the append, again remove all other fields and test with just the one.

   I went back and did what you said, It is the error rate field that is prohibiting this query from working and giving the overflow error.

   ---

6. Are there null values in this field? Add Nz(…). Otherwise run the b-e-j1 query by itself and see if there are any values that don’t look right. Also in that query, add a new field with the same calculation. Altho this may be a table, in which case create a query with that calculation — it is easier to troubleshoot very basic queries.

   Note: do some research on naming conventions. Tables are named tbl… or …tbl, queries qry… or …qry. Also get rid of spaces in names, no special characters except underscore (_), no reserved words such as Date, etc. These things will come back and bite you further down the road.

   ---

7. The calculation of a value called ErrorRate will usually involve mathematical division somewhere. How are you calculating that errorRate? Might there be a division by zero, or division by a very small number somewhere? Is ErrorRate a calculated field in the table?

   ---

8. Originally Posted by aytee111
   

   Are there null values in this field? Add Nz(…). Otherwise run the b-e-j1 query by itself and see if there are any values that don’t look right. Also in that query, add a new field with the same calculation. Altho this may be a table, in which case create a query with that calculation — it is easier to troubleshoot very basic queries.

   Note: do some research on naming conventions. Tables are named tbl… or …tbl, queries qry… or …qry. Also get rid of spaces in names, no special characters except underscore (_), no reserved words such as Date, etc. These things will come back and bite you further down the road.

   I noticed there was an error# in error rate because one of them is dividing 0 by 0 . I have not seen any null. It is a query. I will keep looking at it. I keep searching the related tables for information.

   ---

9. That is what is causing your problem, then. Remove that error in that field by using Nz or checking for nulls in numeric fields before dividing, or whatever the case is.

   ---

I am new to VB. I was trying to insert a record into access database with data reader. I was getting OVERFLOW error at runtime. I tried to google a lot but did not really solve the problem. My understanding is that overflow error occurs when we assign values
that to variables that exceeds the maximum size of the data type. I do not see any such problems in my code.  Can anyone please help me to fix this? Very urgent.

Following is my code

Private Sub InsertRecord(ByVal CustomerID As Integer) 

      Dim RowArray() As String = Split(Me.lblRow.Text)

        Dim intPrice As Integer

        Dim decTotalPrice As Decimal

        Dim mySQL As String

        Dim Lastvalue As Integer = -1

        For i As Integer = 0 To RowArray.Length — 1

            If RowArray(i) <> «» Then

                Lastvalue += 1

                RowArray(Lastvalue) = RowArray(i)

            End If

        Next

        ReDim Preserve RowArray(Lastvalue)  

        Dim myConn As New OleDb.OleDbConnection(Mystrg)

        Dim myComm As New OleDb.OleDbCommand

        For i = 0 To RowArray.Length — 1

            mySQL = «Insert Into Cust_Date(CustomerID,LocID,DateID,RowID) Values (» _

                     & CustomerID & «,» _

                     & intLocID & «,» _

                     & CInt(LTrim(Replace(Mid(frmMain.cmbLoc.Text, InStrRev(frmMain.cmbLoc.Text, » «)), «/», «»))) & «,'» & Mid(RowArray(i), 1, 1) & «‘» & «)»

            myComm.CommandText = mySQL

            myComm.Connection = myConn

          Try

            myConn.Open()

            myComm.ExecuteNonQuery()

           Catch ex As Exception

            MsgBox(ex.Message, MsgBoxStyle.Exclamation, «Error»)

           End Try

            myConn.Close()

        Next

End sub

Note: I am using Access database

The table structure for Cust_Date is as follows: 

CustLocID Auto Number    Size

CustomerID Number

LocID Number

DateID Number

RowID Text            5

Thanks

ylsv

Помогите пожалуйста разобраться. Все время возникает ошибка Runtime error ‘6’ Overflow в VBA.
Ошибка возникает в этой строке «If WBook.Cells(q, 7) = ArrayPhoneAll(i) Then»
В столбце находятся телефонные номера или email, если поменять номер столбца, никакой ошибки не возникает.

Sub RegisterComplaintsPhone()

Dim n As Integer
Dim q As Long

n = 1


    
Set WBook = Workbooks("ДС_Реестр жалоб ГЛ и ЧАТ 09.07.2021222.xlsx").Worksheets("ДС_ГЛ, ЧАТ")

ReDim ArrayPhone(n) As Variant       
ReDim ArraySuccess(n) As Variant     
ReDim ArrayResult(n) As Variant      
ReDim ArrayPhone(n) As Variant       
ReDim ArrayFIO(n) As Variant         
ReDim ArrayDS(n) As Variant          
ReDim ArrayEmployee(n) As Variant    
ReDim ArrayEmployeeAll(n) As Variant 
ReDim ArrayDSAll(n) As Variant       
ReDim ArrayPhoneAll(n) As Variant    
ReDim ArrayResultAll(n) As Variant

n = 1
For w = 2 To 300
    If Worksheets("ДС").Cells(w, 2) <> "" Then
        ArrayPhoneAll(n) = Worksheets("ДС").Cells(w, 14).Value
        ArrayEmployeeAll(n) = Worksheets("ДС").Cells(w, 3).Value
        ArrayResultAll(n) = Worksheets("ДС").Cells(w, 2).Value
        Worksheets("ДС").Cells(w, 19) = ArrayPhoneAll(n)
        Worksheets("ДС").Cells(w, 20) = ArrayEmployeeAll(n)
        Worksheets("ДС").Cells(w, 21) = ArrayResultAll(n)
        n = n + 1
        'ReDim Preserve ArrayDSAll(n)
        ReDim Preserve ArrayPhoneAll(n)
        ReDim Preserve ArrayEmployeeAll(n)
        ReDim Preserve ArrayResultAll(n)
    End If
Next

n = 1 

MsgBox ArrayPhoneAll(1)
For i = 1 To UBound(ArrayPhoneAll) - 1
    For q = 2 To 20000
        If WBook.Cells(q, 7) = ArrayPhoneAll(i) Then
            WBook.Cells(q, 31) = ArrayPhoneAll(i)
        End If
    Next
Next
End Sub