Office中國(guó)論壇/Access中國(guó)論壇

標(biāo)題: 帶庫(kù)位字段(判斷)條件的入庫(kù)問(wèn)題 [打印本頁(yè)]

作者: yanwei82123300    時(shí)間: 2025-1-13 10:45
標(biāo)題: 帶庫(kù)位字段(判斷)條件的入庫(kù)問(wèn)題
附件是先判斷是否已經(jīng)存在的庫(kù)位,如果存在就在架位數(shù)量上進(jìn)行累加,否則就添加一條新數(shù)據(jù),下面的代碼報(bào)錯(cuò),請(qǐng)看看,謝謝


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

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




歡迎光臨 Office中國(guó)論壇/Access中國(guó)論壇 (http://www.mzhfr.cn/) Powered by Discuz! X3.3