VBA - runtime error 6 - Overflow

Posted on 2010-11-25
Last Modified: 2012-05-10

I have created a report that should print out all of the outstanding balances for all clients.  Now, my query result produces 1080 rows, and I would like those rows displayed on my sheet, but I get the following error:  Runtime Error 6 - Overflow.

See code attached:

Can anyone help?
Private Sub ExtractData(options As CitizenBalanceOpt)

    Dim cn As ADODB.Connection

    Dim rs As ADODB.Recordset

    Dim sql As String

    Dim ToDate As Date

    Dim FromDate As Date

    Dim AsAtDate As Date

    Dim rng As Range

    Dim i As Integer, j As Integer

    Dim lTotal As Boolean

    Dim firstRow As Boolean

    Dim cStatus As String

    Dim valueCheck As Integer

    Dim totMonths As Integer

    Dim TotalVal As Integer

    Dim RemainMonths As Integer

    Dim TotPaid As Integer

    Dim ValRemaining As Integer


    application.StatusBar = "Connecting to Server..."


    Set cn = ozConnection()

    Set rs = New ADODB.Recordset

    Range("CitizenBalanceReport!CBReportOptions").value = "As At: " & Format(options.asAt, "dd MMM yyyy")

    Range("CitizenBalanceReport!CBAsAt").value = options.asAt


    Call ActiveSheet.Cells.Replace("<Date>", options.drawDate, xlPart, , False)

    application.StatusBar = "Connected. Retrieving records..."

    AsAtDate = options.asAt


        sql = _

            "SELECT Con.ContractID, Con.CustomerID, Con.FromDate, Con.ToDateContracted, " & _

            "Con.AmountExcl, C.CustomerRef, C.Name " & _

            "FROM Contracts Con, Customers C " & _

            "WHERE Con.CustomerID = C.CustomerID AND Con.ToDateContracted >= " & ToSql(AsAtDate) & _

            " AND Con.AmountExcl > 0 GROUP BY C.CustomerRef"

        rs.Open sql, cn


    Set rng = Range("CitizenBalanceReport!CBBody").Cells(1)

    i = 0: j = 0: valueCheck = 0

    cStatus = ""

    lTotal = False

    firstRow = True


    Do While Not rs.EOF

        If firstRow Then

         If Not IsNull(rs!ToDateContracted) Then

           ToDate = rs!ToDateContracted

           FromDate = rs!FromDate

             totMonths = DateDiff("m", FromDate, ToDate)

             RemainMonths = DateDiff("m", FromDate, AsAtDate)

             If RemainMonths > 0 Then

             If totMonths <> 0 Then

              TotalVal = rs!AmountExcl * totMonths

              TotPaid = rs!AmountExcl * RemainMonths

             End If

             End If

             ValRemaining = TotalVal - TotPaid

             rng.Offset(i, 0) = rs!CustomerRef

             rng.Offset(i, 1) = "" & rs!name

             End If

        End If


        rng.Offset(i, 4) = rng.Offset(i, 4) + ValRemaining


        If rng.Offset(i, valueCheck).value = 0 Then

            rng.Offset(i, valueCheck).value = ""

        End If




        If Not rs.EOF Then

            If Not (rs!CustomerRef = rng.Offset(i, 0).value) Then

                i = i + 1

               rng.Offset(i).EntireRow.insert (xlShiftDown)

               firstRow = True


                firstRow = False

            End If

        End If



    application.StatusBar = ""

    ' Closes the table.


    cn.Close ' to drop temp tables...

End Sub

Open in new window

Question by:NerishaB
  • 2
LVL 85

Accepted Solution

Rory Archibald earned 500 total points
ID: 34212996
I suspect TotalVal, TotPaid and ValRemaining should all be Double and not Integer. As a point of interest, you may as well declare all the other Integer variables as Long since that is what VBA uses behind the scenes anyway.

Author Closing Comment

ID: 34213014
Thanks. You're brilliant!!!
LVL 85

Expert Comment

by:Rory Archibald
ID: 34213040
I wish I were! I've just been doing this a while. :)

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

INDEX and MATCH can be used to great effect to replace HLOOKUP and VLOOKUP as it does not have the limitation of needing the data to be sorted so that the reference value is in the first column or row. It also has the ability to perform a bi-directi…
Drop Down List with Unique/Distinct Values (Part II - ComboBox or ListBox and Data Validation List Bonus!) David Miller (dlmille) Intro This article focuses on delivering unique, sorted lists to list objects (e.g., ComboBox, ListBox) and Dat…
The viewer will learn how to simulate a series of sales calls dependent on a single skill level and learn how to simulate a series of sales calls dependent on two skill levels. Simulating Independent Sales Calls: Enter .75 into cell C2 – “skill leve…
Graphs within dashboards are meant to be dynamic, representing data from a period of time that will change each time the dashboard is updated with new data. Rather than update each graph to point to a different set within a static set of data, t…

895 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now