Overflow at 45783 records???!! 2

[Russie]

Hi.

I'm using....

Public Function countOutstandingCashbook() As Integer

countOutstandingCashbook = DCount("[Date]", "tblCashbook", "&quot

End Function

...to count the number of records in my tblCashbook table, which has 45783 records in it (standard stuff).

I get 'Runtime Error 6 Overflow' in response, which I find odfd as 45K may be a lot of records but I wouldn't have thought that it would give Access a problem.

Any ideas as to why this should happen?? Any ideas for a fix?

Anything Appreciated.

Regards

Russie

 

[Frink]

Hallo,

Do you get the same error if you use "*" rather than "[Date]" in your DCount function call?

- Frink

 

[JohnYingling]

An integer can only hold values from -32768 to +32767. Go Lomg.

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[scking]

What JohnYingling is suggesting is that you not use an integer to count anything which could possibly be greater than 32767. That is easily accomplished by using a long variable which, and I don't feel like looking it up, can store numbers in the multiple millions.

Public Function countOutstandingCashbook() As Long

countOutstandingCashbook = DCount("[Date]", "tblCashbook", "&quot

End Function
-------------------------------------
scking@arinc.com
Try to resolve problems independently
Then seek help among peers or experts
But TEST recommended solutions
-------------------------------------