Does anyone have any sample database for password generator ? We send files to our client and we want to be able to generate password (must be alpha-numeric, 8 digits) store them in the database. If client forgets the password and client can call us and we give them the password.

Will you just be storing a clientName and the client's password?

I just wanted to rant here. For any IT people listening - if you are beholden by some higher power to require a 27-digit password with at least 10 special characters excluding all but 9 of the possible special characters with no repeats of the user's last 12 passwords... fine, but you absolutely have to provide a password generator so I don't have to spend 3 hours just trying to think of one.

Try HERE

we store client id. we use same password say from 1/1/6 to 3/31/6, generate new one for 4/1/6 to 6/30/6 and so forth.

table name tblGAPasswords
GA_ID
PStart
PEnd
Password




Here is the code x-employee used to generate password. This code dont work. I have user telling me they execute this 60 to 70 times and still nothing happened. plus its takes time and frustrate users.


Option Compare Database
Function Randomizer() As Integer
Static AlreadyDone As Integer
If AlreadyDone = False Then Randomize: AlreadyDone = True
Randomizer = 0
End Function
Function CreatePassword()

Dim db As Database
Dim rst As Recordset
Dim P1, P2, P3, P4, P5, P6, P7, P8, txtPassword As String

Set db = CurrentDb
DoCmd.SetWarnings False
'2006
DoCmd.RunSQL "DELETE Password.* FROM [Password];"
DoCmd.OpenQuery "qryMTPassword", acViewNormal, acAdd
Set rst = db.OpenRecordset("Password")
With rst
If .RecordCount <> 0 Then
.MoveFirst
P1 = rst.Fields(0)
.MoveNext
P2 = rst.Fields(0)
.MoveNext
P3 = rst.Fields(0)
.MoveNext
P4 = rst.Fields(0)
.MoveNext
P5 = rst.Fields(0)
.MoveNext
P6 = rst.Fields(0)
.MoveNext
P7 = rst.Fields(0)
.MoveNext
P8 = rst.Fields(0)
.MoveNext
End If
End With
rst.Close
txtPassword = P2 & P4 & P5 & P7 & P6 & P3 & P1 & P8
DoCmd.RunSQL "INSERT INTO tblGAPasswords ( GA_Number, PeriodStart, PeriodEnd, [Password] ) SELECT '" & [Forms]![frmgroups]![GA_Number] & "' AS GA, #1/1/2006# AS Expr1, #3/31/2006# AS Expr2,'" & txtPassword & "' AS Expr3;"

DoCmd.OpenQuery "qryMTPassword", acViewNormal, acAdd

Set rst = db.OpenRecordset("Password")
With rst
If .RecordCount <> 0 Then
.MoveFirst
P1 = rst.Fields(0)
.MoveNext
P2 = rst.Fields(0)
.MoveNext
P3 = rst.Fields(0)
.MoveNext
P4 = rst.Fields(0)
.MoveNext
P5 = rst.Fields(0)
.MoveNext
P6 = rst.Fields(0)
.MoveNext
P7 = rst.Fields(0)
.MoveNext
P8 = rst.Fields(0)
.MoveNext
End If
End With
rst.Close
txtPassword = P3 & P5 & P6 & P4 & P7 & P3 & P1 & P8
DoCmd.RunSQL "INSERT INTO tblGAPasswords ( GA_Number, PeriodStart, PeriodEnd, [Password] ) SELECT '" & [Forms]![frmgroups]![GA_Number] & "' AS GA, #4/1/2006# AS Expr1, #6/30/2006# AS Expr2,'" & txtPassword & "' AS Expr3;"

