Login form help

[RiceKnife]

Hello, Ive been trying to create a form where if the user inserts a username and password, the form will log in and send the user to another form. I searched around the internet for a while and I found a code that allowed me to this, but I do not understand it so can someone please explain it to me?

Also how can I make it so that when the user opens the database the log in form popsup and does not let the user access any other part of the database until he/she has logged in?



The Code:

Private Sub cmdLogin_Click()
On Error GoTo Err_cmdLogin_Click
Dim stDocName As String
Dim stLinkCriteria As String
Dim recSet As Recordset
Dim isOK As Boolean
Dim txUsername As String
Dim txPassword As String

Set recSet = CurrentDb.OpenRecordset("Login Credentials", dbOpenTable)

txtusername.SetFocus
txUsername = txtusername.Text
txtpassword.SetFocus
txPassword = txtpassword.Text

With recSet
Do While Not .EOF
If txUsername = !UserName And txPassword = !Password Then isOK = True
.MoveNext
Loop
End With
If isOK = False Then MsgBox ("Invalid username/password!")
If isOK = True Then
stDocName = "Main"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If

recSet.Close
Exit_cmdLogin_Click:
Exit Sub
Err_cmdLogin_Click:
MsgBox Err.Description
Resume Exit_cmdLogin_Click
End Sub

[alcapps]

'sub procedure call.. runs but doesn't return a value
Private Sub cmdLogin_Click()
'if there are errors goto Err_cmdLogin_Click
On Error GoTo Err_cmdLogin_Click
'set the variables
Dim stDocName As String
Dim stLinkCriteria As String
Dim recSet As Recordset
Dim isOK As Boolean
Dim txUsername As String
Dim txPassword As String

'set the recordset to the table [Login Credentials]
Set recSet = CurrentDb.OpenRecordset("Login Credentials", dbOpenTable)

'put the cursor on txtusername not needed..
txtusername.SetFocus
txUsername = me.txtusername.Text
'put the cursor on txt password not needed..
txtpassword.SetFocus
txPassword = Me.txtpassword.Text
isOk = False
'use recSet for each . so recSet.MoveNext = .moveNext
With recSet
'Loop thru all records
Do While Not .EOF
'if you find the username and Password.. say ok I would add this..
If txUsername = !UserName And txPassword = !Password Then
isOK = True
exit Do 'exits the loop when the value is found.. otherwise you have to loop thru all records
end if
.MoveNext
Loop
End With
'check to see if you found the right username and password..
If isOK = False Then MsgBox ("Invalid username/password!")
If isOK = True Then
'if you find it then go to the main form.
stDocName = "Main"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
'close the table
recSet.Close
'quit the sub procedure..
Exit_cmdLogin_Click:
Exit Sub
'go here if you have an error..
Err_cmdLogin_Click:
MsgBox Err.Description
Resume Exit_cmdLogin_Click
End Sub

[alcapps]

However if you are trying to prevent people from going anywhere you must make this a modal form and people can still hold the shift key down and get in by bypassing your form.

You would have to write some vba code to prevent this as well. So I am not sure how far you want to go to make this bullet proof. You can make a mde file from your mdb file and this way they can't get to you code only forms..

good luck