Classic Log In Form

[Derrick T. Davidson]

I followed the tutorial from XIPooo on creating a classic Log in form, below is the code I wrote:

Option Compare Database
Option Explicit



Private Sub btnLogin_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("LogIn_tbl", 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.lblwrongpassword.Visible = True
Me.txtPassword.SetFocus
Exit Sub
End If

Me.lblwrongpassword.Visible = False

DoCmd.Close acForm, "LogIn_frm"
DoCmd.OpenForm "Home_frm"
End Sub

The problem I have when I enter a wrong user name it works fine, however when I hit enter or click the Log In Button after entering the correct user name it skips the password entry and closes the form without a password. The tutorial was shown for 2013 I am running 2010 is there a difference in programming?

Or I have I coded the second part of the routine wrong???

[burrina]

What exactly do you need from your Login form? Just user name and password or more?

[Derrick T. Davidson]

Just Name and Password I followed the tutorial here diligently (I thought) but I must have missed a dot or a comma I guess

[burrina]

I will try and upload one later.

[burrina]

I posted a DEMO in Sample Databases.

HTH

[Derrick T. Davidson]

I checked the demo and it looks great, however it will not work on my 2010 as I get this message:

"Compile Error
The code on this project must be updated for use on a 64 bit system.
Please review and update Declare statements and then mark them with the PtrSafe attribute."

[burrina]

Okay! Then add this to the Module. modCloseCommand That should fix it.

'Use PtrSafe after Delcare in Declaration Statements.'Example:
Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hDC As Long) As Long

[Derrick T. Davidson]

Cool thanks so much