Unique Autonumber Design

[qad122]

I want to create a unique customer ID number consisting of the first four characters of the customer's last name, and then 4 random numbers. It is driving me crazy.

I have been successful in creating automatic sales ID, and product ID with the DLookup function.

Any suggestions?

thanks,

Susan

 

[RickSpr]

Function RandomDigits(NumDigits As Integer) As String
' Returns a string of random digits NumDigits (1 to 10) in length
    RandomDigits = Format$(Rnd() * 10 ^ NumDigits, String$(NumDigits, "0"))
End Function

CustID = Left$(CustName) & RandomDigits(4)
Rick Sprague