Question

所有我收到错误，因为设置MyAccess = CreateObject（＆＃34; Access.Application＆＃34;），VBA中的无效的外部程序错误可以帮助我这个错误.TIA

Dim MyAccess As Access.Application Set MyAccess = CreateObject("Access.Application") MyAccess.Visible = True MyAccess.OpenCurrentDatabase ("E:\Bharath Files\Bharath 2015-2016\New folder")

Answer 1

您需要在子或函数内进行此调用。

Function TestApp() As Boolean

    Dim MyAccess As Access.Application 

    Set MyAccess = CreateObject("Access.Application")
    MyAccess.Visible = True

    MyAccess.OpenCurrentDatabase <Database File to Open>

    TestApp = True

End Function

当您运行此功能时，将使用您的数据库打开一个新的Access实例，但是一旦您到达该功能的末尾，它将终止，因为您声明了“我的访问”＆＃39;将超出范围。

如果您希望数据库在函数运行后保持打开状态，则需要声明您的“我的访问”。在代码模块的声明部分的例程之外。

获取无效的外部过程错误

1 个答案: