工具栏中的“记录删除”按钮在VBA中怎么调用

shenlan

===========================================================
这个问题是我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
这已经是第四次提问了，希望这次能有一个圆满的结局
===========================================================

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



附上一个模板，请高手在这里修改吧

轻风

这样行不

roych

Long long ago宝版主已经做了一个实例，虽然用的也是ADO，不过效果跟调用系统的删除记录按钮很相似了。我这里传上来，算是借花献佛吧。

jackysu78

在表中增加一个复选框字段，如FYN
删除按钮之单击事件：

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

复制代码

供参考！

shenlan

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

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

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

在此感谢！！！