使用 VBA Excel 单击 Access 表单中的按钮

问题描述

这是我下面的代码。我在 control.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

解决方法

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

.Forms("Form1").Run_Click