Newsgroup: it.comp.appl.access
Titolo: notti che non dormo ma non riesco a capire

in una maschera ricerche o questo codice che allego
non riesco a far filtrare la casellacontrollo trasferito e casellacontrollo 
rientro
 
grazie
D.M
 
Private Sub Cerca_Click()
    On Error GoTo HELL
        Dim sSQL
 
            sSQL = "SELECT Paz_tutto.id, Paz_tutto.Paziente, 
Paz_tutto.data_ricovero, Paz_tutto.Anno, Paz_tutto.Mese, Paz_tutto.Regime, 
Paz_tutto.Trasferito, Paz_tutto.Rep_Trasf, Paz_tutto.Rientro " & _
            "FROM Paz_tutto"
 
 
            If [Form_InfoPaztot].Paziente.Value <> vbNullString Or _
               [Form_InfoPaztot].Anno.Value <> vbNullString Or _
               [Form_InfoPaztot].Mese.Value <> vbNullString Or _
               [Form_InfoPaztot].Regime.Value <> vbNullString Or _
               [Form_InfoPaztot].Trasferito = True Or _
               [Form_InfoPaztot].Rientro = True Or _
               [Form_InfoPaztot].CasellaControllo = True Then
 
 
            sSQL = sSQL & " WHERE"
 
            If [Form_InfoPaztot].Paziente.Value <> vbNullString Then
                sSQL = sSQL & " Paziente = '" & 
[Form_InfoPaztot].Paziente.Value & "' AND"
            End If
            If [Form_InfoPaztot].Anno.Value <> vbNullString Then
                sSQL = sSQL & " Anno = '" & [Form_InfoPaztot].Anno.Value & 
"' AND"
            End If
            If [Form_InfoPaztot].Mese.Value <> vbNullString Then
                sSQL = sSQL & " Mese = '" & [Form_InfoPaztot].Mese.Value & 
"' AND"
            End If
 
              If [Form_InfoPaztot].Regime.Value <> vbNullString Then
                sSQL = sSQL & " Regime = '" & [Form_InfoPaztot].Regime.Value 
& "' AND"
            End If
 
            If [Form_InfoPaztot].Trasferito.Value = True Then
                sSQL = sSQL & " Trasferito = '" & 
[Form_InfoPaztot].Trasferito.Value & "' AND"
            End If
 
            If [Form_InfoPaztot].Rientro.Value = True Then
                sSQL = sSQL & " Rientro = '" & 
[Form_InfoPaztot].Rientro.Value & "' AND"
            End If
 
            If [Form_InfoPaztot].CasellaControllo = True Then
            sSQL = sSQL & " id  >= '" & [Form_InfoPaztot].Casellaid.Value & 
"' AND"
 
            End If
            If [Form_InfoPaztot].CasellaControllo = True Then
            sSQL = sSQL & " id  <= '" & [Form_InfoPaztot].Casellaid1.Value & 
"' AND"
            End If
 
            sSQL = Mid(sSQL, 1, Len(sSQL) - 4)
           MsgBox sSQL
          List.RowSource = sSQL
 
          List.Requery
 
        End If
 
 
 
    Exit Sub
HELL:
    ' view an error msgbox with sub routine caller's name in title
    MsgBox Err.Description, vbCritical, "Form_InfoPaztot - Cerca_Click"
End Sub 
 

After serious thinking D.M wrote :

Prova a mettere online il tuo database, spiegando ciò che vuoi
fare per ottener che cosa.
 
Bruno

Ci sono APICETTI dove non dovrebbero esserci...
Solo i campi TESTO richiedono l'APICETTO prima e dopo la stringa, e i campi BOOLEANI e NUMERICI o DATA no...
 
Osservazione... ma vedo che oltre al campo DATA hai pure il campo ANNO e MESE...?
Grave errore... la data ha già Anno e mese non ti pare...?
Anche il primo Controllo(se sono tutti compilati) non serve a nulla dal momento che poi lo effettui nuovamente in modo singolo...!
 
Saluti
@Alex

Grazie Apici non dovevano esserci, risolto tutto
Come sempre Grazie Grazie Grazie a tutti Voi
DM
 
"@Alex"  ha scritto nel messaggio 
news:f8edfe1d-2d03-48f4...@googlegroups.com...
