Dim hScr As Long
Dim strScript As String
Dim strLabel As String
Dim lngOpenMode As Long
Dim lngExtra As Long
Dim lngVersion As Long

'Initialisieren
strScript = Nz(Me!txtMakroName, "")
lngOpenMode = 0

'Makro öffnen
WizHook.Key = 51488399
hScr = WizHook.OpenScript(strScript, strLabel, lngOpenMode, lngExtra, lngVersion)

'Info ausgeben
If hScr > 0 Then
  MsgBox "Handle: " & hScr & vbCrLf & _
       "Extra: " & lngExtra & vbCrLf & _
       "Version: " & lngVersion
  'Makro wieder schliessen
  fCloseHscr hScr
Else
  MsgBox "Markro mit dem Namen " & strScript & vbCrLf & _
       "konnte nicht geöffnet werden."
End If

'Zusätzlich muss folgende Funktion deklariert sein:
Private Declare Sub fCloseHscr Lib "msaccess.exe"
        Alias "#20" (ByVal hScr As Long)

Downloads: Beispieldatenbank / Hilfedatei / Doku als PDF-Datei

---