DoCmd.OpenQuery "qryMTPassword", acViewNormal, acAdd
Set rst = db.OpenRecordset("Password")
With rst
If .RecordCount <> 0 Then
.MoveFirst
P1 = rst.Fields(0)
.MoveNext
P2 = rst.Fields(0)
.MoveNext
P3 = rst.Fields(0)
.MoveNext
P4 = rst.Fields(0)
.MoveNext
P5 = rst.Fields(0)
.MoveNext
P6 = rst.Fields(0)
.MoveNext
P7 = rst.Fields(0)
.MoveNext
P8 = rst.Fields(0)
.MoveNext
End If
End With
rst.Close
txtPassword = P7 & P4 & P5 & P8 & P6 & P3 & P1 & P2
DoCmd.RunSQL "INSERT INTO tblGAPasswords ( GA_Number, PeriodStart, PeriodEnd, [Password] ) SELECT '" & [Forms]![frmgroups]![GA_Number] & "' AS GA, #7/1/2006# AS Expr1, #9/30/2006# AS Expr2,'" & txtPassword & "' AS Expr3;"

DoCmd.OpenQuery "qryMTPassword", acViewNormal, acAdd
Set rst = db.OpenRecordset("Password")
With rst
If .RecordCount <> 0 Then
.MoveFirst
P1 = rst.Fields(0)
.MoveNext
P2 = rst.Fields(0)
.MoveNext
P3 = rst.Fields(0)
.MoveNext
P4 = rst.Fields(0)
.MoveNext
P5 = rst.Fields(0)
.MoveNext
P6 = rst.Fields(0)
.MoveNext
P7 = rst.Fields(0)
.MoveNext
P8 = rst.Fields(0)
.MoveNext
End If
End With
rst.Close
txtPassword = P3 & P5 & P6 & P8 & P7 & P4 & P2 & P1
DoCmd.RunSQL "INSERT INTO tblGAPasswords ( GA_Number, PeriodStart, PeriodEnd, [Password] ) SELECT '" & [Forms]![frmgroups]![GA_Number] & "' AS GA, #10/1/2006# AS Expr1, #12/31/2006# AS Expr2,'" & txtPassword & "' AS Expr3;"
'2007
DoCmd.OpenQuery "qryMTPassword", acViewNormal, acAdd
Set rst = db.OpenRecordset("Password")
With rst
If .RecordCount <> 0 Then
.MoveFirst
P1 = rst.Fields(0)
.MoveNext
P2 = rst.Fields(0)
.MoveNext
P3 = rst.Fields(0)
.MoveNext
P4 = rst.Fields(0)
.MoveNext
P5 = rst.Fields(0)
.MoveNext
P6 = rst.Fields(0)
.MoveNext
P7 = rst.Fields(0)
.MoveNext
P8 = rst.Fields(0)
.MoveNext
End If
End With
rst.Close
txtPassword = P2 & P4 & P5 & P7 & P6 & P3 & P1 & P8
DoCmd.RunSQL "INSERT INTO tblGAPasswords ( GA_Number, PeriodStart, PeriodEnd, [Password] ) SELECT '" & [Forms]![frmgroups]![GA_Number] & "' AS GA, #1/1/2007# AS Expr1, #3/31/2007# AS Expr2,'" & txtPassword & "' AS Expr3;"

DoCmd.OpenQuery "qryMTPassword", acViewNormal, acAdd
Set rst = db.OpenRecordset("Password")
With rst
If .RecordCount <> 0 Then
.MoveFirst
P1 = rst.Fields(0)
.MoveNext
P2 = rst.Fields(0)
.MoveNext
P3 = rst.Fields(0)
.MoveNext
P4 = rst.Fields(0)
.MoveNext
P5 = rst.Fields(0)
.MoveNext
P6 = rst.Fields(0)
.MoveNext
P7 = rst.Fields(0)
.MoveNext
P8 = rst.Fields(0)
.MoveNext
End If
End With
rst.Close
txtPassword = P2 & P4 & P5 & P7 & P6 & P3 & P1 & P8
DoCmd.RunSQL "INSERT INTO tblGAPasswords ( GA_Number, PeriodStart, PeriodEnd, [Password] ) SELECT '" & [Forms]![frmgroups]![GA_Number] & "' AS GA, #4/1/2007# AS Expr1, #6/30/2007# AS Expr2,'" & txtPassword & "' AS Expr3;"

