[求助]“记录删除”按钮怎么调用

shenlan

ＡＣＣＥＳＳ工具栏中有一个记录删除按钮很好用，每次只要在表或子窗体中选种一条或多条记录，然后点一下这个按钮就可以全部删除。

但是，向导创建的按钮每次只能删除一条记录，而我只会用ＡＤＯ方法按指定条件删除，而不能实现按选定内容删除。

哪位高手知道在窗体上怎么用ＶＢＡ调用这个工具栏按钮，或者用其他代码来实现相同的功能。如果我还是没有说明白就请大家看一下下面这张图片吧，不好意思，我不会帖图片，只好把图片压缩后作为附件传上来，见笑！

[此贴子已经被作者于2007-1-17 22:53:36编辑过]

一点通

请看一下版主的一个例子

http://www.office-cn.net/forum.php?mod=viewthread&tid=51257

shenlan

谢谢一点通及时答复

斑竹的作品确实很经典,功能很全面。

但是感觉在删除记录方面还是不如工具栏中的那个按钮方便，您能指教我怎么用VB实现吗，真的很想知道，已经查了很多资料了，一直找不到答案

kingboyszxf

如果两个表是主从表关系的话,可以做一个级联删除.这样你只要删除主表的记录,从表随之删除了,不用你写代码

shenlan

谢谢kingboyszxf提醒，你说的方法我当然知道了，我想知道的就是怎么用VBA实现工具栏中哪个记录删除按钮的功能，虽然有些固执

shenlan

今天在VBA帮助中查到可以用Docmd对象的Runcmmand方法执行ACCESS系统内置菜单\工具栏命令，哪位可以告知怎么用，查到的内容如下：

RunCommand 方法

参阅       应用于      示例       特性

RunCommand 方法用于执行内置菜单命令或内置工具栏命令，主要参数有（菜单条、菜单名、命令、子命令）

语法：expression.RunCommand(Command)

expression      必需。返回“应用于”列表（Application 对象、DoCmd 对象）中的一个对象的表达式。

Command         AcCommand，必需。固有常量，指定要执行的内置菜单命令或内置工具栏命令。

AcCommand 可以是下列 AcCommand 常量之一：
acCmdAboutMicrosoftAccess
acCmdAddInManager
acCmdAddToNewGroup
acCmdAddWatch
acCmdAdvancedFilterSort
acCmdAlignBottom
acCmdAlignCenter
acCmdAlignLeft
acCmdAlignmentAndSizing
acCmdAlignMiddle
acCmdAlignRight
acCmdAlignToGrid
acCmdAlignTop

.....................（很多，未全部列出）

说明
Microsoft Access 中的每个菜单命令和工具栏命令都有一个相关的常量，在 Visual Basic 中，可以将常量与 RunCommand 方法结合使用来执行该常量对应的命令。

不能使用 RunCommand 方法执行自定义菜单或工具栏上的命令，该方法只能用于内置菜单和工具栏。

RunCommand 方法可替换 DoCmd 对象的 DoMenuItem 方法。

示例
下面的示例使用 RunCommand 方法打开“选项”对话框（“工具”菜单）。

Public Function OpenOptionsDialog() As Boolean

On Error GoTo Error_OpenOptionsDialog

    DoCmd.RunCommand acCmdOptions
    OpenOptionsDialog = True

Exit_OpenOptionsDialog:
    Exit Function

Error_OpenOptionsDialog:
    MsgBox Err & ": " & Err.Description
    OpenOptionsDialog = False
    Resume Exit_OpenOptionsDialog

End Function

shenlan

没人管了,真郁闷啊

tz-chf

键盘的delete键

shenlan

再次声明，我要学习VBA代码操作的方法

hi-wzj

用向导做一个删除记录的按钮，然后看代码吧，看不懂就按F1