Login Form that displays users FirstName in a message box

[Jamesy_007]

Hey Guys how’s everyone been

Need some guidance, please. I have this login form with three assigned users each have their own password. I want to have a feature where someone logs in and a message box pops up saying Welcome with the First Name of whoever is logged in. It does want I want but it keeps displaying only the first user name to primary key ID:1 and for the other users also. What am I evaluating wrong here, Any suggestions please?.



This is my code below am trying to figure out my error, should I create a private function of UserName text box i.e. txtUserName?

Private Sub btnLogin_Click()      
     Dim rs As Recordset
      Dim userx As String, user As String
       userx = "WELCOME"
       user = DLookup("FirstName", "tblUsers", Me.txtUserName)
    Set rs = CurrentDb.OpenRecordset("tblUsers", 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 = True Then
  Me.lblWrongPass.Visible = True
  Me.txtPassword.SetFocus
      Exit Sub
      End If
    If IsNull(Me.txtPassword) Then
  MsgBox "Please Enter Valid Password!", vbInformation, "Database Management System"
       Me.lblWrongPass.Visible = True
      Me.txtPassword.SetFocus
     Exit Sub
    End If
    If rs!Password = Me.txtPassword = True Then
   Me.lblWrongPass.Visible = False
   Me.lblWrongUser.Visible = False
DoCmd.OpenForm "frmMAIN"
    MsgBox userx & ", " & user, , " Database Management System"
  
DoCmd.Close acForm, Me.Name
End If
End Sub

[June7]

Have you attempted any debugging?

Set a breakpoint and step debug - follow the code as it executes 1 line at a time. Are variables populated as expected? Does code flow as expected?

For a start, the DLookup() syntax is incomplete.

Second, user is declared as a string. If DLookup() does not find a match, it returns Null. String variable cannot hold Null so triggers a run-time error.

user = Nz(DLookup("FirstName", "tblUsers", "UserName='" & Me.txtUserName & "'"), "New Person")

If user has to login, how could code know them anyway? Need to first validate username/password login then lookup first name.

[Welshgasman]

You need to compare something against Me.txtUserName ?

Perhaps "UserName = '" & Me.txtUserName & "'"

When you do not know how something works, look it up.

https://support.microsoft.com/en-us/...b-bed10dca5937

[Jamesy_007]

Thank you this is the line of code. Strange its the same line of code am asking the Recordset to look up a few lines down.. At first I put that line in but was getting a syntax mismatch error and there it goes you keep altering the code after that, because something didn't work I you thought it should have. This is where you guys come in a fresh pair of eyes to look at something. Thanks Welshgasman and June 7!

You need to compare something against Me.txtUserName ?

Perhaps "UserName = '" & Me.txtUserName & "'"

When you do not know how something works, look it up.

I do, usually when am here it's because something just can't crack and I don't know why. I just love you'll and Access databases...Ahh... the feeling of building things