Event Code Not Working

[angie]

I have the following : it all works for the field for ESTPAYMENTS I can not get the field to auto field when the change is made.
maybe something I didn't fix correctly
thank you Angie

EVENT FOREquiptment Field
Private Sub Equiptment_Change()
Me.Heat_Pump_Model= Me.Equiptment.Column(3)
Me.Furance_Model= Me.Equiptment.Column(4)
Me.Thermostat= Me.Equiptment.Column(12)
Me.Heater_Kit_Model= Me.Equiptment.Column(6)
Me.Coil_Model= Me.Equiptment.Column(5)
Me.Information= Me.Equiptment.Column(9)
Me.Brand =Me.Equiptment.Column(13)
Me.Financed_Price= Me.Equiptment.Column(10)
Me.EstPayments= Me.Equiptment.Column(15)


Me.Equipt_Cost= Me.Equiptment.Column(11)
Me.Cash_Price= Me.Equiptment.Column(14)
Me.Proposal= DLookup("Description", "[systems query]", "ID =" & Me.Equiptment.Column(1))
End Sub

ROWSOURCE for EQUIPTMENT
SELECT[Systems Query].TON, [Systems Query].SEER, [Systems Query].STAGE, [SystemsQuery].[HP Model], [Systems Query].[Furance Model], [Systems Query].COIL,[Systems Query].[Heater Kit Model], [Systems Query].[TXV Model], [SystemsQuery].DESCRIPTION, [Systems Query].Information, [Systems Query].FinancedPrice,[Systems Query].PRICE, [Systems Query].THERMOSTAT, [Systems Query].Brand,[Systems Query].CashPrice, [Systems Query].EstPayments FROM [Systems Query]ORDER BY [Systems Query].TON;

[pbaldy]

Make sure the Column Count property of the combo is 16.

[isladogs]

Not sure what your question is but in your row source sql you need a space after SELECT and another before ORDER

Also is the Column(1) field a number?

Finally, suggest you change your code to the After Update event so it runs once after you've finished
The Change event runs after each keystroke is entered