Por favor, alguien puede asesorarme para generar el código a asignar a un botón que guarde y cierre una base de datos abierta. Gracias.
Abre la base de LibreOffice donde quieres agregar al formulario el botón.
Si aún no lo has creado, seleccionao la opción ----> Formulario en el panel izquierdo y pulsa en ----> Crear formulario en modo de diseño.
En el modo de diseño del formulario, verifica que la barra de herramientas ----> Controles de formulario esté visible.
Si no está visible, en ----> Ver ----> Barras de herramientas ----> Controles de formulario, la visibilizas
Pulsa en el botón ----> Botón de Controles de formulario y haz clic en el lugar donde deseas agregar el botón en tu formulario.
Se debería abrir un cuadro de diálogo del Asistente de control, requerido para configurar las propiedades del botón. tiene opciones para personalizar texto, tamaño y estilo del botón.
En la pestaña ----> Eventos del Asistente de control, selecciona el evento ----> Al hacer clic y haz clic en el botón —> … al lado.
Se debría abrir el editor de macros, deja el código en el editor vacio y luego ingresa el código.
Verifica, ejecutando el código que no hay errores, para luego guardar y cerrar el editor de macros.
en teoría, si todo está bien, al hacer clic en el botón del formulario, se debería ejecutar la macro “GuardarCerrarBaseDatos” que tendría que guardar y cerrar la base de datos abierta.
Puede que este código, haga lo que necesitas:
Sub GuardarCerrarBaseDeDatos(oEvent As Object)
Dim oCurrentController As Object
' Obtener el controlador actual
oCurrentController = ThisComponent.CurrentController
' Verificar si se está editando una base de datos
If HasConnection(oCurrentController) Then
' Guardar la base de datos
oCurrentController.ActiveConnection.Store
' Cerrar la base de datos
oCurrentController.ActiveConnection.Close
' Cerrar el documento
ThisComponent.Close(True)
End If
End Sub
Function HasConnection(oController As Object) As Boolean
On Error Resume Next
HasConnection = Not IsNull(oController.ActiveConnection) Or Not IsNull(oController.ActiveConnectionName)
On Error GoTo 0
End Function
Muchísimas gracias. Disculpa mi ignorancia, pero no se cómo asignar ese código a la macro del botón.