How to populate a text field from the combo selection

[dekk]

I am trying to populate a text field from the combo selection.

I have the following update event in the combo box

Private Sub cboContract_AfterUpdate()
Me!txtDesc = Me!cboContract.Column(1)
Me!txtPrinc = Me!cboContract.Column(2)
Me.Refresh
Me.tbl_TimeData.Form.cboAct.Requery
End Sub
 

No errors are encountered. The text field simply does not populate for the following line of code.

Me!txtPrinc = Me!cboContract.Column(2)
 

.

Please note that ROW SOURCE query that is applicable to the combo box

SELECT tbl_Contract.Contract, tbl_Contract.[Contract Description], tbl_Contract.Client_id FROM tbl_Client INNER JOIN tbl_Contract ON tbl_Client.ID=tbl_Contract.Client_id; 
 

I find it strange that the [Client_id] field does not populate the [txtPrinc] field. Help appreciated

[Mariostg]

Did you check with Debug.Print Me!cboContract. Column(2)
to make sure there is indeed something in Column(2)

[NeoPa]

My only guess (as it seems fine to me) is that the txtPrinc control may be misspelled.

[dekk]

Hi,

Do you mean Me!txtPrinc = Debug.PrintMe!c boContract.Colu mn(2)? If so, I receive a syntax error in VBA screen.

The [txtPrinc] field is spelled correctly.

Any other suggestions?

[Mariostg]

No. Put it either after or before Me!txtPrinc = Me!cboContract. Column(2)
Debug.Print will output on the immediate window the value of your combo box. Ctrl+G will open the immediate window if you never used it.