En general, no entiendo como darle funciones a los botones del base. En particular me interesaría saber como hacer que un botón abra un formulario.
Gràcies
Alfons
'Apertura de formularios por nombre
Sub sAbreF(NombreF As String)
'NombreF=Nombre del formulario en la base de datos
Dim oControl As Object
'Conecta con la base de datos
oControl=ThisDatabaseDocument.CurrentController()
If Not oControl.IsConnected() Then oControl.Connect()
'Abre el formulario
oControl.LoadComponent(com.sun.star.sdb.application.DatabaseObject.FORM,NombreF,False)
End Sub
'Apertura de formularios por nombre
'Abre un formulario al pulsar el botón
Sub sBotonAbreF(Event As Object)
sAbreF(Event.Source.Model.Tag)
End Sub
'Abre un formulario al pulsar el botón
Cascabel escribió:Esta macro en un módulo de la biblioteca Standard te permitirá abrir un formulario para entrar datos, pasando como parámetro el nombre del formulario:
- Código: Seleccionar todo Expandir vistaContraer vista
'Apertura de formularios por nombre
Sub sAbreF(NombreF As String)
'NombreF=Nombre del formulario en la base de datos
Dim oControl As Object
'Conecta con la base de datos
oControl=ThisDatabaseDocument.CurrentController()
If Not oControl.IsConnected() Then oControl.Connect()
'Abre el formulario
oControl.LoadComponent(com.sun.star.sdb.application.DatabaseObject.FORM,NombreF,False)
End Sub
'Apertura de formularios por nombre
Lo más cómodo es, entonces, asignar esta otra macro a cada botón que abra un formulario y definir el Tag del botón (Propiedades del control, pestaña General: Información adicional) como el nombre del formulario que abre:
- Código: Seleccionar todo Expandir vistaContraer vista
'Abre un formulario al pulsar el botón
Sub sBotonAbreF(Event As Object)
sAbreF(Event.Source.Model.Tag)
End Sub
'Abre un formulario al pulsar el botón
Antes de que lo preguntes, para que un botón cierre el formulario, lo más simple es:
Propiedades del control, pestaña General:
Acción: Abrir documento/página web
URL: .uno:CloseDoc
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 5 invitados