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