DoCmd.OpenQuery "qryMTPassword", acViewNormal, acAdd
Set rst = db.OpenRecordset("Password")
With rst
If .RecordCount <> 0 Then
.MoveFirst
P1 = rst.Fields(0)
.MoveNext
P2 = rst.Fields(0)
.MoveNext
P3 = rst.Fields(0)
.MoveNext
P4 = rst.Fields(0)
.MoveNext
P5 = rst.Fields(0)
.MoveNext
P6 = rst.Fields(0)
.MoveNext
P7 = rst.Fields(0)
.MoveNext
P8 = rst.Fields(0)
.MoveNext
End If
End With
rst.Close
txtPassword = P2 & P4 & P5 & P7 & P6 & P3 & P1 & P8
DoCmd.RunSQL "INSERT INTO tblGAPasswords ( GA_Number, PeriodStart, PeriodEnd, [Password] ) SELECT '" & [Forms]![frmgroups]![GA_Number] & "' AS GA, #7/1/2007# AS Expr1, #9/30/2007# AS Expr2,'" & txtPassword & "' AS Expr3;"

DoCmd.OpenQuery "qryMTPassword", acViewNormal, acAdd
Set rst = db.OpenRecordset("Password")
With rst
If .RecordCount <> 0 Then
.MoveFirst
P1 = rst.Fields(0)
.MoveNext
P2 = rst.Fields(0)
.MoveNext
P3 = rst.Fields(0)
.MoveNext
P4 = rst.Fields(0)
.MoveNext
P5 = rst.Fields(0)
.MoveNext
P6 = rst.Fields(0)
.MoveNext
P7 = rst.Fields(0)
.MoveNext
P8 = rst.Fields(0)
.MoveNext
End If
End With
rst.Close
txtPassword = P2 & P4 & P5 & P7 & P6 & P3 & P1 & P8
DoCmd.RunSQL "INSERT INTO tblGAPasswords ( GA_Number, PeriodStart, PeriodEnd, [Password] ) SELECT '" & [Forms]![frmgroups]![GA_Number] & "' AS GA, #10/1/2007# AS Expr1, #12/31/2007# AS Expr2,'" & txtPassword & "' AS Expr3;"





'2008
DoCmd.OpenQuery "qryMTPassword", acViewNormal, acAdd
Set rst = db.OpenRecordset("Password")
With rst
If .RecordCount <> 0 Then
.MoveFirst
P1 = rst.Fields(0)
.MoveNext
P2 = rst.Fields(0)
.MoveNext
P3 = rst.Fields(0)
.MoveNext
P4 = rst.Fields(0)
.MoveNext
P5 = rst.Fields(0)
.MoveNext
P6 = rst.Fields(0)
.MoveNext
P7 = rst.Fields(0)
.MoveNext
P8 = rst.Fields(0)
.MoveNext
End If
End With
rst.Close
txtPassword = P2 & P4 & P5 & P7 & P6 & P3 & P1 & P8
DoCmd.RunSQL "INSERT INTO tblGAPasswords ( GA_Number, PeriodStart, PeriodEnd, [Password] ) SELECT '" & [Forms]![frmgroups]![GA_Number] & "' AS GA, #1/1/2008# AS Expr1, #3/31/2008# AS Expr2,'" & txtPassword & "' AS Expr3;"

DoCmd.OpenQuery "qryMTPassword", acViewNormal, acAdd
Set rst = db.OpenRecordset("Password")
With rst
If .RecordCount <> 0 Then
.MoveFirst
P1 = rst.Fields(0)
.MoveNext
P2 = rst.Fields(0)
.MoveNext
P3 = rst.Fields(0)
.MoveNext
P4 = rst.Fields(0)
.MoveNext
P5 = rst.Fields(0)
.MoveNext
P6 = rst.Fields(0)
.MoveNext
P7 = rst.Fields(0)
.MoveNext
P8 = rst.Fields(0)
.MoveNext
End If
End With
rst.Close
txtPassword = P2 & P4 & P5 & P7 & P6 & P3 & P1 & P8
DoCmd.RunSQL "INSERT INTO tblGAPasswords ( GA_Number, PeriodStart, PeriodEnd, [Password] ) SELECT '" & [Forms]![frmgroups]![GA_Number] & "' AS GA, #4/1/2008# AS Expr1, #6/30/2008# AS Expr2,'" & txtPassword & "' AS Expr3;"

