Freigeben über

CurrentProject-Objekt (Access)

  • Artikel

Durch das CurrentProject-Objekt wird auf das Projekt für das aktuelle Microsoft Access-Projekt (ADP) oder die aktuelle Access-Datenbank verwiesen.

Hinweise

Das CurrentProject-Objekt verfügt über mehrere Auflistungen, die bestimmte AccessObject-Objekte in der aktuellen Datenbank enthalten. In der folgenden Tabelle sind die Namen der einzelnen Auflistungen und die darin enthaltenen Objekttypen aufgeführt.

Auflistungen Objekttyp
AllForms Alle Formulare
AllReports Alle Berichte
AllMacros Alle Makros
AllModules Alle Module

Hinweis

Die Auflistungen der vorhergehenden Tabelle enthalten alle entsprechenden Objekte in der Datenbank, und zwar unabhängig davon, ob sie geöffnet sind.

So ist beispielsweise ein AccessObject-Objekt, das ein Formular repräsentiert, ein Element der AllForms-Auflistung, einer Auflistung von AccessObject-Objekten innerhalb der aktuellen Datenbank. Einzelne Formulare innerhalb der AllForms-Auflistung werden mit Null beginnend indiziert. Verweisen Sie auf ein einzelnes AccessObject-Objekt in der AllForms-Auflistung , indem Sie entweder anhand des Namens auf das Formular verweisen oder auf seinen Index innerhalb der Auflistung verweisen. Wenn Sie auf ein bestimmtes Objekt in der AllForms-Auflistung verweisen möchten, ist es besser, es anhand des Namens zu verweisen, da sich der Auflistungsindex eines Elements ändern kann. Wenn der Objektname ein Leerzeichen enthält, muss der Name in eckige Klammern ([ ]) gesetzt werden.

Syntax Beispiel
AllForms!formname AllForms!OrderForm
AllForms![form name] AllForms![Bestellformular]
AllForms("formname") AllForms("OrderForm")
AllForms(index) AllForms(0)

Beispiel

Im folgenden Beispiel werden einige aktuelle Eigenschafteneinstellungen des CurrentProject-Objekts ausgegeben und dann eine Option zum Anzeigen ausgeblendeter Objekte in der Anwendung festgelegt.

Sub ApplicationInformation() 
 ' Print name and type of current object. 
 Debug.Print Application.CurrentProject.FullName 
 Debug.Print Application.CurrentProject.ProjectType 
 ' Set Hidden Objects option under Show on View Tab 
 'of the Options dialog box. 
 Application.SetOption "Show Hidden Objects", True 
End Sub

Das nächste Beispiel zeigt, wie Sie das CurrentProject-Objekt mithilfe von Automation aus einer anderen Microsoft Office-Anwendung verwenden. Erstellen Sie zunächst aus der anderen Anwendung einen Verweis auf Microsoft Access, indem Sie im Modulfenster im Menü Extras auf Verweise klicken. Aktivieren Sie das Kontrollkästchen neben Microsoft Access-Objektbibliothek, und geben Sie dann den folgenden Code in ein Visual Basic-Modul in dieser Anwendung ein, und rufen Sie die GetAccessData-Prozedur auf.

Das Beispiel übergibt einen Datenbanknamen und einen Berichtsnamen an eine Prozedur, die eine neue instance der Application-Klasse erstellt, die Datenbank öffnet und mithilfe des CurrentProject-Objekts und der AllReports-Auflistung überprüft, ob der angegebene Bericht vorhanden ist.

Sub GetAccessData() 
' Declare object variable in declarations section of a module 
 Dim appAccess As Access.Application 
 Dim strDB As String 
 Dim strReportName As String 
 
 strDB = "C:\Program Files\Microsoft " _ 
          & "Office\Office11\Samples\Northwind.mdb" 
 strReportName = InputBox("Enter name of report to be verified", _ 
                          "Report Verification") 
 VerifyAccessReport strDB, strReportName 
End Sub 
 
Sub VerifyAccessReport(strDB As String, _ 
                       strReportName As String) 
 ' Return reference to Microsoft Access 
 ' Application object. 
 Set appAccess = New Access.Application 
 ' Open database in Microsoft Access. 
 appAccess.OpenCurrentDatabase strDB 
 ' Verify report exists. 
 On Error Goto ErrorHandler 
 IsObject appAccess.CurrentProject.AllReports(strReportName) 
 MsgBox "Report " & strReportName & _ 
        " verified within " & appAccess.CurrentProject.Name & " database."
 appAccess.CloseCurrentDatabase 
 Set appAccess = Nothing 
Exit Sub 
ErrorHandler: 
 MsgBox "Report " & strReportName & _ 
        " does not exist within " & appAccess.CurrentProject.Name & " database."
 appAccess.CloseCurrentDatabase 
 Set appAccess = Nothing 
End Sub

Methoden

Eigenschaften

Siehe auch

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.