Newsgroup: it.comp.appl.access
Titolo: Form-disattivare tutte le sottomaschere

Ciao,
nella miamaschera ho parecchie sottomaschere che rendo invisibili
all'apertura della maschera principale, nel seguente modo:
M_AE_A_Nuovo.Visible = False
M_AE_E_Nuovo.Visible = False
M_AE_U_Nuovo.Visible = False
M_AE_B_Nuovo.Visible = False
M_AE_C_Nuovo.Visible = False
M_AE_D_Nuovo.Visible = False
M_AE_S_Nuovo.Visible = False
M_AE_F_Nuovo.Visible = False
Esiste un comando piů veloce che mi dia lo stesso risultato??
Saluti CF


Puoi utilizzare questa funzione sull' evento apertura:
Sub Invisible(x as String)
' Rende invisibili tutte le sub form
' dove x è il nome del controllo subform
Dim ctl As Control
    For Each ctl In Forms(x).Controls
        If ctl.ControlType = acSubform Then
           ctl.Visible = False
        End If
    Next
End Sub
Saluti
Mak

 Mak
Correggo un piccolo errore sulla dicitura libera
' Dove X è il nome della maschera Principale dove sono
situati i controlli subform
Saluti
Mak

 Saluti CF
Nella proprietà Tag dei controlli sottomaschera di cui sopra e che vuoi
rendere non visibili scrivi una X.
Quindi gnera il seguente codice VBA:
Dim ctl As Control
For Each ctl In Me.Controls
    If ctl.Tag = "X" Then
        ctl.Visible = False
    End If
Next ctl
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Saluti CF
Dim ctl as Control
For Each Ctl in Me.Controls
    If ctl.ControlType=acSubform then ctl.Visiblr = False
Next
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Ringrazio tutti per i suggerimenti, proverò domani e vi darò conferma del
buon funzionamento.
Cmq tenete presente che le sottomaschere, al bisogno dovranno essere rese
visible=tru, credo non ci siano problemi con i vostri suggerimenti.
Ciao a domani CF


PERFETTO!!!!!!!
Vorrei capire
1) Questo codice lo posso utilizzare anche per le etichette? e come?
2) una maschera in modalità visible=false (considerando quante sono) può
rallentare il sistema??
Grazie Alex, gentile come sempre.
saluti CF


Mi segnala un errore di end sub, piů o meno....
riprovo e riposto
Ciao CF


Ciao Roberto,
Ho inserito una X nella proprietą Tag di ogno sottomaschera.
Sull'evento apertura della maschera principale ho inserito il tuo codice.
Le vedo lostesso.
Saluti CF

 Saluti CF
La X non la devi scrivere nella proprietà Tag delle sottomaschere, ma nella
proprietà Tag dei CONTROLLI SOTTOMASCHERA che sono contenuti nella maschera
principale.


 rallentare il sistema??
Sinceramente non sò, ma sicuramente non nel Refresh video....!
Saluti.
@ALex.


 ha scritto nel messaggio
news:04e2086d1ebec23f11...@mygate.mailgate.org...

ciao  CF
PS:Hai dato un'occhiatina al mio post:
Query di unione..... del 2-12-2002

 ha scritto nel messaggio
news:A24H9.52994$2B1.1...@twister2.libero.it...

Mi pare di capire, che secondo il tuo suggerimento, andrei a rendere
invisibile "singolarmente" ogni controllo contenuto nella sottomaschera o in
più sottomaschere? A me interessa invece, rendere invisibile (all'apertura)
tutte le sottomaschere contenute nella maschera principale, poi le attiverò
man mano che mi occorrono.
Ciao CF

 Ciao CF


 
Sante parole......! ;-)
Io solitamente uso spesso i TAG per altre
gestioni, e per queste cose se posso li evito.
Se lo conosci lo eviti....!!!
Ciao Roberto.
@Alex 
