Newsgroup: it.comp.appl.access
Titolo: Deselezionare caselle di controllo in una maschera

Come faccio a deselezionare tutte le caselle di controllo presenti in una
maschera ?
Ho provato ad inserire questo codice nella maschera, ma non va :
Me!Adesione.Selected = False
Tkanks in Advance.
Ciao.
--
------


Se come Casella di Controllo intendi ListBox č cosě:
   Private Sub EraseSelection()
   Dim intCurr as Long
   For intCurr = 0 To Me.TuaCasellaControllo.ListCount - 1
      Me.TuaCasellaControllo.Selected(intCurr) = False
   Next intCurrCat
   End Sub
Se intendi TextBox non capisco cosa intendi DESELEZIONARE......!!
@Alex.

 ha scritto nel messaggio
news:3aiZ9.53732$YG2.1...@twister1.libero.it...



Se non postiamo dopo il quoting arriva il "Guardiano" e ci riprende....!
Io ho provato a chiamare una CeckBox Adesione in una Form
poi ho fatto:
Me.Adesione.Value=True oppure Me.Adesione=True
ed è andato tutto bene.
Se però vuoi ciclare tutte le CeckBox nella Form e forzarle =False
devi coclare l'oggetto Controls
Dim ctl as Control
For Each ctl in Me.Controls
   If TypeOf ctl Is CheckBox Then  ctl=false
next
@Alex.

 next
Ti chiedo scusa se ti faccio perdere tutto questo tempo, ma a volte uno da
le cose per scontato e si dimentica di scriverle.
Allora adesso, vado piano :
1 )Ho una Tabella Anagrafico, con il campo Sciopero Tipo Dati Sě/no
2) Ho una query Sciopero , cosi fatta :
In access :
SELECT Anagrafico.Nominativo,
IIf([Adesione]=True,([Paga]+Nz([Integrativ],0)+Nz([TotEnte],0)+Nz([Anagrafic
o.Ria],0))/26,0) AS Sciopero, [Ria.Mensilizzata]-[Ente] AS Diff,
[Ente]+[Diff] AS TotEnte, Anagrafico.Sciopero AS Adesione
FROM (Anagrafico INNER JOIN [Diviso 12 Ultimi] ON Anagrafico.[Id
Retribuzione] = [Diviso 12 Ultimi].[ID Retribuzione]) LEFT JOIN RIA ON
Anagrafico.Nominativo = RIA.Nominativo
WHERE (((Anagrafico.Al)>Date() Or (Anagrafico.Al) Is Null))
ORDER BY Anagrafico.Nominativo;
 In Italiano :) : in pratica ho collegato le voci della retribuzioni dei
dipendenti sulle quali si calcola la giornata di sciopero (totale della
retribuzione mensile/ 26 che sono i giorni che vengono retribuiti in un
mese,=Totale da trattenere x un giorno di sciopero).
Il check lo faccio dare nel campo Adesione, cosi che il calcolo venga
effettuato.
3) Ho una maschera creata sulla query Sciopero, che funziona alla
perfezione, tranne per lo "sfizio" che mi č venuto di permettere di
selezionare o deselezionare le caselle in caso di un nuovo
inserimento.Immaggino che il codice che ho provato fino adesso simile a
quello da te consigliato :
    For Each ctl In Me.Controls
        If TypeOf ctl Is CheckBox Then
            ctl.Value = Not ctl.Value
        End If
    Next ctl
    Set ctl = Nothing
non funzione xchč il tutto č basato su una query.
ho anche capito, che in effetti basta dopo aver effettuato l'elaborazione
dello sciopero, bastere eliminare e subito ricreare il campo  il campo
Sciopero della tabella Anagrafico.
Mi puoi suggerire il codice giusto per fare ciň, sempre che non ci sia una
soluzione per by-passare il problema principale ?
grazie e scusa ancora !
ciao


Devi veramente scusarmi ma più cerchi di spiegarmi e meno capisco cosa vuoi
fare....!!!
1)Il codice di cui parli funziona anche se la Form è basata su QRY.
Porta pazienza, io sono un'pò tardivo, ma tu ci metti del tuo per rendermi
la cosa difficile..
@Alex.