Office中国论坛/Access中国论坛

标题: 更简单的获取删除多条记录的信息 [打印本页]

作者: t小宝 时间: 2009-6-2 17:37
标题: 更简单的获取删除多条记录的信息
以前发过一个例子：删除数据表窗体多条记录并提示所选记录的信息，使用了记录集，比较麻烦。
其实还有更简单的办法，数据表或连续窗体均可：

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

作者: 朱同学 时间: 2009-6-2 18:44
学习了

作者: chenwm1973 时间: 2009-6-2 18:56
看看......

作者: 付谦 时间: 2009-6-2 22:45
学习

作者: LHB 时间: 2009-6-6 16:34
如果要删除多条记录, 本人比较喜欢用SQL来操作.

作者: fan0217 时间: 2009-9-17 06:58

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

这个方法更高效。

作者: zxklzxm1983 时间: 2009-9-17 10:33
学习勒

作者: df 时间: 2009-9-20 10:00
学习

作者: goto2008 时间: 2009-12-9 10:40
学习

作者: yanwei82123300 时间: 2009-12-9 14:03
学习了

作者: cc.man 时间: 2009-12-9 14:24
回帖，看宝贝

作者: LIMING999888 时间: 2009-12-10 13:22
学习中，谢楼主。

作者: liaoqiang234 时间: 2009-12-17 14:23
学习

作者: 石三少 时间: 2009-12-18 11:55
我正在找这个的

作者: sxb2007 时间: 2010-3-5 11:30
看看......

作者: 风啸啸 时间: 2010-3-5 11:46
学习谢谢。

作者: zhengweb_0 时间: 2010-3-17 09:29
学习学习

作者: lovehere 时间: 2010-3-18 17:20
学习一下，感谢先

作者: muning2010 时间: 2010-4-13 10:40
学习加收藏

作者: xiazaidj 时间: 2010-4-14 20:55
正需要,下来赶紧收藏

作者: jsf2008 时间: 2010-4-15 20:09
学习

作者: xie62 时间: 2010-4-26 15:25
好好学习

作者: tmtming 时间: 2010-4-26 20:05
学习下

作者: 简 时间: 2010-4-26 20:18
我也来学习学习~~~

作者: grq 时间: 2010-4-26 21:13
学习一下，谢谢提供。

作者: zhao__feng 时间: 2010-4-27 19:37
谢谢，学习

作者: 一朵白云 时间: 2010-4-27 22:12
我学

作者: jsnjhu 时间: 2010-5-14 08:56
辛苦了

作者: jiayinlb 时间: 2010-7-11 19:56
好好好

作者: loginwjd303 时间: 2010-8-10 09:22
很好，学习了

作者: shbg123 时间: 2010-8-10 10:03
没看懂，得学习了

作者: wang1950317 时间: 2010-8-10 16:42
学习！

作者: GAOZHONG 时间: 2010-8-13 18:26
学习

作者: xjb_test 时间: 2010-8-17 00:56
学习

作者: hgxly 时间: 2010-10-9 15:39
学习了

作者: xryacc2 时间: 2010-10-9 19:45
看看，谢谢分享

作者: bx19830825 时间: 2011-1-14 18:30
学习学习

作者: sd大海无量 时间: 2011-2-1 19:39
谢谢楼主！！！！

作者: 简 时间: 2011-2-26 07:38
我发现，好像不能用ctrl单个多选来删除多条记录似的，只能用shift来连选。
如果删除时配合你那篇连续窗体高亮选择的例子，效果会更好些。

作者: shenlan 时间: 2011-8-3 15:43
谢谢分享，这个方法找了好久了

作者: jackysu78 时间: 2011-8-3 20:54
学习

作者: loenchen 时间: 2011-8-3 22:37
good!I see

作者: licongli 时间: 2011-8-4 14:00
Thank you for it.

作者: tangyi77 时间: 2011-8-5 17:16
thanks very much

作者: yanghua1900363 时间: 2011-8-6 18:13
条条大道通罗马今天又学到一招谢谢分享

作者: alonet 时间: 2011-8-10 14:17
高手学习一下

作者: xiaowuo2 时间: 2011-8-10 14:40
看看最简单的方法是多少

作者: MYPCOO 时间: 2011-9-7 14:48
学习

作者: towerman 时间: 2011-9-7 15:01
学习

作者: 13601812106_01 时间: 2011-10-21 14:43
是真的吗

作者: luciferwa 时间: 2011-11-22 16:50
下載回來學習，感謝！

作者: efcndi 时间: 2011-11-24 09:36
学习

作者: gxy1000 时间: 2012-9-7 08:42

作者: yanhantan 时间: 2014-10-29 19:20
学习一下

作者: ardu95 时间: 2016-11-1 17:21
学习勒

作者: friendship 时间: 2016-11-3 04:03

作者: yyalm 时间: 2016-11-11 16:19
学习

作者: sunwrsun 时间: 2017-6-24 16:26
谢谢

作者: 百舸争流 时间: 2017-6-24 16:47
学习一下

作者: 真主 时间: 2017-7-26 13:03
谢谢分享

作者: zxclen 时间: 2019-8-20 08:53
SWEEEEEEEEEEEE

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)