Can't change value in combobox

[saddist]

Hello,
I have a form with two comboboxes:
ID: [cmbBoxID, Unbound]
Name: [cmbBoxName, ControlSource = Emp_Name]

The problem is that I can't change the value of cmbBoxName, just as if it was locked but it isn't. I also want it to have ControlSource.

Private Sub cmbBoxID_AfterUpdate()
Set rs = Me.Recordset.Clone
    rs.FindFirst "[Emp_ID] = " & Str(Me![cmbBoxID])
    Me.Bookmark = rs.Bookmark
End Sub
 

The idea is I want to change Emp_Name value for current Emp_ID, but I also want it to display current value depending on which ID is selected in cmbBoxID

[Lysander]

Hello,
I have a form with two comboboxes:
ID: [cmbBoxID, Unbound]
Name: [cmbBoxName, ControlSource = Emp_Name]

The problem is that I can't change the value of cmbBoxName, just as if it was locked but it isn't. I also want it to have ControlSource.

Private Sub cmbBoxID_AfterUpdate()
Set rs = Me.Recordset.Clone
    rs.FindFirst "[Emp_ID] = " & Str(Me![cmbBoxID])
    Me.Bookmark = rs.Bookmark
End Sub
 

The idea is I want to change Emp_Name value for current Emp_ID, but I also want it to display current value depending on which ID is selected in cmbBoxID

I am not clear what you are trying to do in cmbBoxID_AfterUpdate. Are you trying to display a record in your form or trying to change the rowsource for cmbBoxName?

If the latter, your code should be something like

Private Sub cmbBoxID_AfterUpdate()
cmbBoxName.rowsource="select Emp_Name from tblSomething Where Emp_ID=" & cmbBoxID