In libreoffice base in una tabella subordinata ho creato un campo SCHEDA che contiene il collegamento ad un file di testo. NEL formulario ho introdotto il formulario principale "PIANTE"ed il secondario associato “PIANTE_SCHEDA” contenente il campo “SCHEDA” con il percorso del file di testo. Ho creato un pulsante che per ogni record si collega al file di testo corrispondente. Ho associato al pulsante questa macro:
Sub ApriScheda
Dim oForm As Object
Dim oSubForm As Object
Dim sFilePath As String
oForm = ThisComponent.Drawpage.Forms.getByName("PIANTE")
oSubForm = oForm.getByName("PIANTE_SCHEDA")
' Ottenere il percorso del file dal record corrente
sFilePath = oSubForm.getByName(“SCHEDA”).Text
If sFilePath <> "" Then
' Apri il file
Shell("cmd /c start " & sFilePath, 0)
End If
End Sub
Ma il risultato alla riga 13 è questo
Errore di runtime BASIC.
Proprietà o metodo non trovato: Text.