MS Access 2007 中的 VBA“删除”按钮答案

【问题标题】：VBA "delete" button in MS Access 2007MS Access 2007 中的 VBA“删除”按钮
【发布时间】：2009-12-16 18:15:08
【问题描述】：

我正在尝试更新 MS Access 2007 中的功能区。我将数据库从 2003 年迁移到 2007 年。在我创建的功能区中，“删除”按钮似乎不起作用。我认为可以在 VBA 代码中对其进行调整，但我不确定我将包含哪些代码。到目前为止，这是我在 XML 中得到的：

<button idMso="Delete" label="Löschen" size="large" />

有人知道如何让“删除”按钮起作用吗？

在我的 basRibbonCallbacks 中，这是我得到的：

    Sub OnActionButton(control As IRibbonControl)

        Select Case control.Id

             Case "btnOpenFormular"
                DoCmd.OpenForm "FormName"
             Case "btnCloseFrmEingabe"
                DoCmd.Close acReport
             Case "btnDelete"
                DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
                DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
        End Select
    End Sub

在“btnDelete”案例中，我不确定该放什么。我可以看到“删除按钮”尚未变灰，但如果我在表单上选择一条记录并单击删除，则不会发生任何事情。代码是否正确？谢谢

在我的 USysRibbons 中，我得到的 XML 代码是这样的：

    <?xml version="1.0" encoding="windows-1252"?>
    <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
        <ribbon startFromScratch="true">
            <tabs> <tab id="tab2" label="Overview" insertAfterMso="TabDatabaseTools">
                    <group id="Group3" label="Navigation">                      
                        <button id="btnDelete" label="Löschen"
                         imageMso="RecordsDeleteRecord" size="large"
                         onAction="OnActionButton" />
                       </group>
                </tab>
            </tabs>
        </ribbon>
    </customUI>

【问题讨论】：

标签： ms-access

【解决方案1】：

我认为这与 Access 2007 中增强的安全性有关。阅读以下文章，您会得到提示。

http://office.microsoft.com/en-us/access/HA012301871033.aspx

【讨论】：

谢谢。我只想有一个 VBA 的代码，以便“删除”按钮可以工作。我已经尝试过其他功能，例如“打开表单”，在我的 XML 中我有这个：和我的 VBA 代码：我写了这样的东西：Case "btnClose" DoCmd.Close acReport, "FormName", acSaveYes 我想我也可以用“删除”按钮来做到这一点，但我不确定在代码中写什么。
访问选项 -> 从左栏中选择选项卡“当前数据库” -> 在右侧面板中选中“启用此数据库的布局视图”。这将启用/禁用访问表单/子表单中的删除按钮。
您可能不希望在 Close 命令中使用 acSaveYes。这保存了被关闭对象的设计——它与数据无关。此外，您正在关闭一个 REPORT，因此它背后的数据在任何情况下都是只读的。
@Saar：是的，它已经检查过了。还有“为数据表视图中的表启用设计更改（为此数据库）。但它仍然无法正常工作。