Help with Matching Envir data with a combo selection in Access 2007 Login screen.

[bakkouz]

Hiya,
Newbie here.

I am using the Login screen described in this article. and it works fine.
since I am on a domain network, I also added 2 text boxes to display the Username and Computername. Me.txtUser = Environ("UserName") and Me.txtComp = Environ("ComputerName"). which also work fine.



Now, what I've been trying to do is to automatically match the Environment Username with a username selection from the combo box.

ie: if the Envir Username is e09115 I want the default value for the combo box for cboEmployee to be set to User1, and so forth.

I've tried doing something like:

Private Sub Form_Load()
Me.txtUser.SetFocus
Me.txtUser = Environ("UserName")
Me.txtPassword.SetFocus
End Sub

Private Sub txtUser_LostFocus()
If IsNull(Me!txtUser) Or Len(Me!txtUser) < 1 Then
Me!cboEmployee = ""
ElseIf Me!txtUser = "e09115" Then Me!cboEmployee= "User1"
ElseIf Me!txtUser = "e05872" Then Me!cboEmployee = "User2"
Else
Me!cboEmployee = "Unknown User"
End If
End Sub

But this did nothing.

I'm not sure what's wrong, maybe its because cboEmployee has 2 columns and the first column is hidden? that's why it doesn't set the value? I really don't know.

I've been tryin to make this work all morning and here I am 5 hours later, desperate.

I just newly starting learning Access and Ive come to a dead end. Any help would be much appreciated.

Thank you.

[rpeare]

Is the username of your combo box also the bound column for instance you said you're trying to pass e09115 to your combo box.

Is the column that e09115 would appear in the bound column?

If not you will have to perform some sort of lookup for instance

Me.comboboxname = DLookup("[PersonID]", "Tbl_People", "[PersonNetworkID] = '" & Environ("username") & "'")

Where comboboxname would be the name of your combobox
personid would be the unique identifier of your users
tbl_people would be your login identifier table
personnetworkid would be the id on your tbl_people that corresponds to their network id.

EDIT: The key here is that you can only set the value of the combo box based on the BOUND COLUMN (as far as I know, I've never tried it another way)

[bakkouz]

rpeare:
Where should I add the line:
Me.comboboxname = DLookup("[PersonID]", "Tbl_People", "[PersonNetworkID] = '" & Environ("username") & "'")
?

[rpeare]

in the ON LOAD property of your login form I would think. If I understand your problem you want the user to be automatically filled based on who is logged into that machine. Keep in mind you must have the person's network login name in a table in your database to perform the lookup and you have to alter all the field/table names from my dlookup to match what's in your database.