Overflow error

[atrium]

Run time error 6
Overflow
Dim intUniqueNo As Integer
Happens after intUniqueNo = DMax("DocId", "DocumentLibrary")

 

[arnelgp]

use Long for your variable:

Dim lngUniqueNo As Long
lngUniqueNo = DMax("DocId", "DocumentLibrary")

 

[atrium]

Thank you - fixed