Programmcode mit VBA auswerten

Programmcodes exportieren

Die Möglichkeit zum Zugriff auf den Programmcode eines Moduls ist zur Entwicklung bestimmter Assistenten besonders wichtig. Leider stellt Access dafür keine passende Funktion zur Verfügung.

Um trotzdem auf den Programmcode zuzugreifen, exportieren Sie ein beliebiges Modul in eine Textdatei und lesen Sie diese anschließend von VBA aus ein. 

Den Export bewerkstelligen Sie am einfachsten mit Hilfe der OutputTo-Aktion. Anschließend können Sie die Textdatei öffnen und den Programmcode einlesen. 

Die folgende Beispielprozedur gibt eine Liste aller Prozedurköpfe eines Moduls im Textfenster aus:

Sub ProzedurlisteAusgeben(Modulname As String)

Const Dateiname = "C:\MODUL.TXT"
Dim Datei As Long
Dim Zeile As String

'Datei löschen, falls sie existiert
If Dir(Dateiname) <> "" Then Kill Dateiname

'Modul als Textdatei exportieren
DoCmd.OutputTo acModule, Modulname, "MS-DOSText(*.txt)", Dateiname, False

'Datei öffnen 
Datei = FreeFile
Open Dateiname For Input As Datei

Do While Not EOF(Datei) 

Line Input #Datei, Zeile

If Left(Zeile, 3) = "Sub" Or Left(Zeile, 8) = "Function" Or _
Left(Zeile, 11) = "Private Sub" Or _ 
Left(Zeile, 16) = "Private Function" Or _
Left(Zeile, 10) = "Public Sub" Or _ 
Left(Zeile, 15) = "Public Function" Then 
Debug.Print Zeile 

End If
Loop
Close Datei 

End Sub

Um die Module eines Formulars auszuwerten, geben Sie als Modulname den Text Form_ gefolgt vom Namen des Formulars an (z.B.Form_Adressen). Gleiches gilt für Berichte, bei deren Namen Sie allerdings den Text Report_ voranstellen müssen.