Sorry. Entire event code is below:
Code:
Private Sub cmbFoodInvolved_AfterUpdate(Cancel As Integer)
If IsNull(DLookup("Food Involved", "tblProductAutofill", "Food Involved = '" & Me!cmbFoodInvolved.Text & "'")) Then
Me.txtIngredient.SetFocus
Else
Me.txtIngredient.Value = Me.cmbFoodInvolved.Column(1)
Me.txtCategory.Value = Me.cmbFoodInvolved.Column(2)
Me.txtCharaceteristics.Value = Me.cmbFoodInvolved.Column(3)
Me.txtDescription.Value = Me.cmbFoodInvolved.Column(4)
Me.txtQuantity.SetFocus
End If
End Sub