Office中国论坛/Access中国论坛

标题: 工具栏中的“记录删除”按钮在VBA中怎么调用 [打印本页]

作者: shenlan 时间: 2011-8-3 13:36
标题: 工具栏中的“记录删除”按钮在VBA中怎么调用
===========================================================
这个问题是我06年的时候就想知道的，也在论坛上发帖提问了，期间获得了许多朋友的热心关注，
但问题是始终都没有解决，为此一直耿耿于怀，
第一次：http://www.office-cn.net/thread-46157-1-1.html
第二次：http://www.office-cn.net/thread-51633-1-1.html
第三次：http://www.office-cn.net/thread-40943-1-1.html
这已经是第四次提问了，希望这次能有一个圆满的结局

===========================================================

<

>ＡＣＣＥＳＳ工具栏中有一个记录删除按钮很好用，每次只要在表或子窗体中选中一条或多条连续的记录，然后点一下这个按钮就可以全部删除。
但是，向导创建的按钮每次只能删除一条记录，而我只会用ＡＤＯ方法按指定条件删除，而不能实现按选定内容删除。
哪位高手知道在窗体上怎么用ＶＢＡ调用这个工具栏按钮，或者用其他代码来实现相同的功能。如果我还是没有说明白就请大家看一下下面这张图片吧

[attach]46265[/attach]

附上一个模板，请高手在这里修改吧
[attach]46266[/attach]

作者: 轻风 时间: 2011-8-3 14:30
这样行不

作者: roych 时间: 2011-8-3 14:45
Long long ago宝版主已经做了一个实例，虽然用的也是ADO，不过效果跟调用系统的删除记录按钮很相似了。我这里传上来，算是借花献佛吧。[attach]46270[/attach]

作者: jackysu78 时间: 2011-8-3 14:46
在表中增加一个复选框字段，如FYN
删除按钮之单击事件：

DoCmd.RunSQL "delete from 表1 where fyn = true"
Me.表1子窗体.Requery

复制代码

供参考！

作者: shenlan 时间: 2011-8-3 15:33
本帖最后由 shenlan 于 2011-8-3 15:39 编辑

谢谢轻风和 roych ，你们提供的方法都可以，我这个问题终于解决了，但具体的原理还是不太明白，我再琢磨琢磨就好了

我以前主要的问题就是不知道怎么样可以判定该条记录被选定了

jackysu78提供的方法也是可以的，这个我倒是会，但是采用这种复选框标识的方法在选定记录的时候需要逐条点击，如果一次删除记录条数很多的话就会很麻烦

在此感谢！！！

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