Newsgroup: it.comp.appl.access
Titolo: Come filtrare una query tramite la data, immessa però da una maschera, non sui criteri

Come posso collegare i criteri che inserirsco in una maschera con quelli di 
una query per fare in modo che a seconda dell'intervallo di date che 
inserisco nella maschera, la query mi filtri solo i dati dentro a quelle 
date ?
Grazie !! 

 ha scritto nel messaggio 
news:cl7rh8$2ja$1...@lacerta.tiscalinet.it...

i campi data della maschera li chiami DAL e AL la form la chiami PIPPO
in query nel campo data metti il criterio >= forms![pippo]![dal] and 
<=forms![pippo]![al]
su dopo aggiornamento dei campi DAL e AL esegui un requery che ti mostrerà 
solo i dati che ti interessano
ciao simba883

 ha scritto nel messaggio 
news:cl89uk$mmd$1...@lacerta.tiscalinet.it...

L'ho provata, anche costruendo una nuova maschera dove i dati da filtrare 
sono in una sottomaschera, ma mi dice sempre di inserire i dati in una 
maschera che mi appare poco prima che mi appaia la mia maschera.
E comunque anche dopo aver scritto l'intervallo delle date la maschera che 
mi apre non le filtra.
Il tuo concetto è giusto, ma forse nel mio caso non funziona. 

= forms![pippo]![dal] OR forms![pippo]![dal] Is Null
Ciao
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Il tuo concetto č giusto, ma forse nel mio caso non funziona.
prova cosi
non mettere nulla nei criteri della query anzi associa la tabella 
direttamente alla form senza nemmeno la sottomaschera
quando entri vedrai tutti i record della tabella
su dopoaggiornamento dei campi DAL e AL mettici questo codice
    ----------------------------
    Me.Filter = CostruisciFiltro
    Me.FilterOn = True
sotto nel codice dichiara CostruisciFiltro come segue
------------------------------------
Function CostruisciFiltro() As String
CostruisciFiltro = ""
If (Forms![pippo]![dal] <> "") And (IsNull(Forms![pippo]![dal]) = False) 
Then
    If CostruisciFiltro = "" Then
        CostruisciFiltro = CostruisciFiltro & "[data] >= 
Forms![pippo]![dal]"
    Else
        CostruisciFiltro = CostruisciFiltro & " and [data] >= 
Forms![pippo]![dal]"
    End If
End If
If (Forms![pippo]![AL] <> "") And (IsNull(Forms![pippo]![AL]) = False) Then
    If CostruisciFiltro = "" Then
        CostruisciFiltro = CostruisciFiltro & "[data] <= Forms![pippo]![al]"
    Else
        CostruisciFiltro = CostruisciFiltro & " and [data] <= 
Forms![pippo]![al]"
    End If
End If
End Function
questo perņ funziona vero?
ciao Simba883 


Hehe, ora lo provo subito !
Grazie per l'interesse ! 


Private Sub adata_AfterUpdate()
Me.Filter = CostruisciFiltro
    Me.FilterOn = True
End Sub
Private Sub data_AfterUpdate() <------- Si blocca qua
Me.Filter = CostruisciFiltro
    Me.FilterOn = True
End Function
End Sub
Function CostruisciFiltro() As String
CostruisciFiltro = ""
If (Forms![pippo]![dal] <> "") And (IsNull(Forms![pippo]![dal]) = False) <--  
Riga rossa
Then
    If CostruisciFiltro = "" Then
        CostruisciFiltro = CostruisciFiltro & "[data] >= "
Forms![pippo]![dal]" <-- Riga rossa
    Else
        CostruisciFiltro = CostruisciFiltro & " and [data] >= "
Forms![pippo]![dal]" <-- Riga rossa
    End If
End If
If (Forms![pippo]![al] <> "") And (IsNull(Forms![pippo]![al]) = False) Then
    If CostruisciFiltro = "" Then
        CostruisciFiltro = CostruisciFiltro & "[data] <= Forms![pippo]![al]"
    Else
        CostruisciFiltro = CostruisciFiltro & " and [data] <= "
Forms![pippo]![al]" <-- Riga rossa


>> questo però funziona vero?

RISOLTO TUTTO CON UNA MACRO.