Application.Run 方法 (Access)

使用 Run 方法來執行指定的 Microsoft Access 或 使用者定義函 數或 子 程式。 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 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Procedure	必要	String	若要執行的 Function 或 Sub 程序名稱。 如果您要在另一個資料庫中呼叫程式，請使用專案名稱和程式名稱，並以 「projectname」 格式的點分隔。procedurename」 如果您執行包含程式庫資料庫中 Run 方法的 Visual Basic 程式碼，Access 會先在程式庫資料庫中尋找程式，然後在目前的資料庫中尋找程式。
Arg1, Arg2, ...Arg30	選用	Variant	應該傳遞給的 Function 或 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"

如果另一個具有相同名稱的程式可能位於不同的資料庫中，請使用所需程式所在的資料庫名稱來限定 程式 引數，如上述範例所示。

您也可以使用 Run 方法，從另一個資料庫呼叫參考之 Access 資料庫中的程式。

範例

下列範例會從另一個做為 Active X 元件的應用程式，在 Access 資料庫的模組中執行使用者定義 的 Sub 程式。

若要嘗試此範例中，建立新的資料庫呼叫 WizCode.mdb 並將其 ProjectName 屬性設定為 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 支援與意見反應。