Creating Random Passwords in Access

[dcorrea]

I am currently using MS Access XP and would like to be able to generate a four-digit random password. How would I be able to do this? Thanks in advance for your assistance.

 

[mdav2]

This code will create a numeric 4 digit password string made from numbers.

Code
----
' Declare variable to hold password
Dim strPassword As String

' Initialise password to a blank string
strPassword = ""

' Create a password of 4 characters made up of numbers
Do Until Len(strPassword) = 4
strPassword = strPassword + Trim(Str(Int(Rnd() * 10)))
Loop

' Show the password created
MsgBox strPassword

 

[dcorrea]

Thanks for your quick response. Can you shed some light as to where this code should be added. Thanks again!

 

[mdav2]

It can be used behind a button but it depends how and why you are creating the password.

Does it need to create a random password for a new user, then set the password? Is it a user password using access security to login to a database???

If so I am not sure how you would build it into the process of adding a new user. Perhaps you just have a menu option that creates a random number, write it down and assign it.