VBA Help Requested

[aamer]

I am using the following and is working perfect



Private Sub NEXPPRC_AfterUpdate()
Me.[Purchase Description] = Me.NEXPPRC.Column(0)
Me.[Purchase Price] = Me.NEXPPRC.Column(1)
Me.[Purchase Units] = Me.NEXPPRC.Column(2)
Me.[Purchase Sales Tax] = Me.NEXPPRC.Column(3)
Me.Requery
Me.Refresh
End Sub

What I want is to change

Me.[Purchase Sales Tax] = Me.NEXPPRC.Column(3)

To something like

Me.[CatPurchase] = Me."KatSalery".Column(3)



whereas "KatSalery" is a fixed value that any entry on this form is made it stores "KatSalery" in the field CatPurchase of Purchase table.

the above is used on combo box, please advise how to use same with text box also

[ItsMe]

If you want to store literal text in a field in a table you can do something like the following
Me.[CatPurchase] = "KatSalery"