Thread: Login Form

hi i make a simple loginform in my data base but i cant work it out.. here is the details in my login form


table name: login
consist of the following:
Field1: ID
Field2: Username
Field3: Password

and i make a login form

combobox dropdown menu only username shows
Textbox for password input
and a command button for Login..
here is the code behind the button login

Private Sub Command3_Click()

'Check to see if data is entered into the UserName combo box

    If IsNull(Me.login) Or Me.login = "" Then
      MsgBox "You must enter a User Name.", vbOKOnly, "Required Data"
        Me.login.SetFocus
        Exit Sub
    End If

    'Check to see if data is entered into the password box

    If IsNull(Me.txtPassword) Or Me.txtPassword = "" Then
      MsgBox "You must enter a Password.", vbOKOnly, "Required Data"
        Me.txtPassword.SetFocus
        Exit Sub
    End If

    'Check value of password in username to see if this
    'matches value chosen in combo box

    If Me.txtPassword.Value = DLookup("password", "username", _
            "[ID]=" & Me.login.Value) Then

        lngMyEmpID = Me.login.Value

        'Close logon form and open splash screen

        DoCmd.Close acForm, "frmLogon", acSaveNo
        DoCmd.OpenForm "frmSplash_Screen"

    Else
      MsgBox "Password Invalid. Please Try Again", vbOKOnly, _
            "Invalid Entry!"
        Me.txtPassword.SetFocus
    End If

    'If User Enters incorrect password 3 times database will shutdown

    intLogonAttempts = intLogonAttempts + 1
    If intLogonAttempts > 3 Then
      MsgBox "You do not have access to this database.Please contact admin.", _
               vbCritical, "Restricted Access!"
        Application.Quit
    End If

End Sub

but when i click the login button after i put the username and password a error and im being redirect to VB code...

any help will be appreciated..... thank you in advance...

To begin with, you have control names in your code that don't exist on yur form. ie. On your form you have a control called Password, yet in your code you use txtPassword. You need to make sure that you are consistent with your naming conventions. Check all of your code and make sure that your controls that you are naming in the code are the same. It will never work if they are different.

Alan

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

Regardless of where you get your form, import or build, you need to make sure that the code that operates the form is consistently named.

Alan