ALLORA: ho aggiunto la macro Openurlimm come mi hai scritto e schiacciando i pulsanti mi apre i files (stupendo) di cui ho messo i link sulla tabella
Ho cercato di inserire la seconda macro (abilitaPulsanti) che mi hai mandato per attivare i pulsanti solo nel caso in cui nella relativa riga della tabella sia presente il link ma mi da problemi
prevalentemente mi dice
Errore di runtime BASIC.
Si è verificata un’eccezione
Type: com.sun.star.container.NoSuchElementException
Message: .
DOVE SBAGLIO???
GRAZIE
Perchè si capisca, la domanda si riferisce a questi post:
e
La macro ‘abilitaPulsanti’ è generica, nell’esempio che ho postato non può funzionare perché il contenuto della casella di testo cambia. Il ‘link’ è su più record. Va adattata …
Questa, invece, funziona sul file di esempio che riporto modificato sotto. La macro è assegnata all’evento ‘dopo la modifica del record’ del MainForm:
Sub abilitaPulsante
Dim oDoc As Object
Dim oDrawpage As Object
Dim oForm As Object
Dim sTextBox1 As String
oDoc = thisComponent
oDrawpage = oDoc.drawpage
oForm=oDrawpage.Forms.getByIndex(0)
oForm.GetByName("Pulsante 1").Enabled = TRUE
sTextBox1=oForm.GetByName("txtLink").Text
IF sTextBox1= "" THEN oForm.GetByName("Pulsante 1").Enabled = FALSE
End sub
