“md如何删除“md删除内部线

删除记录的几种方法示例

1. Private Sub cmdDelete_Click() '删除当前记录

2. If Not Me.NewRecord Then

3. RunCommand acCmdDeleteRecord

4. MsgBox "当前记录已删除成功！", vbInformation, "提示"

5. Else

6. Me.Undo

7. End If

8. End Sub

10. Private Sub Command45_Click() '删除选中记录

11. On Error Resume Next

12. Dim strsql As String

13. Dim intCount As Long

14. intCount = DCount("id", "tbl前区统计指标", "删除 = -1")

15. If intCount = 0 Then

16. MsgBox "你还没选中记录，不能删除！", vbInformation, "提示"

17. Exit Sub

18. Else

19. If (MsgBox("你真的要删除 " & intCount & " 条选中的记录吗?", vbQuestion + vbYesNo, "提示") = vbYes) Then

20. strsql = "delete * from tbl前区统计指标 where 删除=-1"

21. DoCmd.RunSQL strsql

22. Me.Requery

23. MsgBox "已删除 " & intCount & " 条选中记录！", vbInformation, "提示"

24. Else

25. Exit Sub

26. End If

27. End If

28. End Sub

30. Private Sub Command46_Click() '清除所有记录

31. Dim intCount As Long

32. intCount = DCount("id", "tbl前区统计指标")

33. If (MsgBox("你真的要删除所有（ " & intCount & " 条）的记录吗?", vbQuestion + vbYesNo, "提示") = vbYes) Then

34. strsql = "delete * from tbl前区统计指标"

35. DoCmd.RunSQL strsql

36. Me.Requery

37. MsgBox "已删除所有( " & intCount & " 条)记录！", vbInformation, "提示"

38. Else

39. Exit Sub

40. End If

41. End Sub