No funcionan los botones para abrir formularios
Publicado: Vie Sep 07, 2018 8:25 pm
En versiones anteriores de libreoffice ( 4 para abajo) configure macros donde en un menu pulsando en los botones correspondientes me abria formularios,informes... utilizando el tag que se mete en información adicional de la propoiedad del control.
A partir de la versión 5 de libreoffice no me funcionan dichos botones.
Estas son las macros que utilizo:
Sub sAbreF(Izena As String)
'Izena=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,Izena,False)
End Sub
Sub sBotonAbreF(Event As Object)
'Abre un formulario al pulsar el botón;en esta version de libreoffice No funciona
sAbreF(Event.Source.Model.Tag)
End Sub
A partir de la versión 5 de libreoffice no me funcionan dichos botones.
Estas son las macros que utilizo:
Sub sAbreF(Izena As String)
'Izena=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,Izena,False)
End Sub
Sub sBotonAbreF(Event As Object)
'Abre un formulario al pulsar el botón;en esta version de libreoffice No funciona
sAbreF(Event.Source.Model.Tag)
End Sub