Newsgroup: it.comp.appl.access
Titolo: Nascondere tutti i controlli di un form

Vorrei poter nascondere tutti i controlli (label, caselle di testo, pulsanti
ecc.) presenti sul form senza dover specificare tutti i nomi!
Che so...
me.NomeCotrollo1.Visible = False
me.NomeCotrollo2.Visible = False
me.NomeCotrollo3.Visible = False
...
me.NomeCotrolloN.Visible = False
C'è un modo?
Ciao


Dim Pippo as Control
For each control in me.comtrols
    ctl.visible = false
next
-- 
_ _
Ciao
MAssimiliano Amendola
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Sono aperte le iscrizioni  Info:  
www.donkarl.com/it

 next
Provo subito...
 Dim Pippo as Control
 For each control in me.coNtrols
     ctl.visible = false
 next
Ma non dovrebbe essere?
 Dim Pippo as Control
 For each control in me.coNtrols
     Pippo.visible = false
 next

 ha scritto nel messaggio 
news:oL7ae.3663$TR5....@news.edisontel.com...

Sei forte Massimo ;-) e Pippo a che serve? 


Si, Massimo si sarà distratto...a lui piacciono i "fumetti" ;-)
...è un tipo alla Dylan Dog lui ...vero Max? :-) 

 wrote in message
news:ET7ae.812583$
b5.36...@news3.tin.it

Direi che di tante risposte nessuna che funzioni....!!
Dim Pippo as Control
For each Pippo in me.Controls
   Pippo.visible = false
next
Saluti
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 @Alex
Provo..
Grazie mille Alex

 > next
Errore di runtime 91.
Blocco with non impostato...
Bah..
Ho provato a metterla anche su clic di un pulsante... nada.
Sigh...

 next
Non funge...
Ma dovrebbe nascondere tutti i controlli, vero?

 wrote in message
news:Y_7ae.812616$
b5.36...@news3.tin.it

Sai perchè..? perchè va in errore quando vuoi rendere
NON VISIBILE quello con lo stato attivo.
A prescindere dal fatto che non capisco l'utilità di questo metodo
per poterlo mettere in atto devi avere un Controllo nascosto(txtFocus)
sul quale spostare il Focus prima della Routine e non includerlo
nel Ciclo.
Per questo si può usare la proprietà TAG del controllo Nascosto
inserendo un valore ad esempio "X":
Dim ctl as Access.Control
Me!txtFocus.SetFocus
For each ctl in me.Controls
    If ctl.Tag<>"X" then ctl.Visibile=False
Next


 @Alex
mannaggia la sbomballata sderenata sdrucciolata...
volante 1 a volante....
la fretta


 Next
Per Tag di controllo intendi il nome del controllo?

 Next
Interessante l'utilizzo che fai del TAG.
Posso usarlo per qualsiasi altro utilizzo, vero?
In effetti è un valore "nascosto" del controllo...
Molto interessante.
Si può anche impostare da codice?

 Next
Perfetto, l'errore non si verifica ma... Non nasconde gli oggetti!
Ulp!
Com'è possibile?
Controls, leggo dalla guida, è l'insieme dei controlli dell'oggetto.
Dovrebbe nasconderli tutti.
QUalche dritta?

 wrote in message
news:Ap8ae.812726$
b5.36...@news3.tin.it

La "X" nella proprietà TAG l'hai messa solo nel controllo txtFocus..?
Deve funzionare verifica bene se non hai commesso qualche
altro errore, magari inserisci la gestione errori per vedere
il risultato, ed un Debug.Print per capire come funziona.


 ha scritto nel messaggio 
news:zN7ae.812551$b5.36...@news3.tin.it...

Pippo guida la volante.... ;-)
Ciao a tutti
Roberto 

 ha scritto nel messaggio 
news:Smxae.817218$b5.36...@news3.tin.it...

Io non ho ben capito il motivo di tale operazione e non saprei neanche su 
che evento la vorresti far effettuare ma...dico se associ la routine ad un 
evento della maschera?Non può andarti bene?
Ciao
Roberto 

 ha scritto nel messaggio 
news:dqxae.817232$b5.36...@news3.tin.it...

O se no potresti nascondere tutto tranne il tasto che stai premendo e se 
vuoi nascondere anche quello associ l'evento su un'altro controllo che se 
diventa "invisibile" ti nasconde il tasto...
Spero di essermi spiegato...preciso però tutto questo però non l'ho 
sperimentato.
A te provare se vuoi.
Ciao
Roberto 


Qui non è un problema di scelta di evento,
se anche lo subordini al click di un bottone, quel bottone avrà il focus e
quando il ciclo
proverà a nasconderlo verrà fuori lo stesso problema.
L'unica soluzione è quella del tag


 Roberto
Direi che non funzionerebbe sicuramente.
Con un ciclo sulla Collection Controls non discriminata
finirebbe ad essere interessato dal condizionamento
di Visible=False, il chè causerebbe errore.
La possibilità più semplice è quella di verificare il Nome
del controllo, ma è anche la meno flessibile.
Nel senso che se vuoi condizionare alcuni controlli invece
che altri, puoi inserire un elenco di IF o Select Case
per i controlli da escludere/includere.
Usando invece la proprietà TAG basta controllare quella.
Ciao
