如何通过ID减少库存量？

Question

我需要通过匹配产品的ID来从表中扣除数量。如果我运行以下代码，它会扣除一个数量，但问题是例如......

我输入身份证号码为1，并且必须点击两次扣除按钮才能扣除 第二次将ID号更改为2并单击“扣除”按钮...首次从ID号1中扣除。但现在，如果我再次点击，它将从ID号2中扣除。

我该如何解决这个问题呢？ 我正在使用MS Access作为数据库（ADODB）。

Option Explicit
Dim con As New ADODB.Connection
Dim rst As ADODB.Recordset
Dim sql As String

Private Sub Command1_Click()
Set con = New ADODB.Connection
Set rst = New ADODB.Recordset

con.Open (adodc1.ConnectionString)
sql = "UPDATE stock SET QTY = QTY - 1 WHERE ID = '" & IDval.Text & "'"
con.Execute (sql)
Adodc1.Recordset.Update
Adodc1.Refresh
con.Close
End Sub

提前谢谢。