How to put “username” after login on MainMenu

[Wayan71]

I have a login form built in Microsoft Access. The User will login through it and make it to the MainMenu form.

How do we put the Welcome "Username" on the MainMenu form? ( Not PC UserName)



User123
Password : 12345

On Mainmenu wil be KiranaWyn

I use below VBA

Option Compare Database
Private Sub Command1_Click()

Dim ID As Integer
Dim TempUserID As TempVar

If IsNull(Me.txtLoginID) Then
    MsgBox "Enter the username", vbInformation, "Login ID required"
    Me.txtLoginID.SetFocus
ElseIf IsNull(Me.txtPassword) Then
    MsgBox "Enter password", vbInformation, "Password required"
    Me.txtPassword.SetFocus
Else
    If (IsNull(DLookup("UserID", "tblUser", "UserLogin = '" & Me.txtLoginID.Value & "' And password = '" & Me.txtPassword.Value & "'"))) Then
        MsgBox "Invalid Login ID or Password!"
    Else
            ID = DLookup("[Userid]", "tblUser", "[UserLogin] = '" & Me.txtLoginID.Value & "'")
            TempVars!TempUserID = ID  'assign user login ID to tempvar
            DoCmd.Close
            DoCmd.OpenForm "MainMenu"
        
    End If
End If
End Sub

Private Sub Form_Load()
Me.txtLoginID.SetFocus End Sub

[Welshgasman]

Well you would need some way of identifying user123 as KiranaWyn, as you already have, so perhaps use Dlookup() to get the real name using the username?

[Wayan71]

Please help how

[Welshgasman]

I don't understand?
You are using Dlookup() already, to get a userid that has been keyed in?
You just do the same, but return UserName instead?

[orange]

You may get some insight from these Steve Bishop videos.
https://www.youtube.com/watch?v=2BYIHYe00wM
https://www.youtube.com/watch?v=356ylQn6kkA

[Wayan71]

Dear Welshgasman

Do you mean :

Me.UsrName = DLookup(“[UserName]”, "tblUser", "[UserLogin] = '" & Me.txtLoginID.Value & "'")

[Welshgasman]

Well along those lines. Except your control, is called User?

Also I just noticed that you do not actually have a field called UserID in the table?

You have to get the names EXACTLY correct. You and I might know what you mean, but a computer does not.?

[Wayan71]

Dear Welshgasman ,

Could you please help me how to resolved this issue, ( see attachment)

[Welshgasman]

Against my better judgement , as I normally prompt the O/P to write their own code, so as to understand what they are doing.
You will need to review the code I added and the control source for the form control. Which is really just the DLookUp I mentioned previously, but using correct names.

You could also set it via form load and not use the control source.

For some reason, your DB does not behave well on my laptop?

[Wayan71]

Dear Welshgasman ,

Thank you for your help,

Well Done!