Newsgroup: it.comp.appl.access
Titolo: Rendere non modificabile un controllo

Come e' possibile in VBA rendere non modificabile un controllo di una 
maschera?

 maschera?
Ciao,
ne abbiamo parlato proprio l'altro giorno...
Per i controlli che vuoi disattivare devi inserire un valore qualsiasi nella 
propeta tag  (es. pippo) -> bada bene non nella proprietà smart tag...quindi 
il codice VBA è il seguente
  Dim MieiControlli As Control
   For Each MieiControlli In Me.Controls
        If MieiControlli.Tag = "pippo" Then MieiControlli.Enabled = False
   Next
Questo del tag, nel caso in cui fai il ciclo su controlli,  è un'espediente 
da adottare per il fatto che un controllo deve avere lo stato attivo per 
essere disattivato altrimenti utilizzi un'alternativa "m2no bella" per 
qunato concerne i controlli e disattivi quelli che ti servono es.
Me.NomeControllo1.Enabled=False
Me.NomeControllo2.Enabled=False
....................................................
...................................................
Se sei a digiuno con VBA per access prova a leggere questa guida 
http://amscampus.cib.unibo.it/archive/00000782/01/VBA_per_Access_2000.pdf
.: 
ci sono delle nozioni di base oppure ti rechi sul sito 
www.accessgroup.it
 e 
ti scarichi la guida della sezione traduzioni che è ben fatta e molto più 
completa!
Notte

 maschera?
Pardon...ne ho sparato 1 altra delle mie (sono "vero fuso" ormai...in questi 
giorni farò riposare 1 pò il "cervello")...
Quindi a differenza della cavolata che ho detto poco fà  puoi disattivare i 
controlli che "NON" hanno lo stato attivo (quelli con il focus per 
intenderci) quindi se li vuoi disattivare all'apertura del form basta 
scrivere
Private Sub Form_Load()
Dim MioControllo As Control
   For Each MioControllo In Me.Controls
      MioControllo.Enabled = False
   Next
End Sub
Altrimenti se utilizzi un pulsante etc...puoi utilizzare il seguente codice
Private Sub Pulsante_Click()
 On Error Resume Next
'in maniera tale che non ti viene dato
'errore quando lo stato attivo si sposta
'sul pulsante che utilizzi
Dim MioControllo As Control
   For Each MioControllo In Me.Controls
       MioControllo.Enabled = False
   Next
End Sub
oppure utilizzi le soluzioni della precedente risposta: entrambe valide 
quando i controlli non hanno lo stato attivo
Notte
Gaspare 

 maschera?
Se poi con 1 pulsante ti vuoi "sbizzarrire" ad attivare e disattivare...
Private Sub Pulsante_Click()
On Error Resume Next
Dim MioControllo As Control
   For Each MioControllo In Me.Controls
       If MioControllo.Enabled = False Then
          MioControllo.Enabled = True
       Else
         MioControllo.Enabled = False
       End If
   Next
End Sub 

I  controlli che "NON" hanno lo stato attivo = quelli che non hanno il 
focus
Notte...anche a me ;-) 

 ha scritto nel messaggio
news:92sne.971334$b5.42...@news3.tin.it...


Io la scriverei cosě:
MioControllo.Enabled = Not MioControllo.Enabled
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

[CUT]
;-) 

[CUT]
Buon "divertimento" alla CISA...spero che prima o poi ci incontreremo ;-) 

 Buon "divertimento" alla CISA...spero che prima o poi ci incontreremo ;-)
Io non ci sarò, forse ti è sfuggito, ma probabilmente ci troveremo
in qualche raduno prossimo.



Io credo che prima o poi ci si possa incontrare e parlare un pň: in fondo 1 
interesse in comune l'abbiamo ;-)
Buona giornata 

 Buona giornata
SArebbe bello, ma non solo per riparlare dell'interesse comune (già 
abbastanza noto e discusso)!
Stringersi la mano, guardarsi in faccia mentre ci si parla magari attorno ad 
una bella tavolata!
Napoleone 

[CUT]
E bravo Napolenone: ci hai "azzeccato" ! Era proprio quello che intendevo 
dire io con la differenza che prima o poi salterà fuori qualche "piccolo" 
riferimento alla "programmazione" ;-) 

[CUT]
... e se si parla di "programmazione" mi sà che è difficile "tenere testa" 
ad Alessandro ;-) 

 ha scritto nel messaggio 
news:ljBne.1478766$35.55...@news4.tin.it...

Ciao Gaspare, tutto bene?
Io faccio un lavoro completamente diverso,
 per cui parlare di programmazione diventa uno svago,
un diversivo (assodato che mi appassiona).
Ma chi per lavoro fa questo, non penso che quando si siede al tavolo
per gustarsi un piatto di linguine con cozze, vongole e scambi, abbia
voglia di parlare del codice che non funziona!
Indubbiamente se ne parlerà, ma non dovrebbe essere quello il
motivo che ci farebbe incontrare.
Napoleone 

 ad Alessandro ;-)
Indubbiamente, ma dobbiamo riconoscere grandi meriti e competenza anche ad 
altri!
Permettimi l'osservazione:
Sei un fan sfegatato di Alessandro! o sbaglio?
Buon appetito a tutti
Napoleone 

 Napoleone
Grazie stò bene...tranne un "pò" di stress...
E' giusto quello che dici ma è anche vero che sono gli interessi a tenere 
unite le persone quindi se viene Alex mi pare difficile che non si parli di 
bit e byte fra 1 cozza ed 1 vongola...oltretutto per lui si tratta di 
"giochini" ;-) 

 ha scritto nel messaggio 
news:3tBne.1478805$35.55...@news4.tin.it...

Ti debbo confessare, che se dovessi sedere a fianco di alessandro,
mi farei suggerire qualche buona ricetta, gustosa e veloce!
E su questo mi sa che ha molto da dire!
Buon appetito 

 ha scritto nel messaggio 
news:gtBne.39048$795.1...@twister1.libero.it...

No...si scherza! L'ho stimo ovviamente ;-)