office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

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

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

2020-11-20 08:00:00
tmtony8
原創
343

在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

    分享