MS Access VB - Update button

In an Access Form with a sub form and a button I want to update at table with sevaral records with the following code.
In the subform there is a box name BUYQTY with a calculated value (Price * Discount), buy clicking the button each record should update with the correct value. How to implement the FOR...EACH statement in the following code? Because at this stage it update the first row value to all records.

Forms("OrderForm").Controls("OrdSub").Form.Controls("BUYQTY").SetFocus
DoCmd.SetWarnings False
Dim strSQL As String
     strSQL = "UPDATE NewOrder SET NewOrder.BUYQTY = '" & Forms("OrderForm").Controls("OrdSub").Form.Controls("BUYQTY").Value & "'"
   DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
DoCmd.Requery
pascalmartinAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Scott McDaniel (Microsoft Access MVP - EE MVE )Infotrakker SoftwareCommented:
Your statement would update EVERY RECORD in the NewOrder table with the value found in that BUYQTY control - is it not doing that?

FWIW, you don't need to set the focus to that control (and you really shouldn't be suppressing warnings during development, at least). Instead of all the code you're using now, you can simply do this:

Currentdb.Execute "UPDATE NewOrder SET NewOrder.BUYQTY = '" & Forms("OrderForm").Controls("OrdSub").Form.Controls("BUYQTY") & "'"

That said, BUYQTY sounds like a Numeric field. If so, you don't need to wrap it in single quotes:

Currentdb.Execute "UPDATE NewOrder SET NewOrder.BUYQTY = " & Forms("OrderForm").Controls("OrdSub").Form.Controls("BUYQTY")

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.