office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

access利用数据集的位置逐条删除记录

2020-11-20 08:00:00
tmtony8
原创
3270

在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

    分享