Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Password question
- Thread starter eussias
- Start date
1 Close the database. If the database is shared on a network, ask all other users to close the database.
2 Make a backup copy of the database and store it in a secure place.
3 On the File menu, click Open Database.
4 Select the Exclusive check box, and then open the database.
5 On the Tools menu, point to Security, and then click Set Database Password.
6 In the Password box, type your password. Passwords are case-sensitive.
7 In the Verify box, confirm your password by typing the password again, and then click OK.
The password is now set. The next time you or any other user opens the database, a dialog box will be displayed that requests a password.
Caution
· If you lose or forget your password, it can't be recovered and you won't be able to open your database.
2 Make a backup copy of the database and store it in a secure place.
3 On the File menu, click Open Database.
4 Select the Exclusive check box, and then open the database.
5 On the Tools menu, point to Security, and then click Set Database Password.
6 In the Password box, type your password. Passwords are case-sensitive.
7 In the Verify box, confirm your password by typing the password again, and then click OK.
The password is now set. The next time you or any other user opens the database, a dialog box will be displayed that requests a password.
Caution
· If you lose or forget your password, it can't be recovered and you won't be able to open your database.
This is a real quick example that I hope will get you on track...
1. Create a table <tblUserList> (if one doesn't already exist) of users and passwords.
2. Create a form <frmLogin> to prompt for Name and Password. Add a command button and in the on_click event do the following:
Dim db as Database
Dim rst As Recordset
'Check for valid UserID and Password against User List
Set rst = CurrentDb.OpenRecordset("tblUserList", dbOpenDynaset)
rst.FindFirst "[UserName] = " & Me.UserName
If (rst.NoMatch) Then
MsgBox "Please Verify User Name and UserID", , "Invalid..."
Exit Sub
Else
'Nested If Statement
If rst.UserPassword = me.UserPassword then
'Close this form and open your menu
'Clean up
rst.Close
Set rst = Nothing
Else
MsgBox "Please Verify User Name and UserID", , "Invalid..."
Exit Sub
End If
End If
3. In your >Tools>Startup menu select frmLogin in the Display Form box
You can add a counter for number of trys and then exit the database after too many. Hope this helps.
meBrian
1. Create a table <tblUserList> (if one doesn't already exist) of users and passwords.
2. Create a form <frmLogin> to prompt for Name and Password. Add a command button and in the on_click event do the following:
Dim db as Database
Dim rst As Recordset
'Check for valid UserID and Password against User List
Set rst = CurrentDb.OpenRecordset("tblUserList", dbOpenDynaset)
rst.FindFirst "[UserName] = " & Me.UserName
If (rst.NoMatch) Then
MsgBox "Please Verify User Name and UserID", , "Invalid..."
Exit Sub
Else
'Nested If Statement
If rst.UserPassword = me.UserPassword then
'Close this form and open your menu
'Clean up
rst.Close
Set rst = Nothing
Else
MsgBox "Please Verify User Name and UserID", , "Invalid..."
Exit Sub
End If
End If
3. In your >Tools>Startup menu select frmLogin in the Display Form box
You can add a counter for number of trys and then exit the database after too many. Hope this helps.
meBrian
- Status
Similar threads
- Locked
- Question
- Locked
- Question