<\/p>\n
Die VBA-Entwicklungsumgebung ist keine Offenbarung, was den Funktionsumfang angeht. Dabei gibt es so viele Möglichkeiten, dem Entwickler Aufgaben abzunehmen. Im vorliegenden Beitrag zeigt Access im Unternehmen, wie Sie mit einer Tool-Sammlung namens MZ-Tools besseren Code produzieren können.<\/b><\/p>\n
Download und Installation<\/p>\n
Die MZ-Tools finden Sie auf der unter [1] angegebenen Internetseite. Die Tools gibt es in verschiedenen Ausführungen für unterschiedliche Entwicklungsumgebungen, unter anderem auch für Visual Studio .NET. Für die Installation bringt MZ-Tools eine Setup-Anwendung mit. Wenn der VBA-Editor beim Installieren geöffnet ist, müssen Sie Access zunächst schließen und wieder öffnen, um mit dem Tool zu arbeiten. Dann erst erscheint die Benutzeroberfläche des Tools in Form einer eigenen Symbolleiste. Alternativ zur Symbolleiste können Sie alle Anweisungen auch über den Menüeintrag Extras\/MZ-Tools <\/b>oder über das Kontextmenü diverser Elemente aufrufen. Im Folgenden werden bei der Beschreibung der Funktionen die dort beziehungsweise in den ToolTip-Texten genannten Bezeichnungen verwendet.<\/p>\nAktion sauberer Code<\/h2>\n
Der erste Schwung nützlicher Funktionen dient dazu, den Code sauber zu halten. Sauber zu halten Nun, große Projekte neigen dazu, mit der Zeit eine Reihe nicht mehr benutzter Routinen oder Variablen anzusammeln. Und hier liegt eine der Stärken von MZ-Tools, denn es bringt direkt zwei Funktionen für das Säubern des Codes von nicht mehr benötigten Fragmenten mit.<\/p>\n
Die erste Funktion heißt Prozeduraufrufe. Sie können mit dieser Funktion feststellen, ob eine bestimmte Routine irgendwo im Code aufgerufen wird. Dazu platzieren Sie einfach die Einfügemarke auf die zu untersuchende Routine und wählen die Funktion Prozeduraufrufe <\/b>aus.<\/p>\n
MZ-Tools blendet dann einen Dialog ein, der den genauen Pfad aller Aufrufe anzeigt (siehe Bild 1). Im Beispiel erfolgt der Aufruf als Methode der Klasse, in der sich die Routine befindet, und die wiederum wird aus einem Formular heraus aufgerufen.<\/p>\n
![\"pic001.tif\"](\"..\/fileadmin\/_temp_\/2007_02\/Programmierhilfe-web-images\/pic001_opt.jpeg\")
<\/p>\n
Bild 1: Untersuchung einer Funktion auf ihre Aufrufe von anderen Stellen<\/span><\/b><\/p>\n Wenn Sie diese Untersuchung mit einer Funktion durchführen, die von keiner anderen Stelle aus aufgerufen wird, bleibt der Dialog leer und Sie können die Routine – sofern Ihnen kein weiterer Verwendungszweck einfällt – löschen.<\/p>\n Eines müssen Sie allerdings beim Einsatz dieser Funktion berücksichtigen: Sie prüft nicht, ob eine Routine direkt von einem der Access-Objekte aufgerufen wird, also beispielsweise als Funktion innerhalb einer Abfrage oder als Wert einer Ereigniseigenschaft. Kommentieren Sie scheinbar überflüssige Routinen also am besten zunächst aus und löschen Sie diese, wenn nach einer gewissen Zeit kein Fehler erscheint …<\/p>\n Die zweite in diesem Zusammenhang interessante Funktion untersucht die Variablen des gesamten Projekts dahingehend, ob diese überhaupt verwendet werden. Die Funktion erreichen Sie über den Menüeintrag Andere Hilfsmittel\/Übersicht: Programmcode<\/b>. Bild 2 zeigt, was diese Funktion leistet: Sie zeigt alle deklarierten, aber nicht verwendeten Elemente aller Module an. Auch hier gibt es eine Einschränkung: Die Funktion berücksichtigt – laut Onlinehilfe – nur die als Private <\/b>deklarierten Elemente. Trotzdem ist diese Funktion eine gute Hilfe, um Variablenleichen aufzufinden und zu löschen.<\/p>\n Bild 2: Die Programmcode-Übersicht bringt unter anderem deklarierte und nicht verwendete Variablen ans Tageslicht.<\/span><\/b><\/p>\n In Zusammenhang mit „sauberem Code“ ist auch die Funktion zum Sortieren der Prozeduren interessant. Diese zeigt alle enthaltenen Elemente in einem Dialog mit einer Listbox an, deren Einträge Sie durch Drag and Drop verschieben können. Die änderungen werden nach dem Schließen des Dialogs im Modul nachgezogen.<\/p>\n Sehr hilfreich ist die Suchfunktion, die sich auf den ersten Blick gar nicht so sehr von der Standardsuche unterscheidet. Interessant wird es erst bei der Anzeige der Suchergebnisse: Hier zeigt MZ-Tools eine Liste mit den Modulen, Routinen und den relevanten Codezeilen an, von der aus Sie die passenden Routinen per Doppelklick im Codefenster anzeigen lassen können (siehe Bild 3).<\/p>\n Bild 3: Die Suchfunktion liefert die Ergebnisse nicht nacheinander, sondern in einer Ergebnisliste.<\/span><\/b><\/p>\n Die Suchfunktion bietet gleichzeitig die Möglichkeit, den Suchbegriff in einem oder in allen Modulen durch einen alternativen Ausdruck zu ersetzen. Dazu geben Sie einfach den gewünschten Begriff in den Dialog ein und klicken auf Ersetzen <\/b>oder Alle ersetzen<\/b>.<\/p>\n Wer noch unsicher beim Erstellen von Prozeduren unterschiedlicher Art ist, kann den Prozedur-Assistenten dazu einsetzen (siehe Bild 4). Interessant sind die Funktionen, die das automatische Hinzufügen eines Prozedurkopfes mit Informationen zu der Prozedur und einer Fehlerbehandlung erlauben. Diese beiden Funktionen gibt es auch einzeln, sodass diese weiter unten beschrieben werden.<\/p>\n Bild 4: Hinzufügen von Prozeduren per Assistent<\/span><\/b><\/p>\n Interessant ist, dass Sie die Prozedurvorlagen anpassen können: Öffnen Sie einmal den Optionen<\/b>-Dialog und wechseln Sie auf die Registerseite Namensgebung<\/b>. Hier können Sie sowohl die Suffixe für Ergebnisvariablen und Membervariablen als auch für die Typenpräfixe festlegen.<\/p>\n Code-Vorlagen<\/p>\n <\/p>\n Wer viel programmiert, hat vermutlich einen ganzen Rutsch von Standardfunktionen oder Codeschnipseln, die er regelmäßig verwendet. Diese können Sie mit MZ-Tools einfach verwalten und in das aktuelle Modul einfügen.<\/p>\n Legen Sie also zunächst ein Code-Template an – hier eine oft verwendete Funktion zum Umwandeln von Datumsangaben in SQL-taugliche Datumsausdrücke. Die Funktion sieht so aus:<\/p>\n Zunächst speichern Sie diesen Codeschnipsel. Dazu öffnen Sie den Optionen<\/b>-Dialog von MZ-Tools und wechseln dort zur Registerseite Code-Vorlagen<\/b>. Klicken Sie auf Hinzufügen <\/b>und füllen Sie die Felder im nun erscheinenden Dialog beispielsweise wie in Bild 5 aus.<\/p>\n Bild 5: Hinzufügen einer Codevorlage<\/span><\/b><\/p>\n Sie können dort auch eine Tastenkombination festlegen (hier Umschalt + Strg + D<\/b>) und brauchen dann im betroffenen Modul einfach nur noch die Einfügemarke an die gewünschte Stelle zu setzen und die Tastenkombination auszuführen.<\/p>\n Wie Sie der Abbildung entnehmen können, enthält der Dialog auch die Möglichkeit, vordefinierte und benutzerdefinierte Variablen in den Codeschnipsel einzufügen. Die vordefinierten Variablen füllt MZ-Tools automatisch aus, die benutzerdefinierten fragt es beim Hinzufügen des Codeschnipsels ab. Wenn Sie also etwa eine For…Next<\/b>-Schleife einfügen möchten, geben Sie nacheinander die drei benutzerdefinierten Variablen Laufvariable<\/b>, Startwert <\/b>und Endwert <\/b>in das passende Feld ein und fügen diese jeweils in den Codeschnipsel ein, sodass dieser schließlich wie folgt aussieht:<\/p>\n Wenn Sie diesen dann beispielsweise mit der Tastenkombination Umschalt + Strg + F <\/b>hinzufügen, zeigt MZ-Tools einen passenden Dialog zur Abfrage der benutzerdefinierten Variablen an und fügt die eingegebenen Werte direkt in den Ausdruck ein. So erzeugen Sie mit einer einfachen Tastenkombination und der Eingabe dreier Werte auf die Schnelle den Rumpf einer For…Next<\/b>-Schleife. Der Ausdruck {I}<\/b> ist übrigens eine vordefinierte Variable, die dafür sorgt, dass die Einfügemarke sich nach dem Hinzufügen des Codeschnipsels direkt innerhalb der For…Next<\/b>-Schleife befindet.<\/p>\n Kleiner Tipp: Fügen Sie immer noch eine Leerzeile an den Codeschnipsel an, damit Sie diesen ohne Probleme auch einmal zwischen zwei direkt übereinanderliegende Zeilen einfügen können.<\/p>\n Gelegentlich kopieren Sie einen Ausdruck, um ihn an anderer Stelle wieder einzufügen. Dummerweise kommt manchmal ein anderer Kopiervorgang dazwischen und die Zwischenablage enthält nicht mehr das gewünschte Element. MZ-Tools sieht dafür eine private Zwischenablage vor, in der Sie bis zu neun Elemente speichern können.<\/p>\n Wenn Sie die private Zwischenablage einsetzen möchten, sollten Sie in den Optionen von MZ-Tools auf der Registerseite Tastaturkürzel <\/b>passende Tastenkombinationen für das Belegen und Auslesen der einzelnen Speicherplätze festlegen (etwa Strg + 1<\/b>, Strg + 2 <\/b>… für das Einfügen und Alt + 1<\/b>, Alt + 2 <\/b>… für das Auslesen der Ablageplätze). Generell können Sie Tastenkombinationen für alle Befehle von MZ-Tools festlegen.<\/p>\n Ebenfalls per Mausklick können Sie einem Modul oder einer Prozedur spezielle Informationen hinzufügen. Bild 6 zeigt, wie die Vorlage für einen Modulkopf aussieht, den Sie wie die Codeschnipsel unter Verwendung vordefinierter Variablen wie dem Modulnamen oder Datum und Zeit anpassen können.<\/p>\n Bild 6: Anpassen des Modulheaders<\/span><\/b><\/p>\n Einen Modulkopf fügen Sie dem aktuellen Modul an der obersten Position hinzu, indem Sie den Befehl Modulkopf hinzufügen <\/b>auswählen; beim Einfügen eines Prozedurkopfes müssen Sie die Einfügemarke zuvor in das betroffene Modul setzen. MZ-Tools fügt den Prozedurkopf dann oberhalb der Prozedur ein, sofern Sie nicht in den Optionen festgelegt haben, dass der Prozedurkopf innerhalb der Routine platziert werden soll.<\/p>\n Nach dem gleichen Muster verfahren Sie mit der Fehlerbehandlung: Setzen Sie die Einfügemarke in die Zielroutine und führen Sie den Befehl Fehlerbehandlung hinzufügen <\/b>aus. Diese sollten Sie allerdings noch ein wenig anpassen, um auch im Falle eines Fehlers noch Code zum Aufräumen eventuell durch die Routine erzeugter Objekte einfügen zu können. Die Access-im-Unternehmen-Variante sieht demnach wie in Bild 7 aus.<\/p>\n Bild 7: Anpassen der Vorlage für die Fehlerbehandlung<\/span><\/b><\/p>\n Diese Fehlerbehandlung gibt beim Auftreten eines Fehlers unter anderem den Wert der Funktion Erl<\/b> aus, die die Nummer der fehlerhaften Zeile zurückgibt. Dazu muss aber zunächst einmal eine Zeilennummerierung vorliegen. Auch dafür liefert MZ-Tools die passende Funktion: Der Kontextmenüeintrag MZ-Tools\/Zeilennummern hinzufügen <\/b>fügt zu dem Objekt, von dem aus Sie das Kontextmenü aufgerufen haben, Zeilennummern hinzu. Das heißt, dass Sie einer einzigen Routine Zeilennummern hinzufügen, indem Sie den passenden Kontextmenüeintrag innerhalb der Prozedur aufrufen. Wenn Sie ein ganzes Modul oder gar das ganze Projekt nummerieren möchten, verwenden Sie den passenden Kontextmenüeintrag der Objekte im Projekt-Explorer. Der Menüeintrag Zeilennummern entfernen <\/b>macht diesen Vorgang wieder rückgängig. <\/p>\n In den Optionen können Sie die Inkrementierung festlegen und außerdem auswählen, ob jede Zeile eine eindeutige Nummer erhalten soll oder die Nummerierung in jeder Routine neu beginnen darf.<\/p>\n Wenn Sie den Code in eine Dokumentation einfügen oder diesen einfach besser lesbar machen möchten, können Sie die einzelnen Zeilen nach einer bestimmten Anzahl Zeichen automatisch umbrechen lassen. Die Anzahl der Zeichen legen Sie in den MZ-Tools-Optionen mit der Option Zeichenanzahl beim Trennen von Zeichen <\/b>auf der Registerseite Allgemein <\/b>fest. Anschließend markieren Sie wieder den anzupassenden Bereich (eine Zeile, ein Modul oder das ganze Projekt) und wählen den Befehl Zeilen trennen <\/b>oder Zeilen zusammenfügen <\/b>aus.<\/p>\n Für diejenigen, die objektorientiert programmieren, ist diese Funktion hilfreich: Mit Öffentliche Variable in Eigenschaft konvertieren… <\/b>wandeln Sie eine öffentliche Variable in eine Membervariable plus je eine Property Get<\/b>– und eine Property Let<\/b>\/Set<\/b>-Prozedur um. Aus<\/p>\n wird dann Folgendes:<\/p>\n Prozedur-Favoriten<\/p>\n Wenn Sie oft mit bestimmten Prozeduren arbeiten, können Sie Shortcuts festlegen, um diese schnell im Codefenster sichtbar zu machen. Auch hier sollten Sie passende Tastenkombinationen anlegen. Auf diese Weise können Sie schnell auf den Dialog mit den gespeicherten Prozeduren zugreifen (siehe Bild 8).<\/p>\n Bild 8: Per Mausklick zu bestimmten Prozeduren springen<\/span><\/b><\/p>\n Diese beiden Assistenten helfen beim schnellen Zusammenstellen von Select Case<\/b>-Konstrukten und von MsgBox<\/b>-Anweisungen. Ihre Funktion soll an dieser Stelle nicht weiter erläutert werden. <\/p>\n Mit der Funktion Direktfenster löschen <\/b>leeren Sie das Direktfenster. Normalerweise führen Sie dazu mindestens die Tastenkombinationen Strg + A <\/b>und Entf <\/b>durch – und selbst dafür muss die Einfügemarke sich schon im Direktfenster befinden.<\/p>\n Diese Funktion schließt alle geöffneten Codefenster. Sie müssen also nicht mehr endlos klicken, bevor der Arbeitsbereich sauber ist …<\/p>\n Wenn Sie beispielsweise eine Variable in eine Konstante umwandeln, möchten Sie diese möglicherweise komplett in großen Buchstaben schreiben. Mit der Funktion In Großbuchstaben umwandeln <\/b>erledigen Sie das für den markierten Bereich im Handumdrehen. Umgekehrt funktioniert das mit der Funktion In Kleinbuchstaben umwandeln<\/b>.<\/p>\n Wer sich dafür interessiert, kann sich eine Statistik der in den Modulen dieses VBA-Projekts enthaltenen Codezeilen, Kommentarzeilen und Prozeduren ausgeben lassen.<\/p>\n Eine komplette Dokumentation des Projekts erstellen Sie mit dem Befehl XML Dokumentation erstellen…<\/b> Die Dokumentation wird in einer separaten XML-Datei gespeichert und enthält eine Auflistung der Verweise sowie der einzelnen Module inklusive Informationen über die Deklarationen und Routinen.<\/p>\n MZ-Tools speichert seine Einstellungen in der Datei MZTools3vba.ini <\/b>im Anwendungsverzeichnis (unter Windows 7 etwa unter C:\\Program Files (x86)\\MZTools3VBA<\/b>). Wenn Sie die Einstellungen auf einem anderen Rechner weiterverwenden möchten, kopieren Sie diese Datei einfach dorthin.<\/p>\n Unter neueren Windows-Betriebssystemen gibt es aus Sicherheitsgründen Probleme beim Schreiben von Daten in dem Verzeichnis, in dem sich die Ini-Datei von MZ-Tools befindet. Unter Windows 7 beispielsweise ändern Sie dies, indem Sie sich mit ausreichenden Berechtigungen ausgestattet anmelden und dann im Windows-Explorer die Eigenschaften der Datei MZTools3vba.ini wie in Bild 8 so ändern, dass auch normale Benutzer änderungsrechte haben.<\/p>\n Bild 8: Per Mausklick zu bestimmten Prozeduren springen<\/span><\/b><\/p>\n Wer viel mit VBA programmiert, kommt an den MZ-Tools eigentlich nicht vorbei. Natürlich kann man auch dieses Paket noch erweitern, aber es bildet einen soliden Grundstock, der gerade durch die Anpassung der Vorlagen und die Verwendung von Tastenkombinationen eine große Hilfe sein kann.<\/p>\n Quellen<\/p>\n [1] Download MZTools für VBA: http:\/\/www.mztools.com\/v3\/mztools3.htm<\/p>\n","protected":false},"excerpt":{"rendered":" Die VBA-Entwicklungsumgebung ist keine Offenbarung, was den Funktionsumfang angeht. Dabei gibt es so viele Möglichkeiten, dem Entwickler Aufgaben abzunehmen. Im vorliegenden Beitrag zeigt Access im Unternehmen, wie Sie mit einer Tool-Sammlung namens MZ-Tools besseren Code produzieren können.<\/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":[66022007,662007,44000020],"tags":[],"class_list":["post-55000450","post","type-post","status-publish","format-standard","hentry","category-66022007","category-662007","category-Tools"],"yoast_head":"\n![\"pic002.tif\"](\"..\/fileadmin\/_temp_\/2007_02\/Programmierhilfe-web-images\/pic002_opt.jpeg\")
<\/p>\nProzeduren sortieren<\/h2>\n
Suche mit Übersicht<\/h2>\n
![\"pic003.tif\"](\"..\/fileadmin\/_temp_\/2007_02\/Programmierhilfe-web-images\/pic003_opt.jpeg\")
<\/p>\nProzedur-Assistent<\/h2>\n
![\"pic004.tif\"](\"..\/fileadmin\/_temp_\/2007_02\/Programmierhilfe-web-images\/pic004_opt.jpeg\")
<\/p>\nPublic Function SQLDatum(varDate As Variant)\r\n SQLDatum = Format(varDate, _\r\n "\\#yyyy\\-mm\\-dd\\#")\r\nEnd Function<\/pre>\n
![\"pic005.tif\"](\"..\/fileadmin\/_temp_\/2007_02\/Programmierhilfe-web-images\/pic005_opt.jpeg\")
<\/p>\nFor {Laufvariable} = {Startwert} to {Endwert}\r\n {I}\r\nNext {Laufvariable}<\/pre>\nPrivate Zwischenablage<\/h2>\n
Modul- und Prozedurkopf<\/h2>\n
![\"pic006.tif\"](\"..\/fileadmin\/_temp_\/2007_02\/Programmierhilfe-web-images\/pic006_opt.jpeg\")
<\/p>\nFehlerbehandlung<\/h2>\n
![\"pic007.tif\"](\"..\/fileadmin\/_temp_\/2007_02\/Programmierhilfe-web-images\/pic007_opt.jpeg\")
<\/p>\nZeilen nummerieren<\/h2>\n
Zeilen zurechtstutzen<\/h2>\n
Eigenschaft in Property umwandeln<\/h2>\n
Public Gehalt As Currency<\/pre>\n
Private mcurGehalt As Currency\r\nPublic Property Get Gehalt() As Currency\r\nGehalt = mcurGehalt\r\nEnd Property\r\nPublic Property Let Gehalt(ByVal curGehalt _\r\nAs Currency)\r\nmcurGehalt = curGehalt\r\nEnd Property<\/pre>\n
![\"pic008.tif\"](\"..\/fileadmin\/_temp_\/2007_02\/Programmierhilfe-web-images\/pic008_opt.jpeg\")
<\/p>\nSelect Case- und MsgBox-Assistent<\/h2>\n
Direktfenster leeren<\/h2>\n
Alle Fenster schließen<\/h2>\n
Auswahl in Groß-\/Kleinbuchstaben umwandeln<\/h2>\n
Statistik ausgeben<\/h2>\n
XML-Dokumentation<\/h2>\n
Einstellungen sichern und weitergeben<\/h2>\n
Hinweis für Window Vista\/Windows 7<\/h2>\n
![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2007_02\/Programmierhilfe-web-images\/pic004.png\")
<\/p>\nZusammenfassung und Ausblick<\/h2>\n