Solved: Overflow Error #6
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.
[VBA]
Dim NRC_Total As Integer
Begin Loop
' SQL Code to grab a field
NRC_Total = NRC_Total + Current_SQL_Field
Loop
[/VBA]
About 30 rows in, it popped that OVERFLOW error. Any suggestions?
Thanks!
Kaela
Maybe too many characters, how big is the string?
Dim as Long not Integer.
It appears there is no exit from the loop. Try something like
[VBA]Do
' SQL Code to grab a field
If Current_SQL_Field = "" Then Exit Do
NRC_Total = NRC_Total + Current_SQL_Field
Loop
[/VBA]
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'
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,
Ken Puls, CMA - Microsoft MVP (Excel)
I hate it when my computer does what I tell it to, and not what I want it to.
Learn how to use our KB tags! -||- Ken's Excel Website -||- Ken's Excel Forums -||- My Blog -||- Excel Training Calendar
This is a shameless plug for my new book "RibbonX - Customizing the Office 2007 Ribbon". Find out more about it here!
Help keep VBAX clean! Use the 'Thread Tools' menu to mark your own threads solved!
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
Posting Permissions
Reply With Quote
