Rendere visibile o invisibile alcuni campi nel formulario

[Giove]

Ciao a tutti, con il vostro aiuto sono riuscito a risolvere una marea di problemi del mio database.
Mi rimane un'ultima cosa d sistemare.

Devo rendere visibile o invisibile dei campi e due pulsanti del formulario in base al dato impostato in un campo denominato Test Tipo.

In questo momento funziona solo quando esco dal campo " Test Tipo" dove viene impostata la variabile.

Io vorrei che passando da un record all'altro il formulario si aggiornasse in base alla valore presente impostato nel campo Test Tipo.

Ora la macro è legata al campo Test tipo.

Grazie per l'aiuto.

Allego link datadase https://dl.dropboxusercontent.com/u/258 ... rtella.rar

[charlie]

Ciao, forse non hai ricevuto risposte per la collocazione della domanda. La sposto in Macro.

[patel]

gli utenti Dbase non sono molti su questo forum, sarebbe meglio indicare nel titolo del primo post che si tratta di dbase, i formulari esistono anche su Calc.

[LUGIUDANI]

Ciao Giove,

per far sì che un pulsante o un campo svanisca alla selezione di un determinato testo nel campo TestoTipo, devi realizzare una macro che indichi innanzitutto cosa deve esserci scritto per eseguire poi i comandi di non visualizzazione di determinati elementi.
Io ti consiglierei di usare la funzione SELECT CASE.
Ti segno qui sotto un comando che ho utilizzato io per la finestra di dialogo però realizzata in Calc.

.....
sShName = oSheet.Name 'nome del foglio attivo
Select Case sShName ' elenco procedure da eseguire a seconda del foglio attivo
Case "Foglio1"
oDlg.getControl("nome elemento di controllo").visible = True 'mi mostra l'elemento indicato
oDlg.getControl("nome elemento di controllo").visible = False 'mi nasconde l'elemento indicato
Case "Foglio2"
oDlg.getControl("nome elemento di controllo").visible = False
Case Else 'qui di seguito puoi indicare cosa fare nel caso non ci sia nessuna selezione particolare e quindi quali elementi mantenere visibili o invisibili
oDlg.getControl("nome elemento di controllo").visibile = True
End select
.....

Spero di esserti stata utile!