error in code

[chavez_sea]

I used code from a video by Steve Bishop to create a login screen for a database.
https://www.youtube.com/watch?v=356ylQn6kkA
I put a copy of the code below. When I click the login button I get the following message.
Compile error:
Variable not defined and it highlights the following code dbOpenSnapshot

Can someone please tell me what is wrong. Thanks

CODE:


Private Sub BtnLogin_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tbl1Employees", dbOpenSnapshot, dbReadOnly)
rs.FindFirst "UserName='" & Me.txtUserName & "'"
If rs.NoMatch = True Then
Me.lblWrongUser.Visible = True
Me.txtUserName.SetFocus
Exit Sub
End If
Me.lblWrongUser.Visible = False
If rs!Password <> Me.txtPassword Then
Me.lblWrongPass.Visible = True
Me.txtPassword.SetFocus
Exit Sub
End If
Me.lblWrongPass.Visible = False
DoCmd.OpenForm "frmDialog"
DoCmd.Close acForm, Me.Name
End Sub

[June7]

Review http://www.worldbestlearningcenter.c...et-sql-vba.htm

Try: dbSnapShot

[chavez_sea]

Same result. Also I try using
wrong usernames and passwords and it does not give me the error message

Thanks

[June7]

The code uses late binding to open a DAO recordset object. Don't understand why that is failing. I just tested the original code in Access 2010 and it works. However, I don't have Access 2007 to test with.

Consider not even using recordset object:

Private Sub BtnLogin_Click()
    If IsNull(DLookup("UserName", "tbl1Employees", "UserName='" & Me.txtUserName & "'")) Then
        Me.lblWrongUser.Visible = True
        Me.txtUserName.SetFocus
        Exit Sub
    End If
    Me.lblWrongUser.Visible = False
    If Nz(DLookup("Password", "tbl1Employees", "UserName='" & Me.txtUserName & "'"),"") <> Me.txtPassword Then
        Me.lblWrongPass.Visible = True
        Me.txtPassword.SetFocus
        Exit Sub
    End If
    Me.lblWrongPass.Visible = False
    DoCmd.OpenForm "frmDialog"
    DoCmd.Close acForm, Me.Name
End Sub

Be aware Access is not case sensitive by default. So ABC123$ equals abc123$.

Also, please post lengthy code within CODE tags to retain indentation and readability. Use # button on the editor toolbar.

[chavez_sea]

Thanks very much .

I tried it putting in correct username and correct password and was able to login.

I tried putting the wrong username and it prompted wrong username.
I corrected the username and put in a wrong password and it did not prompt me but logged me in.
What I notice, it logs me in with a correct username even if I don't put in a password.

I am not familiar with codes. I would appreciate your further assistance.

Regards

[chavez_sea]

Thanks very much .

I tried it putting in correct username and correct password and was able to login.

I tried putting the wrong username and it prompted wrong username.
I corrected the username and put in a wrong password and it did not prompt me but logged me in.
What I notice, it logs me in with a correct username even if I don't put in a password.

I am not familiar with codes. I would appreciate your further assistance.

Regards

[June7]

You may have read my post before I edited. Review again.

[chavez_sea]

It logs me in with username and password correct. correct
It gives me message for wrong password, but still logs me in with just a correct username when no password is entered.

[davegri]

Private Sub BtnLogin_Click()
	If len(DLookup("UserName", "tbl1Employees", "UserName='" & Me.txtUserName & "'")) & vbnullstring) = 0 Then
	        Me.lblWrongUser.Visible = True
	        Me.txtUserName.SetFocus
	        Exit Sub
    	End If
    	Me.lblWrongUser.Visible = False
	If len(me.txtPassword & vbnullstring) = 0 then
       		Me.lblWrongPass.Visible = True
        	Me.txtPassword.SetFocus
        	Exit Sub
    	If Nz(DLookup("Password", "tbl1Employees", "UserName='" & Me.txtUserName & "'"),"") <> Me.txtPassword Then
        	Me.lblWrongPass.Visible = True
        	Me.txtPassword.SetFocus
        	Exit Sub
    	End If
    	Me.lblWrongPass.Visible = False
    	DoCmd.OpenForm "frmDialog"
    	DoCmd.Close acForm, Me.Name
End Sub

The first line of red code prevents a blank username from working.
The blue code allows a blank password to work. The red code added above it fixes that.

[chavez_sea]

Thanks again. I used the new codes. I got this message Compile error: Syntax error with the following code highlighted.

If len(DLookup("UserName", "tbl1Employees", "UserName='" & Me.txtUserName & "'")) & vbnullstring) = 0 Then

[davegri]

Thanks again. I used the new codes. I got this message Compile error: Syntax error with the following code highlighted.

If len(DLookup("UserName", "tbl1Employees", "UserName='" & Me.txtUserName & "'")) & vbnullstring) = 0 Then

Ahh, remove the red closing parens...

[chavez_sea]

Thanks very much. It gave another error about "End If" so I added an End If before
If Nz(DLookup("Password",

and it worked perfectly. Thanks so much for your patience and assistance.

[davegri]

Thanks very much. It gave another error about "End If" so I added an End If before
If Nz(DLookup("Password",

and it worked perfectly. Thanks so much for your patience and assistance.

Good catch. Good luck with your project.