Respuesta http://user.services.openoffice.org/es/forum/viewtopic.php?f=31&t=702
Sub openFormByTag(oEv) REM OOo3.0: Reads the form name from a calling control's tag cWhat = com.sun.star.sdb.application.DatabaseObject.FORM oModel = oEv.Source.getModel() sName = oModel.Tag oView = oModel.Parent.Parent.Parent.Parent.getCurrentController() oView.loadComponent(cWhat, sName, FALSE) End Sub lo de oEV supongo que es el Event de la otra macro Esta es la modificada por mi, con la nueva orden de OObase 3.1 sub abreformulario (Event As Object) cWhat = com.sun.star.sdb.application.DatabaseObject.FORM oModel = Event.Source.getModel() sName = oModel.Tag ThisDatabaseDocument.FormDocuments.getByName( sName ).open end sub Recordar que tag en propiedades es el " Informacion adicional" ¿Alguien encontro donde explica lo del event y sus opciones? --------------------------------------------------------------------- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
