<\/p>\n
Lernen Sie die versteckten Funktionen des WizHook-Objekts kennen.<\/p>\n
VBA<\/p>\n
Access 2000 und höher<\/p>\n
wizhook_demo.mdb<\/p>\n
Sascha Trowitzsch, Berlin<\/b><\/p>\n
Der Funktionsumfang von Access ist relativ beschränkt – zumindest wenn man nur die Bordmittel betrachtet. Mit den zahlreichen externen Bibliotheken und ActiveX-Steuerelementen lässt sich Access allerdings fast beliebig erweitern. Manchmal muss man aber gar nicht in die Ferne schweifen: Das WizHook-Objekt liefert einige nützliche Funktionen – allerdings muss man die erst einmal finden.<\/b><\/p>\n
Der Objektkatalog von VBA – zu erreichen über den VBA-Editor und das Menü Ansicht\/Objektkatalog oder die Taste F2 – listet alle Bibliotheken eines VBA-Projekts mitsamt ihren Klassen, Eigenschaften und Methoden auf.<\/p>\n
Allerdings können Typbibliotheken einzelne Elemente als „hidden“ deklarieren – sie erscheinen dann zunächst nicht im Objektkatalog. Im Kontextmenü des Katalogs gibt es jedoch einen Eintrag, der es erlaubt, auch diese versteckten Objekte und Methoden sichtbar werden zu lassen (siehe Bild 1).<\/p>\n
![](\"..\/fileadmin\/_temp_\/{A7555BBB-9FE2-4328-8A45-7ADDDB238795}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Anzeigen verborgener Elemente im Objektkatalog<\/span><\/b><\/p>\n Die versteckten Funktionen werden nach Aktivierung dieses Eintrags in grauer Schrift angezeigt – ein erster Blick in den Objektkatalog offenbart für die Access-Bibliothek eine ganze Menge solcher Einträge. Allerdings gibt es keine Dokumentation zu diesen versteckten Klassen und Methoden, also heißt es: „Selbst ist der Entwickler!“ Sofern das Web oder Fachbeiträge – wie dieser – keinen alternativen Zugang zu Informationen über die versteckten Elemente bieten, bleibt nur der experimentelle Weg.<\/p>\n Microsoft versteckt diese Elemente nicht etwa, weil sie fehlerhaft sind, sondern weil diese Elemente sich gegebenenfalls in neueren Versionen von Access in Funktion oder Syntax ändern. Datenbanken, die diese undokumentierten Elemente einsetzen, würden dann eventuell mit Folgeversionen von Access nicht mehr stabil laufen. Bisher arbeiten jedoch noch alle betroffenen Funktionen auch in Folgeversionen von Access reibungslos.<\/p>\n Unter den „ausgegrauten“ Klassen auf der linken Seite des Objektkatalogs findet sich auch das WizHook-Objekt, das eine stattliche Anzahl Methoden bereithält.<\/p>\n Lange Zeit hielt sich in Newsgroups die Mär, dass diese Klasse nur ein Dummy sei und die Methoden allesamt ohne Funktion seien. Im Jahre 2001 hat schließlich ein Entwickler enthüllt, dass ein spezieller Code gesetzt werden muss, um die Methoden freizuschalten.<\/p>\n Es ist nicht bekannt, ob dieser Code experimentell ermittelt oder durch eine undichte Stelle bei Microsoft nach außen gelangt ist.<\/p>\n Der Schlüssel zu den WizHook-Funktionen ist die Eigenschaft Key der Klasse. Die folgende Zeile schaltet die Funktionen des WizHook-Objekts frei:<\/p>\n Das Setzen dieses Objekts schaltet die WizHook-Elemente für die Dauer einer Access-Sitzung frei. Da Variablen beim Auftreten nicht behandelter VBA-Fehler jedoch ihren Inhalt verlieren können, hat es sich bewährt, diesen Key vor jedem Aufruf einer Funktion zu setzen – am besten am Anfang einer Prozedur.<\/p>\n Die folgenden Abschnitte erläutern eine Auswahl der interessantesten WizHook-Funktionen, mit denen sich täglich vorkommende Aufgaben leicht lösen lassen (es gibt allerdings noch eine ganze Reihe Methoden, deren Funktionsweise noch nicht hinreichend erforscht wurde). Viele WizHook-Funktionen haben übrigens mit Makros zu tun. Diesen Teil behandelt Access im Unternehmen in einer der folgenden Ausgaben.<\/p>\n Die Funktionen sind in der Beispieldatenbank wizhook_demo.mdb im Modul mdlWizhook zusammengefasst und lassen sich zum größten Teil vom Formular frmWizhook aus aufrufen. Der Name „WizHook“ ist wohl auf die Entstehung dieser Bibliothek zurückzuführen: Die Assistenten von Access 97 (Wizards), die selbst ebenfalls in VBA programmiert sind, enthalten ähnliche Funktionen, die aber in größerem Umfang API-Aufrufe auf die msaccess.exe selbst absetzen.<\/p>\n Microsoft hat sich bei Access 2000 dazu entschlossen, viele dieser API-Aufrufe in COM-Methoden umzuwandeln und in das Objektmodell von Access zu übernehmen.<\/p>\n Eine häufig nachgefragte Funktion ist das öffnen von Dialogen zur Datei- oder Verzeichnisauswahl. Access 2000 hat dies nicht im Angebot und das FileDialog-Objekt (ab Access 2002) ist etwas umständlich zu programmieren.<\/p>\n Man findet daher meist API-basierte Lösungen, die ein umfangreiches Modul benötigen. Dabei lassen sich die Dialoge mit der WizHook-Methode GetFileName mit nur einer einzigen Code-Zeile realisieren: <\/p>\n Die Parameter im Einzelnen:<\/p>\n Als Fensterhandle können Sie ohne Bedenken den Wert 0 angeben, da dieser Parameter keine erkennbare Funktion besitzt.<\/p>\n Die Bezeichnung Microsoft Access können Sie genauso gut durch eine andere ersetzen.<\/p>\n Quellcode 1: Mehrere Dateinamen bei Mehrfachauswahl im Dateiauswahldialog erhalten<\/b><\/p>\n Für Titel setzen Sie einen String ein, der dann in der Titelzeile des Auswahldialogs erscheinen wird.<\/p>\n öffnenButtonText ist ein String, der die Beschriftung des Auswahl-Buttons im Dialog bestimmt. Hier dürfte zumeist „öffnen“ oder „Auswählen“ zum Einsatz kommen.<\/p>\n Ergebnisvariable ist der wichtigste Parameter, denn darin legt der Dialog beim Schließen das Ergebnis ab. Die Variable sollte vom Datentyp String sein.<\/p>\n Startverzeichnis ist ein String mit Pfadangabe. Dieses Verzeichnis wird beim öffnen des Dialogs voreingestellt.<\/p>\n Dateiendungsfilter ist ein String, der eine Verkettung von Filtern zulässt, die dann in der Auswahl-Combobox des Dialogs enthalten sind. Ein einzelner Filter in diesem String baut sich dabei so auf:<\/p>\n Beispiel:<\/p>\n Wichtig ist die Klammer um die Dateiendungen, die Access zum Ermitteln der Datei benötigt. Die einzelnen Endungen können Sie durch Semikolons oder Kommas trennen. Soll die Combobox des Dialogs mehrere Einträge zur Auswahl bereithalten, so müssen die einzelnen Filterstrings durch das Pipe-Zeichen (|) getrennt werden:<\/p>\n Welcher Filter dann beim öffnen des Dialogs voreingestellt sein wird, gibt der Parameter FilterIndex an – der Wert 0 entspricht dabei dem ersten Eintrag. ErscheinungsbildIndex ist eine Zahl (Datentyp: Long), die angibt, wie der Dialog aussehen soll: Ein Wert kleiner oder gleich 0 liefert eine „Shellview“ in Detailansicht (Liste); bei 1 oder 2 ist die Dateivorschau angeschaltet; bei 3 erhalten Sie eine „Shellview“ als Liste („Kleine Symbole“).<\/p>\n <\/p>\n Dialogstil ist eine Summe von Flags, die das Verhalten und das Aussehen des Dialogs bestimmen. Es würde hier zu weit führen, alle Flag-Kombinationen zu beschreiben. Normalerweise verwendet man die Zahl 64. Der Wert 72 erlaubt die Mehrfachauswahl von Dateien.<\/p>\n Beim Klick auf die Abbrechen-Schaltfläche des Dialogs liefert die Funktion GetFileName einen Wert kleiner 0 (beispielsweise -302). Bei Auswahl mindestens einer Datei liefert die Funktion den Wert 0 zurück. <\/p>\n Beim Einsatz der Mehrfachauswahl trennt die Funktion die in der Ergebnisvariablen enthaltenen Dateinamen durch das Tabulator-Zeichen (Chr(9)). Trennen kann man diese etwa mit der VBA-Funktion Split (siehe Quellcode 1).<\/p>\n Sie sehen: Die WizHook-Funktion GetFileName ist eine sehr flexible Möglichkeit zur Anzeige von Dateiauswahldialogen. So flexibel, dass man sie auch für einen Verzeichnisauswahldialog missbrauchen kann: Dazu muss lediglich der Parameter ErscheinungsbildIndex auf 3 gesetzt werden und der Parameter Dialogstil auf 96. Das bewirkt, dass keine Dateien mehr im Dialog angezeigt werden, sondern nur noch Verzeichnisse. Das Aussehen dieses Dialogs weicht zwar vom entsprechenden Standarddialog von Windows ab, aber wenn man sich dadurch ellenlangen API-Code ersparen kann …<\/p>\n Schließlich gibt es noch eine spezielle WizHook-Methode, um Bilddateien auszuwählen (in einer Zeile):<\/p>\n Kürzer geht“s nicht! Der damit aufgerufene Auswahl-Dialog entspricht im Erscheinungsbild dem üblichen öffnen-Dialog. Die Auswahl-Combobox enthält aber bereits eine Reihe Filter für Grafikdateien. Nachteilig ist nur, dass die Vorschau im Dialog nicht voreinstellbar ist.<\/p>\n Wer weiß, wie viele Entwickler schon eine Hilfsfunktion zum Trennen von Verzeichnis und Dateiname bei Pfadangaben programmiert haben – dabei liefert Access diese Funktion und weitere frei Haus. Sehen Sie einfach selbst!<\/p>\n Kaum eine Datenbank kommt ohne Funktionen zum Extrahieren einzelner Pfadteile aus vollen Dateinamen aus. Mal ist das Verzeichnis abzuleiten, mal die Endung und manchmal der Laufwerksbuchstabe. Statt für jede dieser Operationen eine eigene Routine in ein Modul zu schreiben, kann man sich auch mit einer einzigen Zeile behelfen – der WizHook-Methode SplitPath:<\/p>\n In VollerDateipfad übergibt man der Methode den kompletten Dateinamen wie beispielsweise c:\\windows\\system32\\advapi.dll.<\/p>\n Die mit dem Präfix „Ergebnis“ versehenen Parameter sind vorher deklarierte Ergebnisvariablen vom Typ String. Der obige Beispielaufruf würde zur Rückgabe der folgenden Werte dienen:<\/p>\n Die Methode funktioniert auch mit UNC-Pfaden, wobei die Funktion dann als Laufwerk einen Leerstring zurückliefert.<\/p>\n Mit der Methode FileExists kann man überprüfen, ob eine im Parameter übergebene Datei existiert oder nicht:<\/p>\n Sie gibt den Wert True zurück, falls die Datei vorhanden ist. Man könnte das auch mit der VBA-Funktion Dir realisieren.<\/p>\n Die Wizhook-Methode hat aber den Vorteil, dass grundsätzlich Fehlermeldungen unterbleiben, wenn beispielsweise unrealistische Laufwerksbuchstaben übergeben werden, die bei der Dir-Funktion zum Auslösen eines Fehlers führen können.<\/p>\n Das Sortieren von Textlisten ist zweifellos eine häufig anzutreffende Aufgabe in Datenbanken.<\/p>\n Dies geschieht im Allgemeinen jedoch im Zusammenhang mit Abfragen, Tabellen und Recordsets. Seltener hat man Textlisten in Form von Arrays vor sich.<\/p>\n Sollte das aber doch der Fall sein und eine alphabetische Sortierung gefordert sein, steht man oft vor dem Problem: Wie geht das denn vonstatten<\/p>\n Es gibt allerlei Algorithmen von Bubble- über Heap- zu Quicksort, um dies zu bewerkstelligen. Und alle benötigen eine ausgewachsene Prozedur. Da trifft es sich gut, dass das WizHook-Objekt eine Sortiermethode SortStringArray bereithält, die die Aufgabe wiederum in einer Zeile erledigt:<\/p>\n Quellcode 2: Dateien per Dateidialog auswählen, sortieren und als String zurückgeben in wenigen Zeilen<\/b><\/p>\n Dieser Aufruf sortiert das (eindimensionale) String-Array MyStringArray in aufsteigender Reihenfolge.<\/p>\n Bild 2: Sortieren der Wörter eines Textes mit der WizHook.SortStringArray-Methode<\/span><\/b><\/p>\n Ein Beispiel für den praktischen Einsatz der Methode zeigt Quellcode 2.<\/p>\n Hier wird zunächst mit der WizHook-Funktion GetFileName ein Dateiauswahldialog angezeigt, der die Mehrfachauswahl von Dateien erlaubt.<\/p>\n Das Ergebnis ist ein durch das Tabulator-Zeichen separierter String. Dieser wird zuerst mit Split in ein String-Array überführt, das anschließend mittels SortStringArray sortiert wird. Das Array wird dann wieder zu einem String zusammengesetzt, wobei als Trennzeichen das Semikolon verwendet wird. <\/p>\n Dieser Ergebnis-String kann dann zum Beispiel zum Befüllen einer Listbox im Modus „Werteliste“ verwendet werden, um die ausgewählten Dateien alphabetisch sortiert darzustellen.<\/p>\n In der Demodatenbank findet sich ein weiteres, eher spielerisches Beispiel für den Einsatz der Methode: Im Formular frmWizSort können Sie in ein Textfeld eine Geschichte oder sonstigen Text eingeben.<\/p>\n Während des Schreibens wird der Text fortlaufend automatisch untersucht und in einzelne Wörter getrennt, die in der rechten Listbox erscheinen (siehe Bild 2). Dazu kommt im Formular übrigens eine benutzerdefinierte Funktion namens SplitMult zur Anwendung, die sicher auch für andere Zwecke nützlich ist.<\/p>\n Ein Klick auf die Schaltfläche Nun Wörter sortieren sortiert die in der Liste enthaltenen Wörter.<\/p>\n Zuweilen kommt es vor, dass man gerne wüsste, wie breit und hoch sich ein Text in einer bestimmten Schriftart auf einem Formular, beispielsweise in einer Textbox oder in einem Label, abbilden wird, etwa, um deren Abmessungen entsprechend anzupassen.<\/p>\n In Access-Berichten gibt es zu diesem Zweck die Funktionen Report.TextWidth und Report.TextHeight. Für Formulare und andere Objekte sucht man das vergebens. Hier hilft wieder WizHook, das zudem mit der Methode TwipsFromFont noch mehr Einstellmöglichkeiten vorhält als seine Kollegen aus dem Report-Objekt:<\/p>\n <\/b><\/p>\n Bild 3: Das Formular frmWizHook enthält einige Beispiele für den Einsatz der Methoden der WizHook-Klasse.<\/span><\/b><\/p>\n Die Parameter sind weitgehend selbsterklärend. Breite und Höhe des übergebenen Textes, der auch Zeilenumbrüche enthalten darf, speichert die Methode in den Variablen ErgebnisHöhe und ErgebnisBreite in der Einheit Twips.<\/p>\n Schriftbreite ist der Parameter für die Strichstärke der Schriftart. Für Normal ist hier 400 einzusetzen, für Fett 700. Zeichenzahl und ZeichenMaximal lassen Sie unberücksichtigt und setzen beide Werte auf 0. <\/p>\n Im Formular frmWizhook der Beispieldatenbank wird die Methode demonstriert (siehe Bild 3):<\/p>\n In ein Textfeld kann beliebiger Text eingegeben werden. Mit einem Klick auf die Schaltfläche Abmessungen eines Textes wird dann die Ausdehnung dieses Textes gemäß der Schriftarteinstellungen des Feldes ermittelt und die Textbox damit in ihrer Größe exakt angepasst.<\/p>\n Man kann diese Funktion also zum Beispiel dazu einsetzen, die optimale Breite von Spalten einer Tabelle (DataSheet) aus dem Inhalt der Datensätze zu errechnen und anzupassen (ColumnWidth).<\/p>\n Ein entsprechendes Beispiel im Formular frmWizhook zeigt sich, wenn Sie den Button Spaltenbreite anpassen anklicken.<\/p>\n Ein anderes Beispiel der Demodatenbank befindet sich im Modul mdlFontWidth. Dort können Sie die Prozedur EnumFonts aufrufen. Sie ermittelt für alle im System installierten Schriften die Ausdehnung eines Beispielsatzes in unterschiedlichen Schriftgrößen und schreibt die Ergebnisse in die Tabelle tblFontExtents. Die Kreuztabellenabfrage qryFontWidth gibt das Ergebnis ansprechend aus.<\/p>\n Anhand dieser Abfrage lässt sich dann etwa herausfinden, welche Schriften je nach Schriftgröße am kleinsten oder größten „laufen“. <\/p>\n Die folgenden Methoden sollten zumindest kurz vorgestellt werden:<\/p>\n Die bisher erwähnten WizHook-Methoden funktionieren in allen Access-Versionen seit Access 2000.<\/p>\n Unter Access XP und Access 2003 wurden einige neue Methoden eingeführt:<\/p>\n Jeweils drei aufeinander folgende Elemente identifizieren ein Feld. Das erste Feld hat die Bezeichnung „ID“. Der Datentyp ist 4. Diese Zahl entspricht dem Datentyp Long. Die Bedeutung dieser Zahlen können Sie den Enumerationskonstanten DataTypeEnum der DAO-Bibliothek im Objektkatalog entnehmen. Die nächste Zahl (4) gibt die Größe dieses Feldes an – ein Long-Wert belegt beispielsweise 4 Bytes. Sinn macht diese Angabe eigentlich nur für Textfelder; hier gibt die Funktion die maximale Anzahl Zeichen zurück.<\/p>\n Mit den Methoden der versteckten WizHook-Klasse von Access können Sie sich die Arbeit erleichtern und einige häufig gebrauchte ausprogrammierte Standardroutinen streichen. Gerade die Möglichkeiten zum Aufruf von Auswahldialogen sparen das eine oder andere Modul ein. Auch Methoden wie TwipsFromFont lassen sich sonst nur mit aufwändigem API-Code umsetzen.<\/p>\n Der zweite Teil dieser Beitragsreihe über die WizHook-Klasse in einer der nächsten Ausgaben von Access im Unternehmen zeigt, wie Sie per VBA Makros analysieren und erstellen können. Immerhin fehlt Access eine Möglichkeit, die enthaltenen Makros per Code aufzulisten – mit den übrigen Datenbankobjekten ist dies kein Problem. Die Dokumentation einer Datenbank, die Makros enthält, bliebe zum Beispiel ohne Informationen zu den Makros unvollständig.<\/p>\n","protected":false},"excerpt":{"rendered":" Der Funktionsumfang von Access ist relativ beschränkt – zumindest wenn man nur die Bordmittel betrachtet. Mit den zahlreichen externen Bibliotheken und ActiveX-Steuerelementen lässt sich Access allerdings fast beliebig erweitern. Manchmal muss man aber gar nicht in die Ferne schweifen: Das WizHook-Objekt liefert einige nützliche Funktionen – allerdings muss man die erst einmal finden.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662006,66032006,44000025],"tags":[],"class_list":["post-55000358","post","type-post","status-publish","format-standard","hentry","category-662006","category-66032006","category-VBA_und_Programmiertechniken"],"yoast_head":"\nWizHook.Key = 51488399 ''magic number<\/pre>\n
WizHook.GetFileName(FensterHandle, _ \"Microsoft Access\", _ \"Titel\", _\r\n \"öffnenButtonText\", _ Ergebnisvariable, _ \"c:\\Startverzeichnis\", _\r\n \"Dateiendungsfilter\", _\r\n FilterIndex, _\r\n ErscheinungsbildIndex, _\r\n Dialogstil, True)<\/pre>\n
Dim arrFiles() As String\r\nDim sResult As String\r\nDim ret As Long, i As Long\r\nWizHook.Key = 51488399\r\nret = Wizhook.GetFileName(0&, \"\", \"\", \"öffnen\", sResult, \"\", _ \"(*.*)\", 0, 0, 72, True)\r\nIf ret = 0 Then\r\n arrFiles = Split(sResult, vbTab)\r\n For i = 0 To Ubound(arrFiles)\r\n Debug.Print arrFiles(i)\r\n Next i\r\nEnd If<\/pre>\n
\"Filterbezeichnung (*.Endung1;*.Endung2)\"<\/pre>\n
\"Grafikdateien (*.bmp;*.gif;*.jpg)\"<\/pre>\n
\"Word-Dokumente (*.doc,*.rtf)|Excel-Dokumente (*.xls)\"<\/pre>\n
WizHook.OpenPictureFile Ergebnisvariable, 0<\/pre>\n
Dateinamen splitten<\/h3>\n
WizHook.SplitPath VollerDateipfad, _ ErgebnisLaufwerk, _\r\n ErgebnisVerzeichnis, _\r\n ErgebnisDateiname, _ ErgebnisDateiendung<\/pre>\n
ErgebnisLaufwerk = \"c:\"\r\nErgebnisVerzeichnis = \\windows\\system32\\\"\r\nErgebnisDateiname = \"advapi\"\r\nErgebnisDateiendung = \".dll\"<\/pre>\n
Vorhandensein einer Datei prüfen<\/h3>\n
WizHook.FileExists(\"c:\\dateiname.xyz\")<\/pre>\n
WizHook.SortStringArray MyStringArray<\/pre>\n
Function WZHOpenMultiFileNames() As String\r\n Dim ret As Long\r\n Dim sResult As String\r\n Dim arrFiles() As String\r\n WizHook.Key = 51488399\r\n ret = Wiz-Hook.GetFileName(Application.hWndAccessApp, _ \"Microsoft\", \"Datei auswählen:\", \"öffnen\", sResult, _ CurrentProject.Path, \"Alle Dateien (*.*)\", 0&, 0&, _ 72, True)\r\n If ret = 0 Then\r\n ''Ergebnisstring in String-Array umwandeln\r\n arrFiles = Split(sResult, vbTab) \r\n ''String-Array sortieren\r\n WizHook.SortStringArray arrFiles \r\n ''...und wieder in einen String umwandeln, nur diesmal ''semikolonsepariert\r\n WZHOpenMultiFileNames = Join(arrFiles, \";\")\r\n End If\r\nEnd Function<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{A7555BBB-9FE2-4328-8A45-7ADDDB238795}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{A7555BBB-9FE2-4328-8A45-7ADDDB238795}\/pic003.png\")
<\/p>\nWizHook.TwipsFromFont(FontName, _\r\n FontgrößePunkt, _\r\n Schriftbreite, _\r\n IstKursiv, _\r\n IstUnterstrichen, _\r\n Zeichenzahl, _\r\n Text, _\r\n ZeichenMaximal, _\r\n ErgebnisHöhe, _\r\n ErgebnisBreite)<\/pre>\n
Zusätzliche WizHook-Funktionen in Access XP und Access 2003<\/h3>\n
WizHook.WizHelp sHelpfile, 1, ContextID<\/pre>\n
\"ID;4;4;Nachname;10;40;Vorname;10;30;\"<\/pre>\n