Multi-User Login Form (2 Viewers)

[topdesk123]

I'm wondering if anyone figured out the incorrect password problem. I am trying to use this code as well, and everytime I get incorrect password...although I've verified it 100 times.

Thank you!

 

[Galaxiom]

At home I have a login form built using only macros. It is bound to a table and supports updateable passwords.

I built it just for the exercise in using macros. I normally do everyting in VBA.

I will try to remember to post it tonight.

 

[domingsun]

which login system you want ?
i can help you create 1 ...
please state the function you need ...
something like Login ... Sign up ... Forgot password ...

 

[topdesk123]

I'm working on the Login form.

 

[pbaldy]

It would help if you posted your code. The code in post 20 does not have correct syntax for the DLookup():

http://www.mvps.org/access/general/gen0018.htm

 

[topdesk123]

Here you go! Thank you!!

Private Sub cboUser_GotFocus()
     cboUser.Dropdown
        
End Sub
 Private Sub cmdExit_Click()
     Response = MsgBox("Do want to close this application?", vbYesNo + vbQuestion, "Quit Application")
    
    If Response = vbYes Then
        Application.Quit
    End If
 End Sub
 Private Sub cmdLogin_Click()
     Call Login
 End Sub
  
  Private Sub cmdLogin_Enter()
  
      Call Login
  
  End Sub
  
  Public Sub Form_Load()
      
      txtFocus.SetFocus 'txtFocus is a textbox control with height, widht and positions set to zero
      
  End Sub
  
  Public Sub Login()
          
  On Error GoTo ErrorHandler:
  
      If IsNull([cboUser]) = True Then 'Check UserName
          MsgBox "Username is required"
          
      ElseIf IsNull([txtPassword]) = True Then 'Check Password
          MsgBox "Password is required"
          
      Else
      
          'Compare value of txtPassword with the saved Password in tblUser
          If Me.txtPassword.Value = DLookup("Password", "tblUsers", "[UserName]='" & Me.cboUser.Value & "'") Then
              strUser = Me.cboUser.Value 'Set the value of strUser declared as Global Variable
              strRole = DLookup("Role", "tblUsers", "[UserName]='" & Me.cboUser.Value & "'") 'set the value of strRole declared as Global Variable
              DoCmd.Close acForm, "frmLogin", acSaveNo
              MsgBox "Welcome Back, " & strUser, vbOKOnly, "Welcome"
  End If
              If strRole = "admin" Then
              DoCmd.OpenForm "adminMenu", acNormal, "", "", , acNormal
              If strRole = "staff" Then
              DoCmd.OpenForm "staffmenu", acNormal
  End If
  
              
          Else
              MsgBox "Invalid Password. Please try again.", vbOKOnly, "Invalid Password"
              intLogAttempt = intLogAttempt + 1
              txtPassword.SetFocus
      
          End If
      
      End If
      
      'Check if the user has 3 wrong log-in attempts and close the application
      If intLogAttempt = 3 Then
          MsgBox "You do not have access to this database.Please contact admin." & vbCrLf & vbCrLf & _
          "Application will exit.", vbCritical, "Restricted Access!"
          Application.Quit
      End If
    
ErrorHandler:
 End Sub

 

[pbaldy]

Are you testing on an admin? I see an issue that might be more clear with proper indenting:

  If IsNull([cboUser]) = True Then    'Check UserName
    MsgBox "Username is required"

  ElseIf IsNull([txtPassword]) = True Then    'Check Password
    MsgBox "Password is required"
  Else
    'Compare value of txtPassword with the saved Password in tblUser
    If Me.txtPassword.Value = DLookup("Password", "tblUsers", "[UserName]='" & Me.cboUser.Value & "'") Then
      strUser = Me.cboUser.Value    'Set the value of strUser declared as Global Variable
      strRole = DLookup("Role", "tblUsers", "[UserName]='" & Me.cboUser.Value & "'")    'set the value of strRole declared as Global Variable
      DoCmd.Close acForm, "frmLogin", acSaveNo
      MsgBox "Welcome Back, " & strUser, vbOKOnly, "Welcome"
    End If
    If strRole = "admin" Then
      DoCmd.OpenForm "adminMenu", acNormal, "", "", , acNormal
      If strRole = "staff" Then
        DoCmd.OpenForm "staffmenu", acNormal
      End If
    Else
      MsgBox "Invalid Password. Please try again.", vbOKOnly, "Invalid Password"
      intLogAttempt = intLogAttempt + 1
      txtPassword.SetFocus
    End If
  End If

 

[topdesk123]

