Application.Run-Methode (Access)

Artikel
04/07/2023

Verwenden Sie die Run-Methode , um eine angegebene Microsoft Access- oder benutzerdefinierte Funktion oder Sub-Prozedur auszuführen. Variant.

Syntax

Ausdruck. Run (Procedure, 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 Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Verfahren	Erforderlich	String	Der Name der Function oder der Sub prozedur, die ausgeführt werden soll. Wenn Sie eine Prozedur in einer anderen Datenbank aufrufen, verwenden Sie den Projektnamen und den Prozedurnamen getrennt durch einen Punkt im Format : "projektname. procedurename" Wenn Sie Visual Basic-Code mit der Run-Methode in einer Bibliotheksdatenbank ausführen, sucht Access zuerst in der Bibliotheksdatenbank und dann in der aktuellen Datenbank nach der Prozedur.
Arg1, Arg2, ...Arg30	Optional	Variant	Die Argumente, die an die im Argument Procedure angegebene Funktion oder Sub übergeben werden sollen.

Rückgabewert

Variant

Bemerkungen

Diese Methode ist nützlich, wenn Sie Microsoft Access mittels Automatisierung, früher OLE-Automatisierung genannt, aus einer anderen Anwendung heraus steuern. Beispielsweise können Sie die Run-Methode aus einer ActiveX-Komponente verwenden, um eine Sub-Prozedur auszuführen, die in einer Access-Datenbank definiert ist.

Sie können einen Verweis auf die Access-Typbibliothek von jeder anderen ActiveX-Komponente festlegen und die in dieser Bibliothek definierten Objekte, Methoden und Eigenschaften in Ihrem Code verwenden. Sie können jedoch keinen Verweis auf eine einzelne Access-Datenbank aus einer anderen Anwendung als Access festlegen.

Angenommen, Sie haben eine Prozedur namens NewForm in einer Datenbank definiert, deren ProjectName-Eigenschaft auf "WizCode" festgelegt ist. Die NewForm-Prozedur verwendet ein Zeichenfolgenargument. Sie können NewForm auf folgende Weise aus Visual Basic aufrufen:

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

Wenn sich eine andere Prozedur mit demselben Namen möglicherweise in einer anderen Datenbank befindet, qualifizieren Sie das Prozedurargument , wie im vorherigen Beispiel gezeigt, mit dem Namen der Datenbank, in der sich die gewünschte Prozedur befindet.

Sie können auch die Run-Methode verwenden, um eine Prozedur in einer Access-Datenbank aufzurufen, auf die verwiesen wird, aus einer anderen Datenbank.

Beispiel

Im folgenden Beispiel wird eine benutzerdefinierte Sub-Prozedur in einem Modul in einer Access-Datenbank aus einer anderen Anwendung ausgeführt, die als Active X-Komponente fungiert.

Wenn Sie dieses Beispiel ausprobieren möchten, erstellen Sie eine Datenbank namens RUNCODE.MDB, und stellen Sie deren ProjectNameProjektName-Eigenschaft auf RUNCODE. Öffnen Sie ein neues Modul in der Datenbank, und geben Sie den folgenden Code ein. Speichern Sie das Modul, und schließen Sie die Datenbank.

Hinweis

Sie legen projectName fest, indem Sie im VBE-Hauptmenü Extras>WizCode-Eigenschaften auswählen.

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

Nachdem Sie diesen Schritt abgeschlossen haben, führen Sie den folgenden Code aus Microsoft Excel oder Visual Basic aus. Stellen Sie sicher, dass Sie einen Verweis auf die Access-Typbibliothek hinzugefügt haben, indem Sie im Menü Extrasverweise und im Dialogfeld Verweise die Option Microsoft Access 12.0-Objektbibliothek auswählen.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.