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