Neues VBA-Modul mit Code erstellen

Sprache / Programm: Access ab Version 97

Beschreibung

Erstellt ein neues Modul und füllt es mit VBA-Code.

VBA-Quelltext

''' Bis Access 97

' Erstellt ein Modul und fügt den VBA-Code ein
Public Sub CreateModule(ModulName As String, ByRef CodeVBA As String)
Dim Modul As Module
' Ist das Modul bereits vorhanden ?
If ObjektVorhanden("Modules", ModulName) Then
If MsgBox("Modul '" & ModulName & "' existiert bereits. Überschreiben ?", vbOKCancel, "Beziehungen löschen") = vbCancel Then Exit Sub
DoCmd.DeleteObject acModule, ModulName
End If

' Modul erstellen
DoCmd.RunCommand acCmdNewObjectModule
Set Modul = Modules(Application.CurrentObjectName)
Modul.AddFromString CodeVBA
DoCmd.Close acModule, Modul.NAme, acSaveYes
DoCmd.Rename ModulName, acModule, Modul.NAme
End Sub

''' Reduzierte Möglichkeiten In Access 2000
Public Sub ModulErstellen_Click(VbaCode As String)
DoCmd.RunCommand acCmdNewObjectModule
Application.VBE.VBProjects.VBE.SelectedVBComponent.CodeModule.AddFromString VbaCode
End Sub

Argumente der Funktion/Prozedur

NameModul.: Name, den das Modul erhalten soll.
CodeVBA.: String, der den VBA-Code für das Modul enthält.

Anwendungsgebiete, Fehler und Warnungen

Die Funktion zum erstellen eines Moduls wird von Access 2000 nicht mehr voll unterstützt.