Combo box to fill data into form

[Guest]

hi,
here is a sub i use to fill in the description text box
once i enter the item number in the item text box. you can
just change my field names and table names to your's.

Private Sub txtItemID_BeforeUpdate(Cancel As Integer)
Dim txtItemID As Variant
If IsNull(Me!txtItemID) Then
Cancel = True
Else
Me!txtDescription = DLookup
("[ItemName]", "IMA", "[ItemID] ='" & Me!txtItemID & "'")
End If
End Sub