VBA Help - Calculeted Value In A Text Box To Be Stored In A Table

[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.[aasc] = Me.NEXPPRC.Column(4)
Me.[agentc] = Me.NEXPPRC.Column(5)
Me.[aasnetc] = Me.NEXPPRC.Column(6)
Me.Requery
Me.Refresh
End Sub


The above is for combo box, Now I want to use similar code to store calculated text in a field to the table "Purchases" but for the text box

Name of the text box:
Atcom
calculation Value:
AASTamt: ([aasc]*[Purchase Qty])

I tried but this is not working on the text box Atcom


Private Sub Atcom_AfterUpdate()
Me.[Atcom] = Me.([aasc]*[Purchase Qty]).Column(0)
Me.Requery
Me.Refresh
End Sub

Please Help Me fix the code

[RuralGuy]

Is the table "Purchases" part of your form's RecordSource?

[aamer]

Yes
table "Purchases" is a part of form's RecordSource

[trevor40]

debug it, set 2 new text boxes on your form to equal me.aasc and me.[Purchase Qty].Column(0) then calculate the result in another text box. you can then use this to see were the error is. an alternative way is to use vba variables and step debug through your code.

ps this line is wrong
Me.[Atcom] = Me.([aasc]*[Purchase Qty]).Column(0)
it should read
Me.[Atcom] = Me.[aasc]*Me.([Purchase Qty]).Column(0)

[aamer]

am totally confused can you please explain it in steps

[trevor40]

Private Sub Atcom_AfterUpdate()
'change this line
Me.[Atcom] = Me.([aasc]*[Purchase Qty]).Column(0)
'to this
Me.[Atcom] = Me.[aasc]*Me.([Purchase Qty]).Column(0)
Me.Requery
Me.Refresh
End Sub

see if that works

[John_G]

Why do you have this line: Me.[Atcom] = Me.[aasc]*Me.([Purchase Qty]).Column(0) in the After Update event of the textbox Atcom? The code will never run unless you type something in the textbox, and then it will change whatever you typed to the calculated value - you can type anything you like and it will be changed.

Is [Purchase Qty] also a combo box?

[RuralGuy]

Yes
table "Purchases" is a part of form's RecordSource

Assuming you have a properly joined Record Source then what Trevor40 has in post #4 should work.