Pasar control de una función a otra

Hola, por favor, necesito ayuda en lo siguiente.
Tengo una función que se llama al entrar en el formulario.
Tras hacer una comprobación con IF, quería pasar el control a otra función de más abajo en el código, pero no sé como hacerlo.
Private Sub Form_Open(Cancel As Integer)
DoCmd.Restore
On Error GoTo Err_Form_Open
Dim Carpeta
Dim RutaCarpeta As String
RutaCarpeta = Application.CurrentProject.Path & "\datos"
'si no existe la carpeta la creamos
If Dir(RutaCarpeta, vbDirectory) = "" Then
MsgBox "El directorio DATOS no existe y por tanto el programa no funcionará.Consulte con el creador del programa"
DoCmd.Quit
Else
****aquí es donde debe pasar el control a la función de más abajo
End If
Exit_Form_Open:
    Exit Sub
Err_Form_Open:
    MsgBox Err.Description
    Resume Exit_Form_Open
End Sub
________________________________________________________
Private Sub Marco22_Click()
On Error Resume Next
    Dim Tabla As DAO.TableDef
    ' Borramos todas las tablas vinculadas del programa
    For Each Tabla In CurrentDb.TableDefs
    'Detectamos si es una tabla vinculada
        If (Tabla.Attributes And dbAttachedTable) = dbAttachedTable Then
            CurrentDb.TableDefs.Delete Tabla.Name
        End If
    Next
End sub

1 Respuesta

Respuesta
1
La llamada a la función se hace con GOTO marco22_click

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas