Saque de la lista la macro para abrir formularios,
Sub OpenForm(Event As Object)
Dim Form As Object
Dim FormDoc As Object
Dim Forms As Object
Dim DBDoc As Object
Dim Args(1) As New com.sun.star.beans.PropertyValue
Dim FormName As String
Form=Event.Source.Model.Parent
Forms=Form.Parent
FormDoc=Forms.Parent
DBDoc=FormDoc.Parent
Args(0).Name="ActiveConnection" : Args(0).Value=Form.ActiveConnection
Args(1).Name="OpenMode" : Args(1).Value="open"
FormName="nombre-formulario"
DBDoc.FormDocuments.loadComponentFromURL(FormName,"_blank",0,Args)
End Sub
Funciona bien, pero hay que repetirla por cada formulario que quieres abrir.
La cuestion es como se le puede pasar por ejemplo el nombre del boton o la
etiqueta, que presionas y que se llamara igual que el formulario a abrir para
evitarnos el tener la misma macro repetida un monton de veces.
Saludos
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
