Hi,
I personaly wouldn't suggest using random numbers for invoices as VB's random numbers....aren't so random 
But if you really want some random number that are good for using in invoices then here is a little script I somtimes use 
Code:
Randomize
function ZeroPad(sWork, nDigits)
ZeroPad = right(string(nDigits, "0") & trim(sWork), nDigits)
End function
function GetIndexNumber()
sDay = Day(Now())
sMonth = Month(Now())
sYear = Year(Now())
sHour = Hour(Now())
sMinute = Minute(Now())
sSecond = Second(Now())
Tail = Int(1000000 * Rnd)
GetIndexNumber = ZeroPad(sYear, 4) & ZeroPad(sMonth, 2) & ZeroPad(sDay, 2) & ZeroPad(sHour, 2) & ZeroPad(sMinute, 2) & ZeroPad(sSecond, 2) & ZeroPad(Tail, 6)
End function
Bookmarks