<\/p>\n
Eines der wichtigsten Objekte bei der Programmierung von Access-Anwendungen ist das Application-Objekt. Es bietet viele Eigenschaften und Methoden, die stiefmütterlich behandelt werden. Dabei lohnt es sich, einmal einen Blick darauf zu werfen – dann weiß man im Fall der Fälle, dass es da irgendwo einen passenden Befehl geben muss. Dieser Beitrag zeigt eine Übersicht der Elemente des Application-Objekts und deren Funktion. In weiteren Beiträgen schauen wir uns die Funktion der einzelnen Eigenschaften und Methoden im Detail an.<\/b><\/p>\nApplication-Objekt im Objektkatalog<\/h2>\n
Wenn Sie irgendwann einmal vor einer Aufgabe stehen, von der Sie wissen, dass Sie in diesem Beitrag von einer möglichen Lösung gelesen haben, können Sie schnell im Objektkatalog des VBA-Editors nachsehen – dort finden Sie zumindest eine Auflistung der Methoden und Eigenschaften des Application<\/b>-Objekts. Den Objektkatalog öffnen Sie mit der Taste F2<\/b>. Oben im Suchfeld geben Sie Application ein und klicken dann auf den gefundenen Eintrag. Die untere Liste liefert dann alle Member dieser Klasse (siehe Bild 1).<\/p>\n
![\"Elemente](\"..\/fileadmin\/_temp_\/2021_06\/pic_1334_001.png\")
<\/p>\n
Bild 1: Elemente des Application-Objekts<\/span><\/b><\/p>\n Nachfolgend finden Sie die mehr oder weniger kurzen Beschreibungen der Elemente des Application<\/b>-Objekts. Elemente für Webdatenbanken oder Elemente für ältere Techniken wie DDE haben wir nicht berücksichtigt. Sie können die Befehle auch ohne vorangestelltes Application <\/b>nutzen.<\/p>\n Diese Funktion erwartet eine Fehlernummer als Parameter und liefert die Beschreibung des Fehlers in der Anwendungssprache (siehe Bild 2). Praktisch, wenn ein Kunde Ihnen nur die Fehlernummer zu einem Fehler liefert und Sie schnell nachsehen wollen, welche Meldung sich dahinter verbirgt.<\/p>\n Bild 2: Ermitteln des Textes eines Access-Fehlers<\/span><\/b><\/p>\n Hat in früheren Versionen von Access die aktuelle Datenbank zur Liste der Favoriten hinzugefügt.<\/p>\n Das mit der Eigenschaft Assistance gelieferte Objekt bietet vier Methoden an, die Sie in Bild 3 sehen.<\/p>\n Bild 3: Methoden des Assistance-Objekts<\/span><\/b><\/p>\n SearchHelp <\/b>scheint noch die nützlichste Methode zu sein, sie öffnet nach Eingabe eines Suchbegriffs als Parameter die Support-Seite von Microsoft mit den passenden Themen:<\/p>\n Dies funktioniert jedoch nicht gut, denn für dieses Beispiel liefert die Seite keine Suchergebnisse.<\/p>\n Das mit AutoCorrect<\/b> gelieferte Objekt bietet nur eine Eigenschaft namens DisplayAutoCorrectOptions <\/b>an. Hier mit können Sie einstellen, ob die entsprechenden Optionen angezeigt werden sollen:<\/p>\n Weitere Informationen zur Autokorrektur finden Sie im Beitrag Autokorrektur-Einträge im Griff <\/b>(www.access-im-unternehmen.de\/1279<\/b>).<\/p>\n Diese Eigenschaft legt fest, in welchem Sicherheitsmodus Access andere Access-Anwendungen per VBA öffnet (auch einsetzbar von anderen Office-Anwendungen aus). Zum Öffnen wird hier OpenCurrentDatabase <\/b>verwendet (siehe weiter unten). Es gibt drei Einstellungen:<\/p>\n Mit dieser Eigenschaft finden Sie heraus, ob das VBA-Projekt kaputte oder nicht vorhandene Verweise enthält:<\/p>\n Damit brauchen Sie dann nicht erst die Verweise- beziehungsweise References<\/b>-Auflistung zu durchlaufen. Das ist erst notwendig, wenn BrokenReference <\/b>den Wert True <\/b>liefert. In diesem Fall prüfen wir mit der Eigenschaft IsBroken des Reference-Objekts, ob der aktuell durchlaufene Verweis kaputt ist und geben dann seinen Namen im Direktbereich des VBA-Editors aus.<\/p>\n Gibt die Buildnummer der aktuellen Version von Microsoft Access zurück:<\/p>\n Die BuildCriteria<\/b>-Funktion erlaubt es, Vergleichsausdrücke für verschiedene Datentypen zusammenzustellen. Das ist insbesondere praktisch, wenn man Kriterien etwa für die DLookup-Funktion oder andere Domänenfunktionen zusammenstellen möchte. Die Funktion erwartet folgende Parameter:<\/p>\n Hier sind einige Beispiele:<\/p>\n Wir sehen hier, dass die Funktion recht flexibel ist. Beim Vergleich von Textfeldern ohne Platzhalter wie dem Sternchen (*<\/b>) wird das Gleichheitszeichen als Operator verwendet, bei solchen mit Sternchen LIKE<\/b>. Außerdem werden Zeichenketten automatisch in Anführungszeichen eingefasst. Datumsangaben werden in ein SQL-kompatibles Format umgewandelt und in Zahlen werden Kommata durch das aktuell verwendete Dezimaltrennzeichen ersetzt. Außerdem wandelt die Funktion verschiedene Boolean<\/b>-Werte, zum Beispiel Wahr<\/b>, direkt in eine verwertbare Form um (True<\/b>).<\/p>\n Im Beitrag Suchfunktion mit BuildCritera <\/b>(www.access-im-unternehmen.de\/1339<\/b>) zeigen wir einen Anwendungszweck für diese Funktion.<\/p>\n Schließt die Datenbank in der mit dem Application<\/b>-Objekt angegebenen Access-Instanz. Sie können diesen Befehl in der aktuellen Access-Instanz wie folgt einsetzen:<\/p>\n Wenn Sie eine Datenbank wie weiter unten unter dem Befehl OpenCurrentDatabase <\/b>beschrieben in einer eigenen Instanz geöffnet haben, die beispielsweise objAccess <\/b>heißt, verwenden Sie folgende Anweisung, um die Datenbank zu schließen:<\/p>\n CodeContextObject <\/b>liefert den Namen des Objekts, in dem ein Code ausgeführt wird. Es funktioniert nur für Code in den Klassenmodulen von Formular- und Berichtsmodulen. Allerdings können Sie es auch in Routinen nutzen, die von Code in Formularen oder Berichten aus aufgerufen werden. So können Sie etwa in Fehlerbehandlungsroutinen abfragen, in welchem Objekt der Fehler ausgelöst wurde, ohne dass Sie einen Verweis auf das Objekt oder seinen Namen als Parameter an die Fehlerbehandlungsroutine übergeben müssen.<\/p>\n Dazu platzieren wir beispielsweise folgende Prozedur hinter der Ereigniseigenschaft einer Schaltfläche in einem Formular:<\/p>\n Die von dort aufgerufene Prozedur ErrorHandler <\/b>legen wir in einem Standardmodul an:<\/p>\n Diese liefert dann den Namen des Formulars sowie den Typ (siehe Bild 4).<\/p>\n Bild 4: Meldung mit Informationen der Eigenschaft CodeContextObject<\/span><\/b><\/p>\n Die Eigenschaft CodeData <\/b>hat eine sehr ähnliche Funktion wie CurrentData <\/b>(für die Beschreibung verweisen wir daher auf die Eigenschaft CurrentData<\/b>, die Sie weiter unten finden). Die Eigenschaft ist für die Nutzung in Access-Add-Ins vorgesehen. Dort können Sie dann mit CodeData <\/b>auf die Elemente der Add-In-Datenbank zugreifen und mit CurrentData <\/b>auf die Elemente der aktuell geladenen Datenbank.<\/p>\n CodeDb <\/b>entspricht im Prinzip der Eigenschaft CurrentDb<\/b>, daher verweisen wir an dieser Stelle auf die Beschreibung der Eigenschaft CurrentDb<\/b>, die wir weiter unten vorstellen. Genau wie bei CodeData <\/b>und CurrentData <\/b>ist CodeDb <\/b>für den Einsatz in Access-Add-Ins vorgesehen, um auf das Database<\/b>-Objekt der Add-In-Datenbank zuzugreifen. Mit CurrentDb <\/b>hingegen greift man von der Add-In-Datenbank auf das Database<\/b>-Objekt der aktuell in Access angezeigten Datenbank zu.<\/p>\n CodeProject <\/b>entspricht im Prinzip der Eigenschaft CurrentProject<\/b>, daher verweisen wir an dieser Stelle auf die Beschreibung der Eigenschaft CurrentProject<\/b>, die wir weiter unten vorstellen. Genau wie bei CodeData <\/b>und CurrentData <\/b>ist CodeProject <\/b>für den Einsatz in Access-Add-Ins vorgesehen, um auf das CurrentProject<\/b>-Objekt der Add-In-Datenbank zuzugreifen. Mit CurrentProject <\/b>hingegen greift man von der Add-In-Datenbank auf das CurrentProject<\/b>-Objekt der aktuell in Access angezeigten Datenbank zu.<\/p>\n Mit dieser Funktion können Sie den Versionsverlauf der Daten in einem Memofeld abfragen. Dazu erstellen Sie ein Memofeld (Datentyp Langer Text<\/b>) und stellen dessen Eigenschaft Nur anfügen <\/b>auf Ja <\/b>ein (siehe Bild 5). Dann können Sie mit ColumnHistory <\/b>für einen bestimmten Datensatz den Versionsverlauf auslesen. Für unser Beispiel und den Datensatz mit dem Wert 1 <\/b>im Feld ID <\/b>sieht der Aufruf wie folgt aus:<\/p>\n Bild 5: Memofeld zum Anfügen von Texten<\/span><\/b><\/p>\n Nachdem wir erst eine, dann eine zweite Zeile eingegeben haben, erhalten wir dieses Ergebnis:<\/p>\n Die Auflistung COMAddIns <\/b>liefert alle COM-Add-Ins, die für die aktuelle Access-Instanz vorliegen. COM-Add-Ins sind Add-Ins, die im Gegensatz zu Access-Add-Ins mit alternativen Entwicklungsumgebungen erstellt werden, zum Beispiel VB6, .NET oder twinBASIC. Die folgende For Each-Schleife gibt die Beschreibung und die ProgID aller aktuell installierten Elemente aus:<\/p>\n Mit der CommandBars<\/b>-Auflistung greifen Sie auf alle CommandBar<\/b>-Definitionen der aktuellen Instanz von Access zu. Das mag in Zeiten des Ribbons veraltet zu sein, aber wir wollen die guten, alten Kontextmenüs nicht vergessen: Auch diese lassen sich mit dieser Auflistung ermitteln.<\/p>\n Im folgenden Beispiel durchlaufen wir alle Elemente der CommandBars<\/b>-Auflistung und geben all diejenigen im Direktbereich des VBA-Editors aus, deren Eigenschaft Type <\/b>den Wert msoBarTypePopup <\/b>aufweist:<\/p>\n Diese Methode komprimiert und repariert die im ersten Parameter angegeben Datenbank und erzeugt eine komprimierte und reparierte Version unter dem mit dem zweiten Parameter angegebenen Dateinamen:<\/p>\n Mit dem dritten Parameter geben Sie an, ob im Falle von bei der Reparatur entdeckten korrupten Elemente eine Logdatei im Verzeichnis der Datenbank angelegt werden soll.<\/p>\n Diese Methode konvertiert eine ADP-Datei, also ein Access Data Project, in eine reine Access-Datenbank. Sie erwartet die folgenden Parameter:<\/p>\n Mit dieser Methode können Sie eine ADP-Datei, also ein Access Data Project, erzeugen. Sie ist allerdings in neueren Versionen von Access nicht mehr verfügbar und der Aufruf löst den Fehler Das Format ADP (Access Data Project) wird ab dieser Version von Access nicht mehr unterstützt.<\/b> aus:<\/p>\n Als zweiten Parameter können Sie noch die Verbindungszeichenfolge für die zu verbindende SQL Server-Datenbank angeben.<\/p>\n Diese Methode dient dazu, bei einem Export im XML-Format der Daten weitere Tabellen zu den Daten der zu exportierenden Tabelle hinzuzufügen.<\/p>\n Weitere Informationen zu dieser Methode finden Sie im Beitrag XML-Export mit VBA <\/b>(www.access-im-unternehmen.de\/1046<\/b>).<\/p>\n Die Funktion CreateControl <\/b>erstellt ein neues Steuerelement in einem Formular und liefert einen Verweis auf das neue Steuerelement als Funktionswert zurück. Diese und die Methoden CreateForm<\/b> und DeleteControl <\/b>erläutern wir im Artikel Formulare per VBA erstellen <\/b>(www.access-im-unternehmen.de\/1332<\/b>).<\/p>\n Die Methode CreateForm<\/b> erstellt ein neues Formular und liefert einen Verweis auf das neu erstellte Formular als Funktionswert zurück.<\/p>\n Diese Methode erzeugt in einem Bericht einen neuen Gruppierungs- oder Sortierungsbereich.<\/p>\n Diese und die Methoden CreateReport<\/b>, CreateReportControl <\/b>und DeleteReportControl <\/b>erläutern wir im Artikel Berichte per VBA erstellen <\/b>(www.access-im-unternehmen.de\/1338<\/b>).<\/p>\n Diese Funktion erstellt einen neuen Bericht und liefert einen Verweis auf den neu erstellten Bericht als Funktionswert zurück.<\/p>\n Diese Funktion erstellt ein Steuerelement in einem Bericht und liefert einen Verweis auf das Steuerelement als Funktionswert zurück.<\/p>\n Das mit der Eigenschaft CurrentData <\/b>gelieferte Objekt liefert Eigenschaften mit verschiedenen Auflistungen:<\/p>\n Der folgende Code gibt die Anzahl der Abfragen und Tabellen aus und anschließend in einer For Each<\/b>-Schleife die Namen aller Einträge der Auflistung AllTables<\/b>:<\/p>\n <\/p>\n Achtung: Die beiden Eigenschaften CodeData <\/b>und CurrentData <\/b>liefern scheinbar die gleichen Ergebnisse. Das ist nur der Fall, wenn Sie in der aktuell geladenen Datenbank verwendet werden. Wenn Sie die beiden Eigenschaften in einer Add-In-Datenbank nutzen, die ja als Add-In für die Verwendung zusätzlich zu einer anderen Access-Datenbank genutzt wird, dann haben diese einen anderen Kontext:<\/p>\n Die Funktion CurrentDb <\/b>liefert einen Verweis auf das Database<\/b>-Objekt der aktuellen Datenbank zurück. Diese Funktion und das Database<\/b>-Objekt beschreiben wir ausführlich im Beitrag Die CurrentDb-Funktion und das Database-Objekt <\/b>(www.access-im-unternehmen.de\/1111<\/b>).<\/p>\n Die Eigenschaft CurrentObjectName <\/b>liefert den Namen des aktuell im Navigationsbereich markierten Elements. Wenn mehrere Elemente markiert sind, liefert die Eigenschaft den Namen des zuerst markierten Elements.<\/p>\n Diese Eigenschaft liefert, wenn ein Objekt im Datenbankfenster angezeigt wird, den Objekttyp des aktuell aktiven Objekts im Datenbankfenster. Ist kein Objekt im Datenbankfenster sichtbar, liefert die Eigenschaft den Objekttyp des aktuell im Navigationsbereich markierten Elements. Wenn mehrere Elemente markiert sind, liefert die Eigenschaft den Objekttyp des zuerst markierten Elements.<\/p>\n Es gibt die folgenden Objekttypen:<\/p>\n Mit der CurrentProject<\/b>-Eigenschaft holen Sie einen Verweis auf das Objekt des gleichnamigen Typs. Es hält einige Methoden und Eigenschaften bereit, die wir uns im Detail im Beitrag Die CurrentProject-Klasse <\/b>(www.access-im-unternehmen.de\/1340<\/b>) ansehen.<\/p>\n Gibt den Namen des aktuellen Benutzers der Access-Datenbank zurück, in der Regel Admin<\/b>. Diese Eigenschaft war früher wichtig, als Access noch das Sicherheitssystem mit der Benutzerverwaltung unterstützt hat.<\/p>\n Diese Funktion ermittelt einen Durchschnittswert. Sie finden eine detaillierte Beschreibung im Beitrag Domänenfunktionen <\/b>(www.access-im-unternehmen.de\/317)<\/p>\n Die DBEngine<\/b>-Eigenschaft liefert einen Verweis auf das gleichnamige Objekt. Dieses stellt Funktionen bereit, um Transaktionen durchzuführen, Datenbanken zu erstellen, Fehlerauflistungen abzufragen und vieles mehr. Im Beitrag Das DBEngine-Objekt <\/b>(www.access-im-unternehmen.de\/1341<\/b>) beschreiben wir dieses Objekt im Detail.<\/p>\n Diese Funktion ermittelt die Anzahl der Datensätze mit den angegebenen Kriterien. Sie finden eine detaillierte Beschreibung im Beitrag Domänenfunktionen <\/b>(www.access-im-unternehmen.de\/317)<\/p>\n Diese Methode löscht ein Steuerelement von einem Formular. Weitere Informationen weiter oben unter CreateControl<\/b>.<\/p>\n Diese Methode löscht ein Steuerelement von einem Bericht. Für weitere Informationen siehe weiter oben unter CreateGroupLevel<\/b>.<\/p>\n Diese Funktion ermittelt den Wert des angegebenen Feldes des ersten gefundenen Datensatzes mit den angegebenen Kriterien. Sie finden eine detaillierte Beschreibung im Beitrag Domänenfunktionen <\/b>(www.access-im-unternehmen.de\/317)<\/p>\n Diese Funktion ermittelt den Wert des angegebenen Feldes des letzten gefundenen Datensatzes mit den angegebenen Kriterien. Sie finden eine detaillierte Beschreibung im Beitrag Domänenfunktionen <\/b>(www.access-im-unternehmen.de\/317)<\/p>\n Diese Funktion ermittelt den Wert des angegebenen Feldes des ersten gefundenen Datensatzes mit den angegebenen Kriterien. Sie finden eine detaillierte Beschreibung im Beitrag Domänenfunktionen <\/b>(www.access-im-unternehmen.de\/317)<\/p>\n Diese Funktion ermittelt den maximalen Wert des angegebenen Feldes der gefundenen Datensätze mit den angegebenen Kriterien. Sie finden eine detaillierte Beschreibung im Beitrag Domänenfunktionen <\/b>(www.access-im-unternehmen.de\/317)<\/p>\n Diese Funktion ermittelt den minimalen Wert des angegebenen Feldes der gefundenen Datensätze mit den angegebenen Kriterien. Sie finden eine detaillierte Beschreibung im Beitrag Domänenfunktionen <\/b>(www.access-im-unternehmen.de\/317)<\/p>\n Das DoCmd<\/b>-Objekt stellt einige Methoden bereit, die üblicherweise über die Benutzeroberfläche oder als Makrobefehl bereitgestellt werden. Wir stellen diese Methoden ausführlich im Beitrag Das DoCmd-Objekt <\/b>vor (www.access-im-unternehmen.de\/1342<\/b>).<\/p>\n Diese Funktion ermittelt die Standardabweichung des angegebenen Feldes der gefundenen Datensätze mit den angegebenen Kriterien bezogen auf eine Stichprobe. Sie finden eine detaillierte Beschreibung im Beitrag Domänenfunktionen <\/b>(www.access-im-unternehmen.de\/317)<\/p>\n Diese Funktion ermittelt den maximalen Wert des angegebenen Feldes der gefundenen Datensätze mit den angegebenen Kriterien bezogen auf die Gesamtmenge. Sie finden eine detaillierte Beschreibung im Beitrag Domänenfunktionen <\/b>(www.access-im-unternehmen.de\/317)<\/p>\n Diese Funktion ermittelt die Summe der Feldwerte des angegebenen Feldes der gefundenen Datensätze mit den angegebenen Kriterien. Sie finden eine detaillierte Beschreibung im Beitrag Domänenfunktionen <\/b>(www.access-im-unternehmen.de\/317)<\/p>\n Diese Funktion ermittelt die Varianz des angegebenen Feldes der gefundenen Datensätze mit den angegebenen Kriterien bezogen auf eine Stichprobe. Sie finden eine detaillierte Beschreibung im Beitrag Domänenfunktionen <\/b>(www.access-im-unternehmen.de\/317)<\/p>\n Diese Funktion ermittelt die Varianz des angegebenen Feldes der gefundenen Datensätze mit den angegebenen Kriterien bezogen auf die Gesamtmenge. Sie finden eine detaillierte Beschreibung im Beitrag Domänenfunktionen <\/b>(www.access-im-unternehmen.de\/317)<\/p>\n Diese Methode gibt an, ob die Bildschirmanzeige aktualisiert werden soll. Der erste Parameter dieser Methode erwartet einen Integer-Wert, der angibt, ob die Aktualisierung der Bildschirmanzeige aktiviert (-1<\/b>) oder deaktiviert werden soll (0<\/b>). Der zweite Parameter verarbeitet eine Zeichenkette, die beim Aktivieren oder Deaktivieren in der Statusleiste ausgegeben wird.<\/p>\n Zum Deaktivieren verwenden Sie die folgende Anweisung:<\/p>\n Damit wird jegliche Aktivierung der Anzeige im Accessfenster deaktiviert. Zum Aktivieren verwenden Sie die folgende Anweisung:<\/p>\n Sie können diese Methode nutzen, um bei Aktionen, die ein starkes Flackern verursachen, die Bildschirmaktualisierung bis zum Abschluss der auslösenden Aktion zu deaktivieren.<\/p>\n Der Nutzen dieser Funktion, die Geldbeträge aus verschiedenen Währungen in Euro umrechnet, dürfte mittlerweile auch verschwindend gering sein. Falls Sie dennoch ein paar DM oder Gulden in der Schublade finden, können Sie mit EuroConvert herausfinden, wie viele Euro Sie dafür erhalten. Der Aufruf lautet beispielsweise:<\/p>\n Sie können aber auch Umrechnungen der übrigen Währungen vornehmen – etwa von Gulden nach DM. Dabei wird der bei der Euro-Einführung gültige Umrechnungskurs zugrunde gelegt.<\/p>\n Die Eval-Funktion ermöglicht das Auswerten von Ausdrücken, die eine Zeichenfolge oder eine Zahl als Ergebnis liefern. Das können einfache konstante Ausdrücke sein wie einfache Zeichenfolgen oder Zahlen oder berechnete Ausdrücke wie „1+2“, aber auch komplexere Formulierungen, die auch den Aufruf von Funktionen enthalten können. Auch das hier funktioniert und liefert die Quadratwurzel aus 4<\/b>:<\/p>\n Was Sie damit erledigen können, wie das funktioniert und welche Grenzen es gibt, beschreiben wir im Beitrag Die Eval-Funktion <\/b>(www.access-im-unternehmen.de\/1343<\/b>).<\/p>\n Die Methode ExportNavigationPane <\/b>exportiert die Definition des Navigationsbereichs in eine XML-Datei. Dazu geben Sie als Parameter einfach den Namen der zu erstellenden Datei an:<\/p>\n Damit speichern Sie beispielsweise Änderungen, die sich auf neue, benutzerdefinierte Gruppen beziehen oder Sortierungen beziehungsweise Filter.<\/p>\n Welche Möglichkeiten dies im Zusammenhang mit benutzerdefinierten Änderungen des Navigationsbereichs bietet, zeigen wir im Beitrag Der Navigationsbereich von Access <\/b>(www.access-im-unternehmen.de\/1344<\/b>).<\/p>\n Die Methode ExportXML <\/b>exportiert Objekte verschiedener Typen aus einer Access-Datenbank in XML-Dokumente. Diese Methode beschreiben wir ausführlich im Beitrag XML-Export mit VBA <\/b>(www.access-im-unternehmen.de\/1046<\/b>).<\/p>\n Diese Eigenschaft legt fest, wie Access reagieren soll, wenn VBA-Code noch nicht installierte Features nutzen will. Weder ist dieses Verhalten bei mir bisher aufgetreten, noch sind Hinweise darauf im Web zu finden. Zur Vollständigkeit dennoch die drei möglichen Einstellungen:<\/p>\n Diese Eigenschaft liefert das FileDialog<\/b>-Objekt. Mit diesem können Sie Dateidialoge anzeigen. Diese nutzen Sie zur Dateiauswahl (msoFileDialogPicker<\/b>), zur Verzeichnisauswahl (msoFileDialogFolderPicker<\/b>), zum Öffnen (msoFileDialogOpen<\/b>) oder zum Angeben des Pfades zum Speichern einer Datei (msoFileDialogSaveAs<\/b>). Die Möglichkeiten dieses Objekts zeigen wir in einem weiteren Beitrag namens Dateien und Verzeichnisse auswählen mit FileDialog <\/b>(www.access-im-unternehmen.de\/1345<\/b>).<\/p>\n Die FollowHyperlink-Methode ermöglicht das Öffnen von Internetseiten per VBA. Als Argument geben Sie die gewünschte Internetseite inklusive Angabe des Protokolls, zum Beispiel https:\/\/www.access-im-unternehmen.de<\/b>. Der Aufruf lautet wie folgt:<\/p>\n Die Forms<\/b>-Auflistung ermöglicht den Zugriff auf alle aktuell geöffneten Formulare. Sie können beispielsweise mit einer Variablen des Typs Form <\/b>und einer For Each<\/b>-Schleife alle aktuell geöffneten Formulare durchlaufen und deren Name im Direktbereich des VBA-Editors ausgeben:<\/p>\n Praktisch ist, dass dies auch die nicht sichtbaren Formulare ausgibt. Zur Unterscheidung haben wir hier noch die Eigenschaft Visible <\/b>zur Ausgabe hinzugefügt.<\/p>\n Mit der Funktion GetHiddenAttribute <\/b>ermitteln Sie, ob ein Access-Objekt als versteckt gekennzeichnet ist. Das bedeutet, dass das entsprechende Objekt, beispielsweise eine Tabelle, im Navigationsbereich nicht mehr sichtbar ist (außer, der Benutzer aktiviert die Option Ausgeblendete Objekte anzeigen <\/b>in den Optionen des Navigationsbereichs). Das ist zum Beispiel bei den Systemtabellen der Fall. Die folgenden beiden Anweisungen liefern einmal den Wert True <\/b>und einmal den Wert False<\/b>:<\/p>\n Diesen Zustand können Sie mit der Methode SetHidden-Attribut <\/b>einstellen (siehe weiter unten).<\/p>\n Ermittelt den Wert der per Parameter angegebenen Option:<\/p>\n Welchen Parameter Sie für die einzelnen Optionen des Optionendialogs verwenden müssen, haben wir im Beitrag Optionen per VBA für Access 2019 <\/b>(www.access-im-unternehmen.de\/1320<\/b>) detailliert für Sie aufgeführt.<\/p>\n Diese Methode wandelt einen GUID-Wert beispielsweise aus einem Feld mit dem Datentyp Replikations-ID <\/b>in ein Array mit 16 Elementen um, welche die einzelnen Werte in der GUID enthalten – allerdings nicht in der richtigen Reihenfolge.<\/p>\n Die Funktion HtmlEncode <\/b>wandelt die in HTML reservierten Zeichen wie &<\/b>, <<\/b>, ><\/b> und so weiter innerhalb einer Zeichenfolge in die entsprechenden HTML-codierten Zeichen um. Aus & <\/b>wird &<\/b>, aus < <\/b>wird < <\/b>oder aus > <\/b>wird ><\/b>. Beispiel:<\/p>\n Die Eigenschaft hWndAccessApp<\/b> liefert das Handle des aktuellen Accessfensters, also die Nummer, mit der Windows das Fenster der Access-Anwendung verwaltet:<\/p>\n Dieser Wert ist für manche API-Funktionen interessant – beispielsweise, wenn Sie die Position oder die Größe des Accessfensters bestimmen wollen.<\/p>\n Mit der Funktion HyperlinkPart<\/b> können Sie verschiedene Elemente eines in einem Hyperlink<\/b>-Feld gespeicherten Hyperlinks ermitteln. Dazu übergeben Sie als ersten Parameter einen Verweis auf das Feld mit dem Hyperlink und als zweiten den Parameter für den gesuchten Wert.<\/p>\n Wenn Sie in einer Tabelle ein Feld des Datentyps Link <\/b>anlegen und in einem Formular ein auf diesem Feld basierendes Textfeld erstellen, können Sie für dieses Feld im Kontextmenü den Eintrag Link|Hyperlink bearbeiten… <\/b>aufrufen. Dies öffnet den Dialog aus Bild 6. Den Wert aus Anzuzeigender Text <\/b>und den eigentlichen Hyperlink ermitteln wir wie folgt:<\/p>\n Bild 6: Dialog zum Bearbeiten von Hyperlinks<\/span><\/b><\/p>\n Diese Methode importiert die als Parameter angegebene Datei mit der Definition des Navigationsbereichs. Neben dem ersten Parameter, der den Namen der zu importierenden XML-Datei enthält, gibt es noch einen zweiten Parameter namens fAppendOnly<\/b>. Mit diesem geben Sie an, ob in der Datei angegebene Kategorien zu eventuell bereits vorhandenen Kategorien hinzugefügt werden oder ob Sie diese überschreiben wollen. Zum Hinzufügen erhält fAppendOnly <\/b>den Wert True<\/b>, sonst False<\/b>.<\/p>\n Mit dieser Methode können Sie Daten, die Sie mit ExportXML<\/b> exportiert haben, in die gleiche oder eine andere Access-Datenbank importieren. Die Methode erwartet nur zwei Parameter:<\/p>\nAccessError<\/h2>\n
![\"Ermitteln](\"..\/fileadmin\/_temp_\/2021_06\/pic_1334_002.png\")
<\/p>\nAddToFavorites<\/h2>\n
Assistance<\/h2>\n
![\"Methoden](\"..\/fileadmin\/_temp_\/2021_06\/pic_1334_003.png\")
<\/p>\nApplication.Assistance.SearchHelp \"Assistance\"<\/pre>\n
AutoCorrect<\/h2>\n
Application.AutoCorrect.DisplayAutoCorrectOptions = False<\/span><\/pre>\nAutomationSecurity<\/h2>\n
\n
BrokenReference<\/h2>\n
Public Sub <\/span>Test_BrokenReference()\r\n Dim <\/span>objReference As <\/span>Access.Reference\r\n If <\/span>Application.BrokenReference Then<\/span>\r\n MsgBox<\/span> \"Es gibt kaputte Verweise.\"\r\n For Each objReference In Application.References\r\n If <\/span>objReference.IsBroken Then<\/span>\r\n Debug.Print<\/span> objReference.Name\r\n End If<\/span>\r\n Next<\/span> objReference\r\n Else<\/span>\r\n MsgBox<\/span> \"Alle Verweise in Ordnung.\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nBuild<\/h2>\n
Application.Build\r\n 14228 <\/pre>\n
BuildCriteria<\/h2>\n
\n
Debug.Print<\/span> BuildCriteria(\"Vorname\", dbText, \"André\")\r\nVorname=\"André\"\r\nDebug.Print<\/span> BuildCriteria(\"Vorname\", dbText, \"A*\")\r\nVorname Like \"A*\"\r\nDebug.Print<\/span> BuildCriteria(\"Menge\", dbLong, \"1\")\r\nMenge=1\r\nDebug.Print<\/span> BuildCriteria(\"Geburtsdatum\", dbDate, Date)\r\nGeburtsdatum=#10\/30\/2021#\r\nDebug.Print<\/span> BuildCriteria(\"Startzeit\", dbDate, Now)\r\nStartzeit=#10\/30\/2021 10:13:4#\r\nDebug.Print<\/span> BuildCriteria(\"Einzelpreis\", dbCurrency, \"10,50\")\r\nEinzelpreis=10.5\r\nDebug.Print<\/span> BuildCriteria(\"Aktiv\", dbBoolean, \"Falsch\")\r\nAktiv=False<\/span><\/pre>\nCloseCurrentDatabase<\/h2>\n
Application.CloseCurrentDatabase<\/pre>\n
objAccess.Application.CloseCurrentDatabase<\/pre>\n
CodeContextObject<\/h2>\n
Private Sub <\/span>cmdFehlerAusloesen_Click()\r\n On Error Resume Next<\/span>\r\n Debug.Print<\/span> 1 \/ 0\r\n If <\/span>Not<\/span> Err.Number = 0 Then<\/span>\r\n Call<\/span> ErrorHandler\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>ErrorHandler()\r\n MsgBox<\/span> \"Fehler in ''\" & Application.CodeContextObject.Name & \"'' (\" & TypeName(Application.CodeContextObject) & \")\"\r\nEnd Sub<\/span><\/pre>\n![\"Meldung](\"..\/fileadmin\/_temp_\/2021_06\/pic_1334_004.png\")
<\/p>\nCodeData<\/h2>\n
CodeDb<\/h2>\n
CodeProject<\/h2>\n
ColumnHistory<\/h2>\n
![\"Memofeld](\"..\/fileadmin\/_temp_\/2021_06\/pic_1334_005.png\")
<\/p>\nDebug.Print<\/span> Application.ColumnHistory(\"tblMemofelder\", \"Memofeld\", \"ID = 1\")<\/pre>\n[Version: 30.10.2021 11:27:22 ] Erste Zeile.\r\n[Version: 30.10.2021 11:27:43 ] Erste Zeile.\r\nZweite Zeile.<\/pre>\n
COMAddIns<\/h2>\n
Public Sub <\/span>Test_COMAddIns()\r\n Dim <\/span>objCOMAddIn As <\/span>COMAddIn\r\n For Each objCOMAddIn In Application.COMAddIns\r\n Debug.Print<\/span> objCOMAddIn.Description, objCOMAddIn.ProgId\r\n Next<\/span> objCOMAddIn\r\nEnd Sub<\/span><\/pre>\nCommandBars<\/h2>\n
Public Sub <\/span>Test_CommandBars()\r\n Dim <\/span>cbr As <\/span>CommandBar\r\n Debug.Print<\/span> \"Anzahl CommandBars:\" & Application.CommandBars.Count\r\n For Each cbr In Application.CommandBars\r\n If <\/span>cbr.Type = msoBarTypePopup Then<\/span>\r\n Debug.Print<\/span> cbr.Name\r\n End If<\/span>\r\n Next<\/span> cbr\r\nEnd Sub<\/span><\/pre>\nCompactRepair<\/h2>\n
Application.CompactRepair CurrentProject.Path & \"\\Beispiel.accdb\", CurrentProject.Path & \"\\Beispiel_Komprimiert.accdb\", True<\/span><\/pre>\nConvertAccessProject<\/h2>\n
\n
CreateAccessProject<\/h2>\n
Application.CreateAccessProject CurrentProject.Path & \"\\Beispiel.adp\"<\/pre>\n
CreateAdditionalData<\/h2>\n
CreateControl<\/h2>\n
CreateForm<\/h2>\n
CreateGroupLevel<\/h2>\n
CreateReport<\/h2>\n
CreateReportControl<\/h2>\n
CurrentData<\/h2>\n
\n
Public Sub <\/span>Test_CurrentData()\r\n Dim <\/span>objObject As <\/span>AccessObject\r\n Debug.Print<\/span> Application.CurrentData.AllQueries.Count\r\n Debug.Print<\/span> Application.CurrentData.AllTables.Count\r\n For Each objObject In Application.CurrentData.AllTables\r\n Debug.Print<\/span> objObject.FullName\r\n Next<\/span> objObject\r\nEnd Sub<\/span><\/pre>\n\n
CurrentDb<\/h2>\n
CurrentObjectName<\/h2>\n
CurrentObjectType<\/h2>\n
\n
CurrentProject<\/h2>\n
CurrentUser<\/h2>\n
DAvg<\/h2>\n
DBEngine<\/h2>\n
DCount<\/h2>\n
DeleteControl<\/h2>\n
DeleteReportControl<\/h2>\n
DFirst<\/h2>\n
DLast<\/h2>\n
DLookup<\/h2>\n
DMax<\/h2>\n
DMin<\/h2>\n
DoCmd<\/h2>\n
DStDev<\/h2>\n
DStDevP<\/h2>\n
DSum<\/h2>\n
DVar<\/h2>\n
DVarP<\/h2>\n
Echo<\/h2>\n
Application.Echo False, \"Bildschirmaktualisierung deaktiviert.\"<\/pre>\n
Application.Echo True, \"Bildschirmaktualisierung aktiviert.\"<\/pre>\n
EuroConvert<\/h2>\n
Debug.Print<\/span> Application.EuroConvert(100, \"DEM\", \"EUR\")<\/pre>\nEval<\/h2>\n
Debug.Print<\/span> Application.Eval(\"Sqr(4)\")<\/pre>\nExportNavigationPane<\/h2>\n
Application.ExportNavigationPane CurrentProject.Path & \"\\Navpane.xml\"<\/pre>\n
ExportXML<\/h2>\n
FeatureInstall<\/h2>\n
\n
FileDialog<\/h2>\n
FollowHyperlink<\/h2>\n
Application.FollowHyperlink \"https:\/\/www.access-im-unternehmen.de\"<\/pre>\n
Forms<\/h2>\n
Dim <\/span>frm As <\/span>Form\r\nFor Each frm In Application.Forms\r\n Debug.Print<\/span> frm.Name, frm.Visible\r\nNext<\/span> frm<\/pre>\nGetHiddenAttribute<\/h2>\n
Debug.Print<\/span> Application.GetHiddenAttribute(acTable, \"tblMemofelder\")\r\nDebug.Print<\/span> Application.GetHiddenAttribute(acTable, \"MSysObjects\")<\/pre>\nGetOption<\/h2>\n
Debug.Print<\/span> Application.GetOption(\"Show Hidden Objects\")<\/pre>\nGUIDFromString<\/h2>\n
HtmlEncode<\/h2>\n
Debug.Print<\/span> Application.HtmlEncode( \"Code mit <HTML>-Zeichen\")\r\nCode mit <HTML>-Zeichen<\/pre>\nhWndAccessApp<\/h2>\n
Debug.Print<\/span> Application.hWndAccessApp\r\n1448874<\/pre>\nHyperlinkPart<\/h2>\n
![\"Dialog](\"..\/fileadmin\/_temp_\/2021_06\/pic_1334_006.png\")
<\/p>\nDim <\/span>db As <\/span>DAO.Database\r\nDim <\/span>rst As <\/span>DAO.Recordset\r\nSet<\/span> db = CurrentDb\r\nSet<\/span> rst = db.OpenRecordset(\"tblHyperlinks\", dbOpenDynaset)\r\nDebug.Print<\/span> \"acAddress: \" & Application.HyperlinkPart( rst!Hyperlinkfeld, acAddress)\r\nDebug.Print<\/span> \"acDisplayText: \" & Application.HyperlinkPart( rst!Hyperlinkfeld, acDisplayText)<\/pre>\nImportNavigationPane<\/h2>\n
ImportXML<\/h2>\n
\n