Unanswered: Concatenating 2 fields into a Combo Box
I have a combo box with a select statement like this:
select lname,fname,ampid from employee order by lname
When an employee is selected, I would like for the combo box named compsign to display the first and last name. I have added code for the after update event that looks like this:
Private Sub compsign_AfterUpdate()
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
.ActiveConnection = CurrentProject.Connection
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
rst.Open "select fname,lname From Employee where ampid = '" & Me!compsign & "' "
Me!compsign = rst("FNAME") + " " + rst("LNAME")
Set rst = Nothing
When the after update code runs, the combo box is blank. I have put a break in the code and checked the values. me!compsign has the first and last name stored in it, but in the form it is blank. What can I do to fix this?