Application.Run 方法 (Access)

使用 Run 方法执行指定的 Microsoft Access 或用户定义的 函数 或 Sub 过程。 Variant。

语法

表达式。运行 (过程、 Arg1、 Arg2、 Arg3、 Arg4、 Arg5、 Arg6、 Arg7、 Arg8、 Arg9、 Arg10、 Arg11、 Arg12、 Arg13、 Arg14、 Arg15、 Arg16、 Arg17、 Arg18、 Arg19、 Arg20、 Arg21、 Arg22、 Arg23、 Arg24、 Arg25、 Arg26、 Arg27、 Arg28、 Arg29、 Arg30)

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
步骤	必需	字符串	要运行的 函数 或 Sub 过程的名称。 如果要调用另一个数据库中的过程，请使用项目名称和过程名称，格式为“projectname”。procedurename” 如果在库数据库中执行包含 Run 方法的 Visual Basic 代码，则 Access 首先在库数据库中查找过程，然后在当前数据库中查找过程。
Arg1, Arg2, ...Arg30	可选	Variant	应传递给 函数 或 SubProcedure参数中指定的参数。

返回值

Variant

备注

当从其他应用程序中通过自动化（以前称为 OLE 自动化）控制 Microsoft Access 时，该方法很有用。 例如，可以使用 ActiveX 组件的 Run 方法执行在 Access 数据库中定义的 Sub 过程。

可以从任何其他 ActiveX 组件设置对 Access 类型库的引用，并在代码中使用在该库中定义的对象、方法和属性。 但是，不能从 Access 以外的任何应用程序设置对单个 Access 数据库的引用。

例如，假设在数据库中定义了一个名为 NewForm 的过程，其 ProjectName 属性设置为“WizCode”。NewForm 过程采用字符串参数。 可以从 Visual Basic 中用以下方式调用 NewForm（新窗体）：

Dim appAccess As New Access.Application 
appAccess.OpenCurrentDatabase ("C:\My Documents\WizCode.mdb") 
appAccess.Run "WizCode.NewForm", "Some String"

如果在不同的数据库中存在名称相同的另一个过程，那么像以上示例所显示的那样，使用存在于所需过程中的数据库名称，以使 procedure 参数符合标准。

还可以使用 Run 方法从另一个数据库调用引用的 Access 数据库中的过程。

示例

以下示例从另一个充当 Active X 组件的应用程序在 Access 数据库中的模块中运行用户定义的 Sub 过程。

若要试用该示例，创建一个名为 WizCode.mdb 的新数据库并将其 项目名称 属性设置为 WizCode。 在这个数据库中打开一个新模块，输入以下代码。 保存这个模块，然后关闭数据库。

注意

通过从 VBE 主菜单中选择“工具>”“WizCode 属性”来设置 ProjectName。

Public Sub Greeting(ByVal strName As String) 
 MsgBox ("Hello, " & strName & "!"), vbInformation, "Greetings" 
End Sub

完成此步骤后，请从 Microsoft Excel 或 Visual Basic 运行以下代码。 通过在“工具”菜单中选择“引用”，并在“引用”对话框中选择“Microsoft Access 12.0 对象库”，确保已添加对 Access 类型库的引用。

Private Sub RunAccessSub() 
 
 Dim appAccess As Access.Application 
 
 ' Create instance of Access Application object. 
 Set appAccess = CreateObject("Access.Application") 
 
 ' Open WizCode database in Microsoft Access window. 
 appAccess.OpenCurrentDatabase "C:\My Documents\WizCode.mdb", False 
 
 ' Run Sub procedure. 
 appAccess.Run "Greeting", "Joe" 
 Set appAccess = Nothing 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。