如何使用Microsoft Access中的一个Update语句更新多个表（使用VBA编码和SQL）

Question

这是我的设置：我已经制作了一个零件订购表，其中包含标有P1-P10（部分）的组合框，其中包含从我的表[库存C]中获取的资源数据，显示OEM＃（密钥）和描述。包含数字的其他组合框分别命名为QO1-QO10（订购数量）。在为各个组合框选择/键入条目时，我在测试按钮中的代码更新了与组合框中的部件＃（例如P1）匹配的记录以及数字框中相应的所选编号（例如QO1） ）并更新我的表的[USED QTY]列以添加所选数字的相应部分。

    Public Sub TestButton_Click()
        Dim SQL As String
        SQL= "UPDATE [INVENTORY C]" & _
             "SET [QTY USED]=[QTY USED]-(QO1.Value)" & _
             "WHERE [OEM#] = P1.Value"
        DoCmd.RunSQL SQL
        End
    End Sub

这段代码运行正常，但我有两个以上的组合框。目前，我必须在相同的代码段中再重复同一个语句九次，以便通过单击更新它们。在单击测试按钮后的测试过程中，会显示一条消息，提示您正在更改表格上的一行并按OK继续（好！）但它会执行十次（不太好......还有一个错误，如果你按NO所以举行错误处理程序将不胜感激）。在我的表单中，它几乎像Excel工作表一样设置，我的用户将使用多个框来输入信息;我将代码嵌入到打印功能中，这样当他们按下打印时，它还会要求他们更新一次输入的所有记录（这样点击它就会问：＆＃34;您即将更新（10）记录。任何变化......＆＃34;）。 如何在VBA中对此进行编码，使用SQL在同一代码段中更新多个记录我可以使用开关或案例陈述吗？非常感谢这一帮助。