DoCmd.OpenQuery "qryMTPassword", acViewNormal, acAdd
Set rst = db.OpenRecordset("Password")
With rst
If .RecordCount <> 0 Then
.MoveFirst
P1 = rst.Fields(0)
.MoveNext
P2 = rst.Fields(0)
.MoveNext
P3 = rst.Fields(0)
.MoveNext
P4 = rst.Fields(0)
.MoveNext
P5 = rst.Fields(0)
.MoveNext
P6 = rst.Fields(0)
.MoveNext
P7 = rst.Fields(0)
.MoveNext
P8 = rst.Fields(0)
.MoveNext
End If
End With
rst.Close
txtPassword = P2 & P4 & P5 & P7 & P6 & P3 & P1 & P8
DoCmd.RunSQL "INSERT INTO tblGAPasswords ( GA_Number, PeriodStart, PeriodEnd, [Password] ) SELECT '" & [Forms]![frmgroups]![GA_Number] & "' AS GA, #7/1/2008# AS Expr1, #9/30/2008# AS Expr2,'" & txtPassword & "' AS Expr3;"

DoCmd.OpenQuery "qryMTPassword", acViewNormal, acAdd
Set rst = db.OpenRecordset("Password")
With rst
If .RecordCount <> 0 Then
.MoveFirst
P1 = rst.Fields(0)
.MoveNext
P2 = rst.Fields(0)
.MoveNext
P3 = rst.Fields(0)
.MoveNext
P4 = rst.Fields(0)
.MoveNext
P5 = rst.Fields(0)
.MoveNext
P6 = rst.Fields(0)
.MoveNext
P7 = rst.Fields(0)
.MoveNext
P8 = rst.Fields(0)
.MoveNext
End If
End With
rst.Close
txtPassword = P2 & P4 & P5 & P7 & P6 & P3 & P1 & P8
DoCmd.RunSQL "INSERT INTO tblGAPasswords ( GA_Number, PeriodStart, PeriodEnd, [Password] ) SELECT '" & [Forms]![frmgroups]![GA_Number] & "' AS GA, #10/1/2008# AS Expr1, #12/31/2008# AS Expr2,'" & txtPassword & "' AS Expr3;"
DoCmd.OpenQuery "qryMTPassword", acViewNormal, acAdd
Set rst = db.OpenRecordset("Password")
With rst
If .RecordCount <> 0 Then
.MoveFirst
P1 = rst.Fields(0)
.MoveNext
P2 = rst.Fields(0)
.MoveNext
P3 = rst.Fields(0)
.MoveNext
P4 = rst.Fields(0)
.MoveNext
P5 = rst.Fields(0)
.MoveNext
P6 = rst.Fields(0)
.MoveNext
P7 = rst.Fields(0)
.MoveNext
P8 = rst.Fields(0)
.MoveNext
End If
End With
rst.Close
txtPassword = P2 & P4 & P5 & P7 & P6 & P3 & P1 & P8
DoCmd.RunSQL "INSERT INTO tblGAPasswords ( GA_Number, PeriodStart, PeriodEnd, [Password] ) SELECT '" & [Forms]![frmgroups]![GA_Number] & "' AS GA, #1/1/2008# AS Expr1, #3/31/2008# AS Expr2,'" & txtPassword & "' AS Expr3;"

DoCmd.OpenQuery "qryMTPassword", acViewNormal, acAdd
Set rst = db.OpenRecordset("Password")
With rst
If .RecordCount <> 0 Then
.MoveFirst
P1 = rst.Fields(0)
.MoveNext
P2 = rst.Fields(0)
.MoveNext
P3 = rst.Fields(0)
.MoveNext
P4 = rst.Fields(0)
.MoveNext
P5 = rst.Fields(0)
.MoveNext
P6 = rst.Fields(0)
.MoveNext
P7 = rst.Fields(0)
.MoveNext
P8 = rst.Fields(0)
.MoveNext
End If
End With
rst.Close
txtPassword = P2 & P4 & P5 & P7 & P6 & P3 & P1 & P8
DoCmd.RunSQL "INSERT INTO tblGAPasswords ( GA_Number, PeriodStart, PeriodEnd, [Password] ) SELECT '" & [Forms]![frmgroups]![GA_Number] & "' AS GA, #4/1/2008# AS Expr1, #6/30/2008# AS Expr2,'" & txtPassword & "' AS Expr3;"

