.Runcommand类型不匹配

Question

我从AccessApp.Docmd.RunCommand "RunUpdate"

收到类型不匹配的错误

我正在尝试通过自动化打开访问数据库，并在模块中运行其中一个公共潜艇。这就是我正在使用的。

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.RunCommand代表Application.Run。从字符串调用用户定义函数时使用Application.Run。