Newsgroup: it.comp.appl.access
Titolo: testare checkbox

ciao a tutti
 
ho una sottomaschera (origine tb) con due campi
"Email" ed "esclusa"(campo booleano si/no).
 
ho necessit� di testare il controllo Esclusa
perch� se ho tutte le  checkbox spuntate
la Funzione mi da errore
 
� corretto fare in questo modo oppure c'� altro sistema?
 
            If Me!S_EmailFornitori_1.Form.RecordsetClone.RecordCount > 0 And 
_
                (Me!S_EmailFornitori_1.Form!Esclusa * 
Me!S_EmailFornitori_1.Form!Esclusa) = 0 Then
 
grazie
 
 
 

 = 0
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 
 

 ha scritto nel messaggio 
news:bjigpi...@mid.individual.net...

Ciao Karl
in effetti non va bene come ho fatto.
Il ragionamento da farsi � questo:
Se tutte le checkbox sono spuntate allora ..................
 
Ma come faccio a verificare questo?
 
 
 
 
 
 
 
 
 
 
 


Set Rst = Me.RecordsetClone
Rst.FindFirst "[Escluso]=0"
 
If Not (Rst.NoMatch) Then
    MsgBox "Tutte le caselle sono spuntate"    
else
    MsgBox "Ci sono caselle NON sono spuntate"    
End If
 
Rst.Close: Set Rst = Nothing

 Ma come faccio a verificare questo?
 
Set Rst = Me.RecordsetClone
Rst.FindFirst "[Escluso]=0"
 
If Not (Rst.NoMatch) Then
    MsgBox "Tutte le caselle sono spuntate"
else
    MsgBox "Ci sono caselle NON sono spuntate"
End If
 
Rst.Close: Set Rst = Nothing
 
grazie Fair87
 
mi da errore qui
Set rst = (necessario oggetto)
 
 

devi dichiarare gli oggetti che usi!!!
 
dim rst as recordset 
 
queste sono le basi......

 queste sono le basi......
 
ma l'ho dichiarata la variabile
Dim as Boolean
 
 

dim as boolean nn significa nulla...poi, rst è un recordset

 ha scritto nel messaggio 
news:79140d8a-ac65-49b8...@googlegroups.com...
dim as boolean nn significa nulla...poi, rst � un recordset
 
ciao Fair87
 
posso postarti il mio codice?
perch� proprio non ne vengo a capo
 
 


 ciao Fair87
 
cosi sembra funzionare, ma ho dei dubbi su dove posizionare  "Rs.Close: Set 
Rs = Nothing"
e se � il caso di metterne anche due
 
 
 
            Dim blRet As Boolean
            Dim Rs As Recordset, strSql As String, FieldName As String, 
My_Subject As String, Message As String
            Dim AttachDoc As String, CCstring, BCCstring
 
            Set Rs = Me!S_EmailFornitori_2.Form.RecordsetClone
            Rs.FindFirst "Esclusa=0"
 
            If Not Rs.NoMatch Then
 
            'Rs.Close: Set Rs = Nothing
 
            strSql = "SELECT DISTINCT IdFornitore, Esclusa, 
UnisciValoriFornitori_Chiusura([IdFornitore]) AS NewEmail FROM 
TbEmailFornitori_Chiusura Where IdFornitore = " & Me!IdFornitore
            Set Rs = CurrentDb.OpenRecordset(strSql, dbOpenDynaset)
 
            FieldName = Rs.Fields("NewEmail")
 
            'Trasforma il Report in PDF
            blRet = ConvertReportToPDF(Me.lstRptName, vbNullString, _
            Me.lstRptName.Value & ".pdf", False, True, 150, "", "", 0, 0, 0)
 
            My_Subject = "Chiusura"
            Message = ""
            AttachDoc = "C:\Chiusura.pdf"
            CCstring = ""
            BCCstring = ""
 
            SendingMailFromTable Rs, FieldName, My_Subject, Message, 
AttachDoc, CCstring, BCCstring
 
            Else
 
             'Trasforma il Report in PDF
            blRet = ConvertReportToPDF(Me.lstRptName, vbNullString, _
            Me.lstRptName.Value & ".pdf", False, True, 150, "", "", 0, 0, 0)
 
            End If
 
            Rs.Close: Set Rs = Nothing