อยากทราบวิธีเขียนโค้ดปุ่มตัด stock หน่อยครับ

โดยมีหน้าฟอร์มหลักเป็นฟอร์มขายสินค้าที่เชื่อมกับ qrySO และมีฟอร์มย่อยที่แสดงรายการสินค้าที่ขายเชื่อมกับตาราง qrySODetail

ตอนนี้โค้ดที่ผมได้นั้นสามารถตัดสต็อกสินค้าได้ทีละรายการที่เลือก ผมต้องการให้เมื่อกดปุ่มตัดสต็อกสินค้าทุกๆรายการในใบขายปัจจุบันจะถูกนำไปตัดสต็อกในตาราง Item ครับ

รบกวนผู้รู้ทุกๆท่านด้วยครับ

*** อันนี้คือโค้ดที่ผมใช้อยู่ตอนนี้ (สามารถตักสต็อกได้ทีละรายการ)
Private Sub cmdUpdateStock_Click()
    Dim sql As String
    sql = "Update Item Set ItemQty = ItemQty - " & [Form]![frmSaleDetail]![OrderQty] & " where ItemCode = '" & [Form]![frmSaleDetail]![ItemCode] & "';"
    CurrentProject.Connection.Execute sql
End Sub