Página 1 de 1

No funcionan los botones para abrir formularios

Publicado: Vie Sep 07, 2018 8:25 pm
por gtijero
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

Re: No funcionan los botones para abrir formularios

Publicado: Dom Sep 09, 2018 5:25 pm
por RMG
Hola,

Si adjuntas el código puedo hacer una prueba en LO 5.4 que es el que tengo instalado y ver si a mi me funciona.

Saludos

Re: No funcionan los botones para abrir formularios

Publicado: Lun Sep 10, 2018 3:02 am
por fornelasa
Hola..
Si coincido, eso pasa en las versiones recientes de LO, es tal vez un ligerisimo fallo.
https://forum.openoffice.org/es/forum/v ... ico#p55189
Parece se soluciona muy sencillo pero creo si es un ligero bug
Sub tarea (Event=None)