DoCmd.OpenQuery "qryMTPassword", acViewNormal, acAdd
Set rst = db.OpenRecordset("Password")
With rst
If .RecordCount <> 0 Then
.MoveFirst
P1 = rst.Fields(0)
.MoveNext
P2 = rst.Fields(0)
.MoveNext
P3 = rst.Fields(0)
.MoveNext
P4 = rst.Fields(0)
.MoveNext
P5 = rst.Fields(0)
.MoveNext
P6 = rst.Fields(0)
.MoveNext
P7 = rst.Fields(0)
.MoveNext
P8 = rst.Fields(0)
.MoveNext
End If
End With
rst.Close
txtPassword = P2 & P4 & P5 & P7 & P6 & P3 & P1 & P8
DoCmd.RunSQL "INSERT INTO tblGAPasswords ( GA_Number, PeriodStart, PeriodEnd, [Password] ) SELECT '" & [Forms]![frmgroups]![GA_Number] & "' AS GA, #7/1/2008# AS Expr1, #9/30/2008# AS Expr2,'" & txtPassword & "' AS Expr3;"

DoCmd.OpenQuery "qryMTPassword", acViewNormal, acAdd
Set rst = db.OpenRecordset("Password")
With rst
If .RecordCount <> 0 Then
.MoveFirst
P1 = rst.Fields(0)
.MoveNext
P2 = rst.Fields(0)
.MoveNext
P3 = rst.Fields(0)
.MoveNext
P4 = rst.Fields(0)
.MoveNext
P5 = rst.Fields(0)
.MoveNext
P6 = rst.Fields(0)
.MoveNext
P7 = rst.Fields(0)
.MoveNext
P8 = rst.Fields(0)
.MoveNext
End If
End With
rst.Close
txtPassword = P2 & P4 & P5 & P7 & P6 & P3 & P1 & P8
DoCmd.RunSQL "INSERT INTO tblGAPasswords ( GA_Number, PeriodStart, PeriodEnd, [Password] ) SELECT '" & [Forms]![frmgroups]![GA_Number] & "' AS GA, #10/1/2008# AS Expr1, #12/31/2008# AS Expr2,'" & txtPassword & "' AS Expr3;"
DoCmd.OpenQuery "qryPassword1", acViewNormal, acEdit
DoCmd.OpenQuery "qryPassword1", acViewNormal, acEdit
DoCmd.OpenQuery "qryPassword1", acViewNormal, acEdit
DoCmd.OpenQuery "qryPassword1", acViewNormal, acEdit
DoCmd.OpenQuery "qryPassword2", acViewNormal, acEdit
DoCmd.OpenQuery "qryPassword2", acViewNormal, acEdit
DoCmd.OpenQuery "qryPassword2", acViewNormal, acEdit
DoCmd.OpenQuery "qryPassword2", acViewNormal, acEdit
DoCmd.SetWarnings True
End Function

http://www.utteraccess.com/forums/showflat...&PHPSESSID=


I tried this one. but i can't get this to work. i put the code in vba. and they calling from a button

Call RandomPwd

when i execute the button it says compiled error. argument not optional

plus, how do i get those created password into my password box. and how do i tell create a record for next quarter (pstart 4/1/6 and pend 6/30/6 and put a random diff password there.

I put a screen shoot (the 10000 is client id) and it's already populated when the form is loaded.

I want user to click on generate password and system should create password for each quarter. if there is already a password generate for 1/1/6 to 3/31/6 then system should generate 4/1/6 to 6/30/6 record with new password.

Try this

Very cool Candace...thank you.

Thank you candace. That's exactly wat i was looking for. How can I save them into a table with date ranged ?