Private Sub EquipmentCategoryDescription_AfterUpdate()
Me.EquipmentCategoryID = Me.EquipmentCategoryDescription
Me.EquipmentCategoryID.Requery
End Sub
Private Sub EquipmentCategoryID_AfterUpdate()
Me.EquipmentCategoryDescription = Me.EquipmentCategoryID
Me.EquipmentCategoryDescription.Requery
End Sub