access利用數(shù)據(jù)集的位置逐條刪除記錄

在access窗體中，我刪除數(shù)據(jù)一般是通過SQL語句，或者ADO刪除記錄

在連續(xù)窗體中，也可以通過系統(tǒng)自帶的篩選功能判斷查詢的記錄是否存在，如果存在即刪除

Private Sub 刪除記錄_Click()
    If IsNull(txt1) Then
        MsgBox "沒有輸入刪除條件"  '判斷是否有條件
    Else
        On Error GoTo 錯誤處理
'        篩選出符合條件的記錄
        Me.Filter = "[部門] like '*" & txt1 & "*'"
        Me.FilterOn = True
'        通過篩選出的記錄的書簽判斷是否刪除完畢
        If Me.Recordset.EOF = True Then            
            Exit Sub
        Else
            DoCmd.RunCommand acCmdDeleteRecord  '刪除記錄
            Exit Sub
        End If
錯誤處理:
        MsgBox "已取消刪除！"
    End If
End Sub