Picking Random Numbers

[Dwight]

I have been tasked with coming up with a form that will automatically assign
a random number to an individual with the click of a button.

The number is 7 digits in length.
Each element of the number can range from 1 to 9.

Something simular to a lottery number picker.

Does anyone have any sample code that I can refer to?

Thanks in advance!

Dwight

 

[Douglas J. Steele]

Function GenerateRandomNumber() As String
Dim lngLoop As Long
Dim strResult As String

Randomize

For lngLoop = 1 To 7
strResult = strResult & Format((Int(9 * Rnd) + 1), "0")
Next lngLoop

GenerateRandomNumber = strResult

End Function

If what you want is the more usual digits ranging from 0 to 9, use

Function GenerateRandomNumber() As String
Dim lngLoop As Long
Dim strResult As String

Randomize

For lngLoop = 1 To 7
strResult = strResult & Format(Int(10 * Rnd), "0")
Next lngLoop

GenerateRandomNumber = strResult

End Function

 

[KARL DEWEY]

Try this --
Round(Rnd() * 9999999, 0) + 1

If your table has an Autonumber as primary key then try this --
Right(Left((.46345679/[aaa])*100000,15),7)

 

[Dwight]

Thank you!

Function GenerateRandomNumber() As String
Dim lngLoop As Long
Dim strResult As String

Randomize

For lngLoop = 1 To 7
strResult = strResult & Format((Int(9 * Rnd) + 1), "0")
Next lngLoop

GenerateRandomNumber = strResult

End Function

If what you want is the more usual digits ranging from 0 to 9, use

Function GenerateRandomNumber() As String
Dim lngLoop As Long
Dim strResult As String

Randomize

For lngLoop = 1 To 7
strResult = strResult & Format(Int(10 * Rnd), "0")
Next lngLoop

GenerateRandomNumber = strResult

End Function