Solved: Overflow Error #6

[Kindly_Kaela]

I am trying to add several data fields from SQL and input it into Excel.

I ran this command inside the SQL loop to get the total.



Dim NRC_Total As Integer

Begin Loop

' SQL Code to grab a field

NRC_Total = NRC_Total + Current_SQL_Field

Loop


About 30 rows in, it popped that OVERFLOW error. Any suggestions?

Thanks!
Kaela
:cloud9:

[Bob Phillips]

Maybe too many characters, how big is the string?

[Norie]

Dim as Long not Integer.

[mdmackillop]

It appears there is no exit from the loop. Try something like
Do

' SQL Code to grab a field
If Current_SQL_Field = "" Then Exit Do
NRC_Total = NRC_Total + Current_SQL_Field

Loop

[Ken Puls]

Hi Kaela,

Is the value of NRC_Total going over 32,767? That's the max an integer can hold. You may want to try changing the data type to Long to go further.

Also, I assume that you do have more code in the loop? (Such as a way to exit it?)

HTH,

[Kindly_Kaela]

I can't get over how fast you all reply! You all are the BEST!

Dim NRC_Total As Long

Yay! Worked perfect!

Sorry MD, I was just trying to summarize what I did. The loop works, I'm just too lazy to type it out. Next time I will.

- Kaela
:beerchug: