Welcome "username" after log in

[jpmatthews]

On my opening_form all that I have is:

Username1_label (which is a label)

Combo4 (which is a combo box that lists all the usernames from my table username_T)

and a Login Button, which allows you to navigate to the navigation_form in the database, if a username has been selected from the combo box (Combo4). It also closes the opening_form and automatically saves.If no username is selected from the combo box it prompts you with a MsgBox "please select a username".


Now, once you have navigated to the navigation_form, I would like for a friendly message to appear across the top of the form that says "Welcome "username"" with the "username" being the "username" selected on the previous form in the combo box.

Any help would be greatly appreciated.

[Rabbit]

You have a few options, leave the login form open so you can reference the control with the chosen user name, save it into a global variable and create a VBA function to return its value, or mark the record in the table and use a lookup to find who's logged in. The last option is viable only if the database is a standalone.

[Seth Schrock]

There are a couple of ways to do this depending on how you are storing the currently logged in user. The basic thing is that you need to get the username of the person logged in and assign it to a variable (for example strUser). If the control that holds the text "Welcome username is a label, then in your navigation_form's OnLoad event, make the label's caption be

lblWelcome.Caption = "Welcome " & strUser

Now how to populate strUser is another issue and requires knowledge of how you are storing the username of the person logged in. There are too many options, so I won't guess :)

[jpmatthews]

I really don't know how to store the name of the user logged in. I would like to be able to store the name of the user and also close the opening_form... Is that possible??

[Seth Schrock]

If you are needing to use the username to filter other records, then you could use tempvars. If not, you could use Rabbit's idea to leave the form open, but only long enough for the navigation form to get the value from the combo box and then let the navigation form close your login form.

[jpmatthews]

Alright I really appreciate it. thank you!

[Seth Schrock]

I just remembered, tempvars is new in Access 2007. If you are running Access 2003 or older, tempvars isn't available. I'm not positive about Access 2013, but I can't imagine that Microsoft would have gotten rid of it so quickly.

[jpmatthews]

Ok so now that I have gotten the tempvars to work. If I navigate to another form from my navigation_form (say a data entry form) and then navigate back to the navigation form the database has stopped storing the username and now it says Welcome #Name?. How can I get it to set that textbox to the value of the username once it has been changed. Does that make sense?

[Seth Schrock]

Post the code that sets the value of the tempvar and the code that sets the welcome text (be sure to use code tags, the [CODE/] button).

Tempvars aren't supposed to loose their value as long as the database stays open, which is the reason they were created (at least that is my understanding).

[jpmatthews]

Private Sub Command0_Click()
 
If (Not IsNull(Combo4)) Then
    TempVars.Add "Username1_Label", "(Combo4)"
    DoCmd.OpenForm "Navigation_form", acNormal, "", "", , acNormal
    Exit Sub
End If
Beep
MsgBox "You must first select an employee.", vbOKOnly, ""
 
End Sub

That is the code that sets the TempVars

=[Forms]![OpeningForm]![username] & "!"

That is the code for the welcome text.

Now when you navigate to another form off the navigation_form, it closes the navigation form. I may just change that to keep the navigation_form open at all times and just closing the navigation_form if you want to sign out.

[Seth Schrock]

I usually leave my navigation form open, but that is up to you. If you want to be able to close it, then here is what you need to do. I'm going to assume the name txtUserName for your control. You can change it to whatever. In the navigation form's OnLoad event, put:

Me.txtUserName = Application.TempVars("Username1_Label").Value & "!"

[NeoPa]

When you open a form from code (DoCmd.OpenForm()) there is a parameter called OpenArgs which is specifically for passing information into the new form. I suggest you put the user name value in the call then set the .Caption property of the label when the form opens (in the Form_Open() event procedure).