Error 6 Overflow

[mfaqueiroz]

Hi!
I'm stuck with this error : error 6:Overflow I've serch for this and the solutions are pretty similar : set the variable as long and use the Clng, I have did that however the error persists.
There is my code,

Dim End as Long

Set dbs = DBEngine(0)(0)
Set TABLE1= dbs.OpenRecordset("input",db_open_dynaset)

End= CLng( DDcount("ID","Input"))

For x=1 to (End-1)





Any suggestion?

Thank yoou!!

 

[pbaldy]

What is X declared as? Could the count be zero?

 

[mfaqueiroz]

is the count of the records
starts with 1

after that i have something like
x=1+x

 

[pbaldy]

I understand. What value is being returned as the count, and what is X declared as?

 

[kevlray]

Isn't End a reserved word.

 

[mfaqueiroz]

it's working!! i only closed the access and re open and the error dissapeared

 

[Grumm]

Why do you have

after that i have something like
x=1+x

doesn't a For loop auto-increment on its own ?

For x =1 to (End-1)
do stuff
Next x

 

[mfaqueiroz]

yeah it's doing nothing there! thanks

 

[Grumm]

Also someone mentioned that "End" may be a reserved word.
I always write variables starting with the type of it.
So

Dim End as Long

would be

Dim lEnd as Long[code]
(strVariable, bIsOk, iNumber) that way you don't get in trouble with reserved words.

Others here probably has other methods to do so.