帶庫位字段(判斷)條件的入庫問題

yanwei82123300

附件是先判斷是否已經(jīng)存在的庫位,如果存在就在架位數(shù)量上進行累加,否則就添加一條新數(shù)據(jù),下面的代碼報錯,請看看,謝謝


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.焊材材質(zhì)編號) Or IsNull(Me.接收架位) Or IsNull(Me.接收數(shù)量)) Then
        strSQL = "SELECT * FROM tblLocation WHERE [焊材材質(zhì)編號] = '" & Me.焊材材質(zhì)編號 & "' AND [架位] = '" & Me.接收架位 & "'"
        rs.FindFirst strSQL
        If rs.NoMatch Then
            rs.AddNew
            rs![焊材材質(zhì)編號] = Me.焊材材質(zhì)編號
            rs![架位] = Me.接收架位
            rs![架位數(shù)量] = Me.接收數(shù)量
            rs.Update
        Else
            If rs![架位] = Me.接收架位 Then
                rs.Edit
                rs![架位數(shù)量] = rs![架位數(shù)量] + Me.接收數(shù)量
                rs.Update
            Else
                rs.AddNew
                rs![焊材材質(zhì)編號] = Me.焊材材質(zhì)編號
                rs![架位] = Me.接收架位
                rs![架位數(shù)量] = Me.接收數(shù)量
                rs.Update
            End If
        End If
    End If

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