请帮助看看入库代码提示错误,谢谢

YANWEI82123300

请帮助看看入库代码提示错误,谢谢


Private Sub YourSaveButton_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String

    Set db = CurrentDb
    Set rs = db.OpenRecordset("tblLocation", dbOpenDynaset)

    If Not (IsNull(Me.焊材材质编号) Or IsNull(Me.接收架位) Or IsNull(Me.接收数量)) Then
        strSQL = "SELECT * FROM tblLocation WHERE [焊材材质编号] = '" & Me.焊材材质编号 & "' AND [架位] = '" & Me.接收架位 & "'"
        rs.FindFirst strSQL
        If rs.NoMatch Then
            rs.AddNew
            rs![焊材材质编号] = Me.焊材材质编号
            rs![架位] = Me.接收架位
            rs![架位数量] = Me.接收数量
            rs.Update
        Else
            If rs![架位] = Me.接收架位 Then
                rs.Edit
                rs![架位数量] = rs![架位数量] + Me.接收数量
                rs.Update
            Else
                rs.AddNew
                rs![焊材材质编号] = Me.焊材材质编号
                rs![架位] = Me.接收架位
                rs![架位数量] = Me.接收数量
                rs.Update
            End If
        End If
    End If

    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub