Private Sub YourComboBox_AfterUpdate()
Me.TextBoxName = Me.YourComboBox.Column(X)
End Sub
where the X is an integer designating the column of the combobox you want to
populate the Textbox. This is Zero-based, so reading the combobox Left-to-
Right, if you have, say, fields
PO_Num, Company, ContactName
and you wanted the textbox to be populated with the PO_Num, you'd use
Me.TextBoxName = Me.YourComboBox.Column(0)
For the Company name
Me.TextBoxName = Me.YourComboBox.Column(1)
And likewise, for the ContactName
Me.TextBoxName = Me.YourComboBox.Column(2)
--
There's ALWAYS more than one way to skin a cat!
Answers/posts based on Access 2000/2003
Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...forms/201005/1