<\/p>\n
![\"Fehlermeldung](\"..\/fileadmin\/_temp_\/2020_06\/pic_1273_001.png\")
<\/p>\n
Bild 1: Fehlermeldung in einer frisch erstellten .accde-Datenbank<\/span><\/b><\/p>\n Haben Sie das schon einmal erlebt Sie haben Ihre Anwendung fertig programmiert und alles läuft einwandfrei. Sie müssen nur noch die Kompilierung in eine .accde-Datenbank vornehmen, damit der Kunde keinen Zugriff auf den Quellcode hat. Auch das gelingt ohne Probleme. Kaum starten Sie die .accde-Datenbank, geht jedoch plötzlich nichts mehr: Es funktionieren einfach keine Ereignisprozeduren mehr, und falls vorhanden, meckert auch das Ribbon, dass es seine Callback-Funktionen nicht mehr ausführen kann. Was ist hier geschehen und wie lösen wir das Problem Das zeigen wir in diesem Artikel.<\/b><\/p>\n Manchmal liefert Access Phänomene, die man sich einfach nicht erklären kann. In meiner neuesten Anwendung, die das Ribbon nutzt, erscheint zum Beispiel nach der Umwandlung in eine .accde<\/b>-Datenbank die Meldung aus Bild 1.<\/p>\n Bild 1: Fehlermeldung in einer frisch erstellten .accde-Datenbank<\/span><\/b><\/p>\n Was genau passiert hier Das konnten wir nicht exakt herausfinden. Uns war an dieser Stelle wichtig, überhaupt eine Lösung zu finden.<\/p>\n Und die gab es: Offensichtlich entstehen diese Probleme mit .accde<\/b>-Datenbanken, wenn sich in irgendeinem Klassenmodul eines Formulars oder Berichts noch eine leere Ereignisprozedur befindet, die beispielsweise wie folgt aussieht – also so, wie direkt nach der Erstellung:<\/p>\n Leider ist es nicht so einfach, das Problem so nachzustellen – es tritt nämlich nicht immer so auf. Offensichtlich gibt es noch andere Faktoren, die das Problem „aktivieren“. Wir können daher keine Beispieldatenbank anbieten, die dieses Problem aufzeigt. Dennoch ist es für Sie vermutlich hilfreich, den Inhalt dieses Artikels im Hinterkopf zu behalten … wer weiß, ob und wann Sie einmal dieses Phänomen in einer Ihrer Datenbankanwendungen vorfinden.<\/p>\n Problemlösung<\/b><\/p>\n Die Lösung ist ganz einfach: Sie brauchen lediglich die leeren Ereignisprozeduren aus Ihrer Anwendung zu entfernen. Es reicht auch aus, wenn Sie eine beliebige Zeile in die Prozedur einfügen – und wenn es eine Kommentarzeile ist.<\/p>\n Das hört sich allerdings leichter an, als es ist, denn Sie müssen ja zunächst einmal herausfinden, ob sich überhaupt eine leere Ereignisprozedur in der Anwendung befindet und falls ja, wo diese liegt.<\/p>\n Dazu haben wir eine Prozedur programmiert, die alle Prozedurnamen samt Modul ausgibt, die weder Code noch Kommentare enthalten.<\/p>\n Damit die Prozedur funktioniert, benötigen wir einen Verweis auf die Bibliothek Microsoft Visual Basic for Applications Extensibility 5.3 Object Library <\/b>(siehe Bild 2).<\/p>\n Bild 2: Verweis auf die Bibliothek Microsoft Visual Basic for Applications Extensibility 5.3 Object Library<\/span><\/b><\/p>\n <\/p>\n Die Prozedur deklariert zunächst alle notwendigen Variablen, von denen einige aus der soeben per Verweis hinzugefügten Bibliothek stammen. Diese führen wir gleich bei der Erläuterung der Funktion der Prozedur ein. Die Prozedur finden Sie in Listing 1.<\/p>\n Listing 1: Prozedur zum Ermitteln leerer Prozeduren in einer Anwendung<\/span><\/b><\/p>\n Die Prozedur referenziert das Objektmodell des VBA-Editors mit der Objektvariablen objVBE<\/b>. Über dessen Eigenschaft ActiveVBProject <\/b>holt sie sich einen Verweis auf das aktive VBA-Projekt und referenziert es mit objVBProject<\/b>. Dieses wiederum stellt mit der Auflistung VBComponents <\/b>den Zugriff auf alle VB-Komponenten bereit, die wir in der folgenden For Each<\/b>-Schleife durchlaufen. Hier setzt die Prozedur die Variable strProc<\/b>, die den Namen der Prozedur speichern soll, auf eine leere Zeichenkette, und durchläuft dann alle Codezeilen des über die Eigenschaft CodeModule <\/b>referenzierten Moduls. Dies geschieht in einer For…Next<\/b>-Schleife mit den Zahlenwerten von 1 <\/b>bis zur mit CountOfLines <\/b>ermittelten Anzahl der Codezeilen.<\/p>\n Hier prüfen wir eingangs immer, ob wir es mit einer neuen Prozedur zu tun haben oder ob die neue Zeile eine weitere Zeile der vorherigen Prozedur ist. Dazu speichern wir den Prozedurnamen in strProc <\/b>und vergleichen diesen mit dem mit ProcOfLine <\/b>ermittelten Prozedurnamen.<\/p>\n Handelt es sich um eine neue Prozedur, ermittelt die Routine verschiedene Zeilennummern der Prozedur – die Startzeile, die Anzahl der Zeilen und die Endzeile.<\/p>\n<\/p>\nPrivate Sub <\/span>Form_Load()\r\nEnd Sub<\/span><\/pre>\n<\/p>\nPublic Sub <\/span>LeereProzedurenFinden()\r\n Dim <\/span>objVBE As <\/span>VBIDE.VBE\r\n Dim <\/span>objVBProject As <\/span>VBIDE.VBProject\r\n Dim <\/span>objVBComponent As <\/span>VBIDE.VBComponent\r\n Dim <\/span>objCodemodule As <\/span>VBIDE.CodeModule\r\n Dim <\/span>intLine As Integer<\/span>\r\n Dim <\/span>intProcKind As <\/span>vbext_ProcKind\r\n Dim <\/span>strProc As String<\/span>\r\n Dim <\/span>intBodyLine As Integer<\/span>\r\n Dim <\/span>intStartline As Integer<\/span>\r\n Dim <\/span>intCountLines As Integer<\/span>\r\n Dim <\/span>intEndline As Integer<\/span>\r\n Dim <\/span>i As Integer<\/span>\r\n Dim <\/span>bolNichtLeer As Boolean<\/span>\r\n Dim <\/span>strLine As String<\/span>\r\n Set<\/span> objVBE = VBE\r\n Set<\/span> objVBProject = objVBE.ActiveVBProject\r\n For Each objVBComponent In objVBProject.VBComponents\r\n strProc = \"\"\r\n Set<\/span> objCodemodule = objVBComponent.CodeModule\r\n For intLine = 1 To objCodemodule.CountOfLines\r\n If <\/span>Not<\/span> strProc = objCodemodule.ProcOfLine(intLine, intProcKind) Then<\/span>\r\n bolNichtLeer = False<\/span>\r\n strProc = objCodemodule.ProcOfLine(intLine, intProcKind)\r\n intBodyLine = objCodemodule.ProcBodyLine(strProc, intProcKind)\r\n intStartline = objCodemodule.ProcStartLine(strProc, intProcKind)\r\n intCountLines = objCodemodule.ProcCountLines(strProc, intProcKind)\r\n intEndline = intStartline + intCountLines - 1\r\n For i = intBodyLine + 1 To intEndline - 1\r\n intLine = intLine + 1\r\n strLine = objCodemodule.Lines(i, 1)\r\n strLine = Trim<\/span>(strLine)\r\n If <\/span>Not<\/span> Len<\/span>(strLine) = 0 And Not<\/span> Left<\/span>(strLine, 1) = \"'\" Then<\/span>\r\n bolNichtLeer = True<\/span>\r\n Exit For<\/span>\r\n End If<\/span>\r\n Next<\/span> i\r\n If <\/span>bolNichtLeer = False<\/span> Then<\/span>\r\n Debug.Print<\/span> \"***** \" & strProc & \", Modul '\" & objVBComponent.Name & \"' ist LEER!\"\r\n End If<\/span>\r\n End If<\/span>\r\n Next<\/span> intLine\r\n Next<\/span> objVBComponent\r\nEnd Sub<\/span><\/pre>\n