怎么样写更新

点击下载此附件

我做了一个入库系统

在审批窗体中 我想点击更新库存 把入库表中的数量更新到 库存表中

这是按钮的代码

Private Sub Command16_Click()
Dim SQL As String
Dim Sin As Integer
Dim Str1 As String
Sin = Me.数量
Str1 = Me.名称

DoCmd.RunCommand acCmdSelectRecord

If Me.来源 = "一车间" Then
        SQL = "update Restore Set Restore.一车间 = Restore.一车间 + Sin   WHERE Restore.名称 = Str1"
        DoCmd.RunSQL SQL

       ElseIf Me.来源 = "二车间" Then
        SQL = " update Restore Set Restore.二车间 = Restore.二车间 + Sin   WHERE Restore.名称 = Str1"
        DoCmd.RunSQL SQL
       Else
        Me.名称.SetFocus
       End If
      
End Sub

点击按钮就出现这个提示

源代码我已经附加上了，希望老师多加指点

多谢了 ！！！！！！！！！！！！！！！！！！！！！

我也是急用，在线等。。