Type mismatch error 13 on combobox

[akjim62]

Hi,

I use this code on combo boxes on many different forms, but on this particular form, I keep getting 'Run-time error 13' on "Me.WIDTH = Me.PRODUCT_ID_COMBO.Column(4)" if the column has no data, and also, if it does have data, it will not insert it into the form like all the others do. The datatypes for WIDTH and LENGTH are the same in the table and the form. I'm stumped.

Private Sub PRODUCT_ID_COMBO_AfterUpdate()
Me.QTY.Locked = False
Me.PRODUCT = Me.PRODUCT_ID_COMBO.Column(0)
Me.PART_NUM = Me.PRODUCT_ID_COMBO.Column(1)
Me.COST_PER_SF = Me.PRODUCT_ID_COMBO.Column(2)
Me.PRICE = Me.PRODUCT_ID_COMBO.Column(3)
Me.WIDTH = Me.PRODUCT_ID_COMBO.Column(4)
Me.LENGTH = Me.PRODUCT_ID_COMBO.Column(5)
Me.WEIGHT = Me.PRODUCT_ID_COMBO.Column(6)
End Sub

Thanks in advance for any help.

 

[Uncle Gizmo]

Has the combo box become unbound or something?

 

[akjim62]

It is still bound to the underlying query.

 

[spikepl]

Width is a property of the form, so pretty lousy name for a variable or control. Use something else.

http://allenbrowne.com/AppIssueBadWord.html

 

[akjim62]

That did it, thanks!