Startseite > Tipps & Tricks > Wizhook-Objekt > GetScripString
Team-Moeller.de - Datenbankentwicklung und mehr ...

GetScripString

GetScriptString

Access-Versionen

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

Funktion

Liefert die Werte aus den verschiedenen Spalten eines Makros und seiner Argumente.

Deklaration

Function GetScriptString(HScr As Long, ScriptColumn As Long, Value As String) As Boolean

Argumente

HScr   Referenz auf ein geöffnetes Makro
ScriptColumn   Zahl, die die Spalte angibt
0: Name des Markos
1: Kommentar
2: Bedingung
3-12: Argumente
Value   Inhalt der Spalte
(wird von Funktion zurückgeliefert)

Rückgabewert

True, wenn Funktion erfolgreich beendet wurde.
False, wenn Funktion fehlerhaft ausgeführt wurde.

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
Dim lngActionID As Long
Dim strAction As String
Dim strText As String
Dim fEnde As Boolean

'Initaialisieren
strScript = Nz(Me!txtMakroName, "")
strLabel = "Test"
lngOpenMode = 0

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

'Ausstieg bei Fehler
If hScr = 0 Then
  MsgBox "Markro konnte nicht geöffnet werden."
  Exit Sub
End If

'Makro lesen
Do While Not (fEnde)
  api_Makro_NextRow hScr, 0&, 0&
  lngActionID = api_Makro_GetActID(hScr)
  If lngActionID <> -1 Then
    strAction = WizHook.NameFromActid(lngActionID)
    MsgBox strAction, vbInformation, "Aktion:"
    WizHook.GetScriptString hScr, 0&, strText
    MsgBox strText, vbInformation, "Label:"
    WizHook.GetScriptString hScr, 1&, strText
    MsgBox strText, vbInformation, "Kommentar:"
    WizHook.GetScriptString hScr, 2&, strText
    MsgBox strText, vbInformation, "Bedingung:"
    WizHook.GetScriptString hScr, 3&, strText
    MsgBox strText, vbInformation, "Argument:"
  Else
    fEnde = True
  End If
Loop

'Makro schliessen
fCloseHscr hScr

'Zusätzlich müssen folgende Funktionen deklariert sein:

Private Declare Function api_Makro_NextRow Lib "msaccess.exe" _
        Alias "#22" (ByVal Makro As Long, ByVal lngSkipBlank As Long, _
        lngEndOfMakro As Long) As Long
Private Declare Function api_Makro_GetActID Lib "msaccess.exe" _
        Alias "#29" (ByVal Makro As Long) As Long
Private Declare Sub fCloseHscr Lib "msaccess.exe" _
        Alias "#20" (ByVal hScr As Long)

Hinweise

Siehe auch "OpenScript", "SaveScriptString" und "NameFromActid".

Nach oben

 

Downloads: Beispieldatenbank / Hilfedatei / Doku als PDF-Datei

Microsoft MVP - Thomas Möller


06.05.2017:
TM-VBALineNumbers
Version 1.29.01 bereitgestellt.


27.03.2016:
TM VBA-Inspector:
Installationsroutine überarbeitet.


23.05.2014:
TM-RebuildDatabase
Version 1.75 bereitgestellt.


07.12.2014:
TM-DatenKlassenGenerator
Version 3.55 bereitgestellt.


Powered by CMSimple - Template by CMSimple-Styles.com - Autor:Thomas Möller