Set combo box to a value from a query

[HVACMAN24]

I'm trying to load the current user into a combo box when a form loads up. I have a query that uses a function (which pulls the logged in username from the computer) and matches the username to the actual name of the person which works fine. But I also want the cboName on my form to use a list of names from another query incase I want to submit something through someone else's computer. So is there a quick and easy way to set the initial value of my qryGetName?

Hopefully that makes sense, if not I'll try to explain more.

Thanks

 

[boblarson]

If the BOUND column of the combo is truly the name You can simply put

Me.ComboNameHere = VBA.Environ("username")

And if the bound column is their ID and second column their name then you would use

Me.ComboNameHere.Column(1) = VBA.Environ("username")

 

[HVACMAN24]

Me.ComboNameHere = VBA.Environ("username")

That works but I dont want the actual username to display. I want to match the username to the actual person and display their real name. I made a query to do that, but I'm having trouble getting that value to display in my combo while keeping my row source pointing to a table with all employees.

 

[boblarson]

That works but I dont want the actual username to display. I want to match the username to the actual person and display their real name. I made a query to do that, but I'm having trouble getting that value to display in my combo while keeping my row source pointing to a table with all employees.

You just need to change the rowsource of the combo to be a query and not just the table. You then include the fields you want and you can display them, or not, by setting the column widths.

For example, if you select the EmployeeID and the EmployeeUserName from the one table and the other table with their full name is in the query and linked by employeeID then you just select that field too. And then you set your combo to have

Column Count: 3
Column Widths: 0";0";2"

which would show the third column if that column is the employee full name. You would still set the value to .Column(1) like I showed before but the full name would then display.

 

[HVACMAN24]

I still cant get it to work. Heres a copy of my DB. I'm wanting the frmTurnback to load the current users real name based on their username in the Originator combo box, but still list all the current employees from qryActiveEmployees.

Your help is much appreciated. Thanks

 

[boblarson]

Here you go - make sure your actual name and computer user name are in the table.

 

[HVACMAN24]

Here you go - make sure your actual name and computer user name are in the table.

I did all that but its not showing the name when the form loads. I didnt see any code anywhere else either??

 

[HVACMAN24]

I think I finally get what you were saying before. I have my cboOriginator with the column count property set to 2(#1 shows the real name, #2 has the usernames, but with a width of 0 so its not seen). My bound column property is set to 1 because I want it to store the real name into the table, but I still can only get it to show the username when it loads.

Anytime I add the .Column it gives the error 'Object Required'. I tried a value of 0, 1 & 2 and it broke everytime, but if I take the .Column out my cbo will show the username.

My code looks like this:
Private Sub Form_Load()
Me.cboOriginator.Column(1) = VBA.Environ("username")
End Sub

Can you tell if I'm doing something wrong here? Sorry for the slow mind

 

[boblarson]

I did all that but its not showing the name when the form loads. I didnt see any code anywhere else either??

If it wasn't working for you then you didn't have YOUR computer login added in to the username part of the table. It worked fine for me in the sample I returned when I made some modifications and put my name in.

 

[boblarson]

I think I finally get what you were saying before. I have my cboOriginator with the column count property set to 2(#1 shows the real name, #2 has the usernames, but with a width of 0 so its not seen). My bound column property is set to 1 because I want it to store the real name into the table, but I still can only get it to show the username when it loads.

Anytime I add the .Column it gives the error 'Object Required'. I tried a value of 0, 1 & 2 and it broke everytime, but if I take the .Column out my cbo will show the username.

My code looks like this:
Private Sub Form_Load()
Me.cboOriginator.Column(1) = VBA.Environ("username")
End Sub

Can you tell if I'm doing something wrong here? Sorry for the slow mind

First you have to make sure the combo box's COLUMN COUNT is set to 3 (for the ID, the username, and then full name).
Once you have that, then referring to column will work but if you don't have it set to anything but 1 then it fails.