access利用數據集的位置逐條刪除記録

在access窗體中，我刪除數據一般是通過SQL語句，或者ADO刪除記録

在連續窗體中，也可以通過繫統自帶的篩選功能判斷查詢的記録是否存在，如果存在卽刪除

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