OpenScript

Para esta y otras dos funciones del objeto WizHook relacionadas con las macros, me he basado en el código que aparece en la herramienta V-Tools (2000 y 2002), y que amablemente publica Skrol29 http://www.skrol29.com en su página web.


Volver
'**********************************************************
' Function OpenScript(
'          Script As String,
'          Label As String,
'          OpenMode As Long,
'          Extra As Long,
'          Version As Long) As Long
'
' Abre una macro para su lectura o escritura.
' Devuelve un valor Long representando a la macro.
'
' Argumentos:
'   Script: Nombre de la macro que se quiere abrir 
'   Label: Etiqueta (en la vista diseño sería la columna
'          "Nombre de macro") a partir de la cual se 
'          abrirá la macro.
'   OpenMode: Valor Long que indica el modo de apertura de
'             la macro. Valores:
'     0 = Modo lectura
'     2 = Modo escritura. Si la macro no existe
'     se crea. Si la macro ya existe, se borra
'     y se crea una nueva vacía con el mismo nombre.
'   Extra: (?¿?)
'   Version: Versión de la macro
'
' Este método se complementa con el API de Access número 20

 Private Declare Sub fCloseHscr _
            Lib "msaccess.exe" _
            Alias "#20" _
            (ByVal HScr As Long)

' que "cierra" la macro abierta. El argumento HScr es el 
' valor Long devuelto por la función OpenScript cuando ésta
' ha tenido éxito.
'
Sub wzOpenScript()
Dim hMacro As Long
Dim wzScript As String
Dim wzLabel As String
Dim wzOpenMode As Long
Dim wzExtra As Long
Dim wzVersion As Long

    wzScript = "Clientes"
    wzOpenMode = 0

    WizHook.Key = 51488399
    hMacro = WizHook.OpenScript(wzScript, _
        wzLabel, wzOpenMode, wzExtra, wzVersion)
        
    fCloseHscr hMacro
    
End Sub
'**********************************************************
Contactar Última actualización 21/9/2003     © Juan M. Afán deRibera