In questo post il fendente propone un codice interessante e funzionante per aprire formulari cliccando un pulsante:
Codice: Seleziona tutto
Sub OpenForm( oEvent as variant, aFormName as string) as variant
Dim args(1) As New com.sun.star.beans.PropertyValue
Dim container as variant
container = oEvent.Source.Model.Parent.ActiveConnection.Parent.DatabaseDocument.FormDocuments
args(0).Name = "ActiveConnection"
args(0).Value = oEvent.Source.Model.Parent.ActiveConnection
args(1).Name = "OpenMode"
args(1).Value = "open"
container.loadComponentFromURL(aFormName,"_blank",0,args())
End Sub
Sub onClickOpenInserisci ( oEvent as variant )
OpenForm(oEvent, "Inserisci nuovo utente")
End sub
E' possibile?