Comunque ecco la macro che mette i controlli in lettura o lettura/scrittura (io ho usato la proprietà enabled, ma esiste anche la ReadOnly).
Codice: Seleziona tutto
Sub delcavolo
dim mioform As Object
dim casella as object
dim Forms As Object
'dim I as Integer deve essere una variabile global così posso tenere
'memorizzato il valore per sucessivi riutilizzi fino alla chiusura del db. Ovviamente chiuso il db la variabile si azzera
Forms = ThisComponent.Drawpage.Forms
mioform = Forms.getByName("TUONOMEFORM")
If I = 0 or I = "" then
casella = mioform.getByName("TUONOMELISTBOX")
casella.Enabled = False
I = 1
MsgBox "listbox in sola lettura"
Else
casella = mioform.getByName("TUONOMELISTBOX")
casella.Enabled = True
I = 0
MsgBox "listbox in lettura/scrittura"
EndIf