libreoffice base 6.4.1.2
Ho provato varie macro prese sui forum per aprire una form alla pressione di un pulsante.
Nessuna ha funzionato, ottengo sempre lo stesso errore: “Errore di runtime BASIC. Variabile dell’oggetto non impostata”
Questo è uno degli esempi che ho trovato:
Sub Ouvre_New_Contact( oEvent as variant )
temp() = ThisDatabaseDocument.FormDocuments.ElementNames
count = ThisDatabaseDocument.FormDocuments.Count
MsgBox count
For i = 0 to count -1
MsgTxt = MsgTxt & Chr$(13) & temp(i)
Next
MsgBox MsgTxt
ThisDatabaseDocument.FormDocuments.getByName("New_Contact").open
End Sub
ma il risultato è lo stesso.
Diversamente i report si aprono correttamente con la macro seguente:
Sub allievi_x_docente
nometuoreport="allievi_x_docente"
ApriReportPernome(nometuoreport)
End Sub
'________________________________________________
Sub ApriReportPernome(nome)
pip = thisComponent.Parent.getReportDocuments
Dim ReportPropArgs(1) As New com.sun.star.beans.PropertyValue
ReportPropArgs(0).Name = "ActiveConnection"
ReportPropArgs(0).Value=thisComponent.Drawpage.Forms(0).ActiveConnection
ReportPropArgs(1).Name = "OpenMode"
ReportPropArgs(1).Value = "open"
penReport1 = pip.loadComponentFromURL(nome,"_blank",8,ReportPropArgs())
End Sub
Grazie per ogni aiuto.
Pier Luigi