通过单击工具栏的删除按钮来删除多条记录。
之前做个一个使用了记录集例子，比较麻烦。可删除数据表窗体多条记录并提示所选记录的信息。
这里分享一个更加简单的方法。数据表或连续窗体均可：
方法一：
Option Compare Database
Option Explicit
Dim stDel As String
Dim inDel As Integer
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
Response = acDataErrContinue
End Sub
Private Sub Form_Delete(Cancel As Integer)
If Me.SelHeight > inDel Then
stDel = stDel & Chr(13) & " " & Me.编号
inDel = inDel + 1
Cancel = True
End If
If Me.SelHeight = inDel Then
If MsgBox("您正准备删除 " & inDel & " 条编号如下的记录：" & Chr(13) & stDel & Chr(13) & _
Chr(13) & "删除后将不能撤消，确定删除吗？", vbExclamation + vbYesNo, "确认删除") = vbYes Then
inDel = Me.SelHeight + 1
DoCmd.RunCommand acCmdDeleteRecord
End If
inDel = 0
stDel = ""
End If
End Sub
方法二：
Option Compare Database
Option Explicit
Dim stDel As String
Dim inDel As Integer
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
Response = acDataErrContinue
If MsgBox("您正准备删除 " & inDel & " 条编号如下的记录：" & Chr(13) & stDel & Chr(13) & _
Chr(13) & "删除后将不能撤消，确定删除吗？", vbExclamation + vbYesNo, "确认删除") = vbNo Then
Cancel = True
End If
End Sub
Private Sub Form_Delete(Cancel As Integer)
stDel = stDel & Chr(13) & " " & Me.编号
inDel = inDel + 1
End Sub
