更简单的 获取删除多条记录的信息

t小宝

以前发过一个例子：删除数据表窗体多条记录并提示所选记录的信息，使用了记录集，比较麻烦。
其实还有更简单的办法，数据表或连续窗体均可：

方法一：
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

游客，如果您要查看本帖隐藏内容请回复

朱同学

学习了

chenwm1973

看看......

付谦

学习

LHB

如果要删除多条记录, 本人比较喜欢用SQL来操作.

fan0217

如果要删除多条记录, 本人比较喜欢用SQL来操作.
LHB 发表于 2009-6-5 20:34

这个方法更高效。

zxklzxm1983

学习勒

df

学习

goto2008

学习

yanwei82123300

学习了