El objeto Database admite, entre otros, los siguientes eventos: DatabaseSaved, DatabaseCreated y DatabaseOpened. Los procedimientos que responden a estos eventos y al resto de eventos disponibles se escriben en el módulo de clase ThisDatabase (la lista completa de eventos puede verse en el cuadro de lista desplegable Procedimiento). Puede crear un procedimiento de evento con los siguientes pasos.
1.Haga doble clic en ThisDatabase en su proyecto de plantillas o proyecto de base de datos en la ventana "Explorador de proyectos". (En la vista de carpetas, ThisDatabase se encuentra en la carpeta Objetos FlexPro).
2.Seleccione Database en la lista desplegable Objeto.
3.Seleccione un evento en el cuadro de lista desplegable Procedimiento.
Se añade una subrutina vacía al módulo de clase.
4.Añada las instrucciones de Visual Basic que se ejecutarán cuando se produzca el evento.
El siguiente ejemplo muestra un procedimiento de evento DatabaseCreated en un proyecto de plantilla que se ejecuta cuando se crea una nueva base de datos.
Private Sub Database_DatabaseCreated(ByVal Database As Object)
MsgBox "New database created"
End Sub
El siguiente ejemplo muestra un procedimiento de evento DatabaseModified en un proyecto de base de datos que solo se ejecuta cuando la base de datos ha sido modificada.
Private Sub Database_DatabaseModified(ByVal Database As Object)
MsgBox "Database modified"
End Sub
Si existe una macro automática en una base de datos y en una base de datos de plantillas, solo se ejecuta la macro automática almacenada en la base de datos. Si existe un procedimiento de evento para un evento Database en una base de datos y en una base de datos de plantillas, se ejecutan ambos procedimientos de evento.
Nota Para obtener información sobre la creación de procedimientos de eventos para el objeto Application o Databases, consulte Utilización de eventos con el objeto Application o Databases.