disattivazione pulsanti maschera in caso di recoro vuoto

Buonasera
Grazie al Vostro aiuto sono riuscita a fare funzionare con la macro i link contenuti in una tabella di Base
Ora i pulsanti aprono correttametne il file (se lo trovano)
come posso fare ad aggiungere la funzionalità per cui se il record è vuoto il pulsante non si attivi???
Per favore spiegazioni dettagliate perchè sono neofita
Grazie

Ciao, devi adoperare una macro da associare all’evento Durante il caricamento del Form: (nell’esempio ci sono 2 caselle di testo e 2 pulsanti. MaiForm = nome del formulario, Pulsante x = nomi dei pulsanti, txtTesto x = nomi delle caselle di testo)

Se la mia riposta ti ha aiutato, votala con :heavy_check_mark: (qui a sinistra)

Sub AbilitaPulsanti
Dim oDoc As Object
Dim oDrawpage As Object
Dim oForm As Object
Dim sTextBox1 As String
Dim sTextBox2 As String

oDoc = thisComponent
oDrawpage = oDoc.drawpage

oForm=oDrawpage.Forms.getByName("MainForm")

oForm.GetByName("Pulsante 1").Enabled = TRUE
oForm.GetByName("Pulsante 2").Enabled = TRUE

sTextBox1=oForm.GetByName("txtTesto 1").Text
sTextBox1=oForm.GetByName("txtTesto 2").Text

IF sTextBox1= "" THEN oForm.GetByName("Pulsante 1").Enabled = FALSE
IF sTextBox2= "" THEN oForm.GetByName("Pulsante 2").Enabled = FALSE

End sub