Newsgroup: it.comp.appl.access
Titolo: Filtrare una maschera più volte

Buongiorno a tutti!
Il problema che vorrei risolvere è questo: in una maschera di filtraggio dei
record.........ho inserito 5/6 campi filtro, quindi in base ai valori che
scelgo il filtraggio mi restituirà alcuni record. Ora il problema che vorrei
risolvere è questo:non sò come fare per impostare dei filtri successivi, vi
faccio un esempio concreto........ ammettendo che abbia i campi nome :
NOME,COGNOME,INDIRIZZO,CITTA',ECC
Inserisco il nome "Paolo" e mi vengo restituiti 25 nomi "Paolo"....ora per
questi 25 record voglio vedere quelli che sono residenti a "ROMA"
.........risultato =2.............inoltre devo anche essere in grado di
togliere prograssivamente n filtri e mostrare i risultati di questa
eliminazione
Volevo chiedervi come realizzare questa cosa (cosa devo studiare e provare)
dato che se provo a filtrare una seconda volta mi vengono filtrati non solo
i 25 record ma tutti i record nella maschera....help!!
Scusate se magari sono stato poco chiaro....ciao a tutti/e
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ha scritto nel messaggio
news:151Z96Z0Z8Y10...@usenet.libero.it...

Devi legare con l'operatore AND le varie condizione di filtri.
Se per filtrese i record in cui NOME è uguale a "Paolo" hai scritto:
Me.Filter = "NOME = 'Paolo'"
Per filtrare i record per i quali il NOME è uguale a "Paolo" e la CITTA (non
possono esistere nomi che contengono il valore apice) è uguale a "ROMA",
prova a scrivere:
Me.Filter = "NOME = 'Paolo' And CITTA = 'ROMA'"
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 wrote in message
news:151Z96Z0Z8Y10...@usenet.libero.it

La cosa è secondo me un pò laboriosa, e credo che convenga invece
di aggiungere i Criteri in progressione, ricomporre ogni volta
la Stringa di Filtro.
Supponi come dicevi di avere 5 Criteri e le relative 5 TextBox
in cui inserire i criteri.
Supponi sempre di avere un Pulsante di Applicazione Filtro.
Su evento Click del Pulsante componi il Filtro
Via codice leggi il contenuto di ogni TextBox e se non Null Aggiungi:
Function BuiltFilter() as String
Dim strFilter as string
strFilter=vbNullstring
If Len(TextCriterio1)>0 then strFilter="Nome = " & chr(34) &
txtCriterio1 & chr(34) & " AND "
If Len(txtCriterio2)>0 then strFilter=strFilter & "Cognome = " & chr(34)
& txtCriterio1 & chr(34) & " AND "
If Len(txtCriterio3)>0 then strFilter=strFilter & "Indirizzo = " &
chr(34) & txtCriterio1 & chr(34) & " AND "
If Len(txtCriterio4)>0 then strFilter=strFilter & "Città = " & chr(34) &
txtCriterio1 & chr(34) & " AND "
If Right(strfilter, 4) = "AND " Then
   strfilter = Left(strfilter, Len(strfilter) - 4)
End If
BuiltFilter=strFilter
End Function
Ti ho buttato giù qualcosa di semplice, io lo gestisco in modo
un pò differente, ma il concetto è questo.
Affianco ad ogni TextBox metti un comando di Clear in modo
da azzerare il Criterio.
Poi applichi il Filtro con la proprietà Filter....!
P.S. Ti ho inserito i chr(34) per evitare la possibilità
che con la presenza di apostrofi la stringa generi errore:
Città="L'Aquila"
Cognome"Dall'Oglio" ecc......!
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG