使用 VBA Excel 单击访问表单中的按钮

Posted 2023-05-07

【中文标题】使用 VBA Excel 单击访问表单中的按钮

【英文标题】：Clicking a button in Access Form using VBA Excel

【发布时间】：2021-04-29 11:05:49

【问题描述】：

这是我下面的代码。我在 controls.click 上收到错误“对象不支持此属性或方法”。有谁可以帮忙吗？

    'create new access object
    Set appAccess = CreateObject("Access.Application")
    'open the acces project
    Call appAccess.OpenCurrentDatabase("D:\NSE Cash\db.accdb")
    appAccess.Visible = True
    With appAccess
        Application.DisplayAlerts = False
        .DoCmd.OpenForm "Form1"
        .Forms("Form1").Controls("Run").Click
    End With
    Set appAccess = Nothing

【问题讨论】：

一个表单属于一个开放的数据库，而不是属于 Access 应用程序。

【参考方案1】：

首先，按钮 Click 事件不能是 Private - 从过程声明中删除 Private。然后，这对我有用：

.Forms("Form1").Run_Click