Newsgroup: it.comp.appl.access
Titolo: Chiamare tutti i CAMPI di una maschera in VBA

Salve a tutti, espongo subito il mio quesito :
In una maschera ho diversi campi che fanno riferimento ad una
tabella , al momento dell'apertura della maschera , quindi sull'evento
"su apertura" TUTTI i campi della maschera vorrei rispondessero alla
proprietà :
 tuttiicampi.enabled =TRUE.
Siccome sono 27 campi anzichè creare una istruzione per ogni campo
tipo :
campo1.enabled = TRUE
campo2.enabled = TRUE ecc....
esiste un comando VBA che mi include tutti i campi presenti in una
maschera ?


Fai attenzione che per fare questo serve un controllo al quale
assegnare il focus.
Se hai un Button puoi usare quello.
Detto questo:
Function fModifyStatus(valore as Boolean)
Dim ctl as Access.Control
Me!ControlloDaAttivare.SetFocus
For each ctl in Me.Controls
   If Len(ctl.ControlSource & "")>0 Then
        ctl.Enabled=Valore
   End If
Next
fModifyStatus=Valore
End Function
La chiami così:
Call fModifyStatus(True)
oppure
Call fModifyStatus(False)
Ciao
@Alex

 ha scritto nel messaggio 
news:2b6194ad-a427-45c7...@d19g2000yqb.googlegroups.com...
Salve a tutti, espongo subito il mio quesito :
In una maschera ho diversi campi che fanno riferimento ad una
tabella , al momento dell'apertura della maschera , quindi sull'evento
"su apertura" TUTTI i campi della maschera vorrei rispondessero alla
proprietą :
 tuttiicampi.enabled =TRUE.
Siccome sono 27 campi anzichč creare una istruzione per ogni campo
tipo :
campo1.enabled = TRUE
campo2.enabled = TRUE ecc....
esiste un comando VBA che mi include tutti i campi presenti in una
maschera ?
trovi molti aiuti su i siti di riferimento...anche nell'help....
in ogni caso si tratta di un ciclo
dim ctrl as control
for each ctrl in me
    ctrl.enabled = true
next ctrl
ciao
-- 
Roberto da Parma 

 Roberto da Parma
Grazie ad entrambe per l'aiuto

 Roberto da Parma
Troppo presto per il grazie ..............
Ho provato la tua soluzione ma si genera un errore :
Proprietà o metodo non supportati dall'oggetto.
Infatti sulla riga "ctrl.enabled = true" , con il compositore
automatico , la proprietà ENABLED per la variabile CTRL non compare.
Mi puoi aiutare ?

 Grazie ad entrambe per l'aiuto
Finalmente un po di chiarezza nel NG!
--
ac


Se ti dicessi che ti sta bene...
;-)
Non hai letto il mio codice con i miei commenti perchè aveva qualche
riga in più, ed ora ti trovi a non capire il perchè di quel
problema...
Saluti
@Alex


Scusa Alessandro ma ho commesso l'errore più classico che si commette
quando siamo inesperti e a digiuno di programmazione come me  :
scegliere sempre la soluzione più semplice o più comprensibile per le
proprie conoscenze senza sforzarsi di capire anche la soluzione
apparentemente più difficile!!!!
A tale proposito mi viene in mente una cosa che mi ripeteva sempre il
mio babbo quando ero piccolo :" Ricordati che la gattina frettolosa
fece i gattini ciechi " ! oppure " La strada che sembra più corta è
quella più lunga " !!!!!
Credo tu ti riferissi a quando hai scritto "Fai attenzione che per
fare questo serve un controllo al quale
assegnare il focus. "  !!!!!
Provo a seguire la tua soluzione anche se mi è poco chiara .

 ha scritto nel messaggio 
news:cc8bae5c-1c82-484b...@17g2000vbf.googlegroups.com...



la soluzione DELLA Baraldi :-))) è certo moooolto più completa e nemmeno 
tanto complicata ma così funziona uguale
Private Sub Form_Load()
On Error Resume Next
Dim ctrl As Control
For Each ctrl In Me.Controls
    ctrl.Enabled = True
Next ctrl
End Sub


 ha scritto nel messaggio 
news:cc877832-5979-41ba...@a39g2000yqc.googlegroups.com...



Saluti
@Alex
Perchè dici che così non funzia??? prova...
Private Sub Form_Load()
On Error Resume Next
Dim ctrl As Control
For Each ctrl In Me.Controls
    ctrl.Enabled = True
Next ctrl
End Sub
ciao alex(a) :-)))
-- 
Roberto da Parma 

 ha scritto nel messaggio 
news:cc8bae5c-1c82-484b...@17g2000vbf.googlegroups.com...



non sempre la strada più corta è quella sbagliata!
;-)


 tanto complicata ma cosě funziona uguale
allora funzionano sia quella DELLA Baraldi sia quella DELLA Arisi
un saluto ad "entrambe"
^__^
Daniele

 End Sub
-- 
Ciao
Geppo 

"geppo" <c...@tin.it.invalid> ha scritto nel messaggio 
news:HVaul.283460$FR.5...@twister1.libero.it...

sai quando si scrivono le cose "buttate" li....succede... :-))
molto meglio geppo!


 Geppo
No, o diabiliti la gestione errori o ti accerti prima che il Focus sia
su un controllo che non devi disabilitare.
@Alex

 ha scritto nel messaggio 
news:2d79a37a-0bbb-4029...@t3g2000yqa.googlegroups.com...
....
No, o diabiliti la gestione errori o ti accerti prima che il Focus sia
su un controllo che non devi disabilitare.
Scusa se mi permetto, ma credo che questa volta ti sbagli.
P.S.: non faccio faccine, perchè ho capito che non ti piacciono.
-- 
Ciao
Geppo 

 ha scritto
cut
No, o diabiliti la gestione errori o ti accerti prima che il Focus sia
su un controllo che non devi disabilitare.
@Alex
A volte anche i grandi errano...
Ciao, Carlo