.Runcommand类型不匹配

Question

我收到来自AccessApp.Docmd.RunCommand "RunUpdate"的类型不匹配错误

我正试图通过自动化打开一个access数据库，并以模块方式运行其中一个公共subs。这就是我所使用的。

Sub VCSUpdate()
On Error GoTo ErrorHandler

Dim AccessApp As New Access.Application
Set AccessApp = New Access.Application
AccessApp.AutomationSecurity = msoAutomationSecurityLow
AccessApp.OpenCurrentDatabase CurrentProject.Path & "\VICI Desktop Installer.accde"
AccessApp.RunCommand "RunInstall" '<------ errors here
AccessApp.CloseCurrentDatabase
AccessApp.Quit

Exit Sub
ErrorHandler:
    Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpFile, Err.HelpContext
End Sub

这就是.Runcommand试图运行的内容

Public Sub RunInstall()
    Call LinkFrontEnd
    Call InstallDesktopVICI
End Sub

我尝试过AccessApp.docm.runcommand和AccessApp.Runcommand都有相同的错误。

Answer 1

你把Application.Run误认为Application.RunCommand了。从字符串调用用户定义函数时使用Application.Run。