OpenScript

OpenScript

Access-Versionen

Diese Funktion ist in folgenden Access-Versionen verfügbar: 2000, 2002, 2003, 2007, 2010

Funktion

öffnet ein Makro und liefert einen Verweis darauf zurück.

Deklaration

Function OpenScript(Script As String, Label As String, OpenMode As Long, Extra As Long, Version As Long) As Long

Argumente

Script   Name des Makros (wie im Datenbankfenster eingetragen)
Label   Name des Makros (wie in der Spalte "Makroname" eingetragen)
OpenMode   öffnungsmodus:
0: Lesen
2: Schreiben
Extra   ???
Version   Version des Makros

Rückgabewert

Verweis auf das Makro.
Dieser wird von den Funktionen "GetScriptString" und "SaveScriptString" benötigt.

Code-Beispiel

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)

Hinweise

Siehe auch "GetScriptString" und "SaveScriptString".

Wenn ein Makro im Modus "Schreiben" geöffnet wird, wird ein neues Makro mit dem gewünschten Namen angelegt. Wenn dieses Makro bereits besteht, wird ein neues, leeres Makros mit dem gleichen Namen angelegt.

Wenn an die Funktion "fCloseHscr" ein nicht existierendes Makro-Handle übergeben wird kommt es bei Access 2002 zu einem Absturz.

Nach oben

 

Downloads: Beispieldatenbank / Hilfedatei / Doku als PDF-Datei