Sorry, I used a tool called "smart indenter". I didn't realize that problems could be caused by improper indenting.

 

[pbaldy]

I used it too. The problem isn't caused by indenting, just easier to see (to me anyway). The errors are in logic, and there are a couple I see right off. Even if a password is correct, if the user isn't "admin" you're going to get the password error. If the user isn't admin, will the "staff" test ever be made? You need to step through the code as if it were running and follow where it goes for each option.

 

[pbaldy]

Oh, and a tool you can use to step through the code is setting a breakpoint and using F8 to step through it:

http://www.baldyweb.com/Debugging.htm

 

[topdesk123]

I'm sorry, all I get is dinging. ?

 

[pbaldy]

Must be somebody at the door.

Seriously, dinging when you do what exactly? We're not standing there next to you.

 

[anishkgt]

Hi All,

I've manage to enhance the login form that I've been using except am still not able to verify the username password against the EmployeeName and password in the table tblEmployee. The db file is attached here for anyone's reference who can solve this for me.

I need to verify the username and password against the table in tblEmployee.



Thanks a bunch

 

[topdesk123]

I got this to work perfectly. Please excuse if it is not indented correctly

Public Sub Login()
     On Error GoTo ErrorHandler:
     If IsNull([cboUser]) = True Then    'Check UserName is completed
        MsgBox "Username is required"
     ElseIf IsNull([txtPassword]) = True Then    'Check Password is completed
        MsgBox "Password is required"
    
ElseIf Me.txtPassword.Value <> DLookup("Password", "tblUsers", "[UserName]='" & Me.cboUser.Value & "'") Then
            MsgBox "Invalid Password. Please try again.", vbOKOnly, "Invalid Password"
            intLogAttempt = intLogAttempt + 1
            txtPassword.SetFocus
         End If
    
         'Compare value of txtPassword with the saved Password in tblUser
        'Admin Role
 
        If Me.txtPassword.Value = DLookup("Password", "tblUsers", "[UserName]='" & Me.cboUser.Value & "'") Then
            strUser = Me.cboUser.Value    'Set the value of strUser declared as Global Variable
            strRole = DLookup("Role", "tblUsers", "[UserName]='" & Me.cboUser.Value & "'")    'set the value of strRole declared as Global Variable
        If strRole = "admin" Then
            DoCmd.OpenForm "adminMenu", acNormal, "", "", , acNormal
DoCmd.Close acForm, "frmLogin", acSaveNo
MsgBox "Welcome Back, " & strUser, vbOKOnly, "Welcome"
        
        
         'Staff Role
        
        ElseIf strRole = "staff" Then
        DoCmd.OpenForm "staffmenu", acNormal
       DoCmd.Close acForm, "frmLogin", acSaveNo
        MsgBox "Welcome Back, " & strUser, vbOKOnly, "Welcome"
         
End If
End If
     'Check if the user has 3 wrong log-in attempts and close the application
    If intLogAttempt = 3 Then
        MsgBox "You do not have access to this database.Please contact admin." & vbCrLf & vbCrLf & _
               "Application will exit.", vbCritical, "Restricted Access!"
        Application.Quit
    End If
 ErrorHandler:
      
 
      
  
 End Sub

 

[anishkgt]

Thank you topdesk for your reply. Am not much of a programming guy. Was looking a macro reply.

Hope to read a reply. In the mean while i will try to get something out of your code. If you could post the macro or may be edit my db file attached accordingly, that would be even better.

Thanks again.

 

[anishkgt]

ha ha ! finally got it.

 

[borgi]

I have a problem. I have a table Employees (ID, First Name, Last name and User name and password). I also have a table sale, where I as a foreign key employees. What I need is to me that The variable chosen the employee with which you log in and when I save the sale so that the employee table stored in the sale. Here I set the variable in the text box but I need to get my employee has identified the foreign key.

 

[domingsun]

I have a problem. I have a table Employees (ID, First Name, Last name and User name and password). I also have a table sale, where I as a foreign key employees. What I need is to me that The variable chosen the employee with which you log in and when I save the sale so that the employee table stored in the sale. Here I set the variable in the text box but I need to get my employee has identified the foreign key.

That mean you want retrive the foreign key of the logged in staff when your staff key in sale ?

 

[borgi]

What I need is that when I log in as the user Billy, so when I turn on the form frmSale so in the text box will be Billy and when I add a new record, so Billy will be stored in the table Sale in the username field.

 

[anishkgt]

Ah ok i guess i understand ur requirement. When a user logs in as billy, then on every form his name should appear. For that u have to declare tempvar. And put this temvar as the default value in the text box property.