Programmcode mit VBA auswerten

30.12.2003

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.

Programmcode mit VBA auswerten

Dienstleistungen

Als starker Partner an Ihrer Seite unterstützen wir Sie in folgenden Breichen:

Access-Programmierung

Benötigen Sie Unterstützung bei der Programmierung von Access-Anwendungen? Wir bieten die gesamte Bandbreite von der Access-Programmierung auf Stundenbasis bis zur Durchführung eines Software-Projektes als Auftragsarbeit an. Kontaktieren Sie uns für ein kostenloses Erstgespräch.

Software-Beratung

Haben Sie ein Software-Projekt und Sie wissen nicht, ob Access die richtige Plattform ist? Wir haben über 20 Jahre Erfahrung beim Erstellen von Windows-, Web und mobilen Anwendungen. Kontaktieren Sie uns für eine kostenlose Erstberatung.