Newsgroup: it.comp.appl.access
Titolo: Filtro DAO

Trovo simpaticissima e utile questa routine....
Private Sub Cerca_AfterUpdate()
Dim strInput, strFiltro As String
If Not IsNull(Me.Cerca) Then
strInput = "*" & Me.Cerca.Value & "*"
End If
strFiltro = BuildCriteria("Localita", dbText, strInput)
Me.Filter = strFiltro
Me.FilterOn = True
End Sub
Purtroppo mi da errorre su
strFiltro = BuildCriteria("Localita", dbText, strInput)
e ovviamente non essendo farina del mio sacco mi ha messo in scacco...
Potreste provare se a voi funziona....
grazie
Massimo

 ha scritto nel messaggio
news:b745cb$bo3$1...@lacerta.tiscalinet.it...

Riapri il sacco e cercaci in un modulo anche la funzione BuildCriteria e
copiala in un modulo del tuo database.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 copiala in un modulo del tuo database.
Ok... allora adesso vado al capitolo che riguarda i moduli ed il loro uso...
:-)
Poi ti farò sapere se sono riuscito a chiuderlo, questo sacco...
Grazie
Massimo

 ha scritto nel messaggio
news:b745cb$bo3$1...@lacerta.tiscalinet.it...

Ciao Massimo
Ho provato il tuo codice e non mi da alcun errore, se in StrFiltro inserisco
"*RO*" BuildCriteria rende giustamente
Localita Like "*RO*"
che errore di genera ???
Ciao Giorgio

 Ciao Giorgio
Mi dispiace ammetterlo, ma non conscevo l'asistenza del Metodo
BuildCriteria. :-(
Forse era per questo che il vecchio non voleva morire, c'è sempre qualcosa
da imparare.


 Ciao Giorgio
Attenzione stai parlando con un profano....non dimenticarlo il codice non
è mio... :-)
L'errore è questo...
Errore di runtime 2431.. e poi mi aiuta con
Errore di sintassi nell'operazione
(che dice tutto e niente)
Va in debug ed evidenzia la riga con l'oggetto Build
Sto cercando di capire se l'errore è veramente di sintassi (non credo)
oppure sto facendo confusione con le stringhe
In pratica inserisco *??*  nel campo Cerca ?
Lui lo gira a strInput e gli assegna il criterio Build che va cercare nel
campo
Località e poi con Me.Filter gli assegna strFiltro e lo attiva ....  giusto
?
Ma come entra in gioco strFiltro ?
Ciao
Massimo
-- Per comodità  --


 Ma come entra in gioco strFiltro ?
Con
Me.Filter = strFiltro
Me.FilterOn = True
Cerca sull'help Proprietà Filter delle maschere
Viene applicato un filtro (nel tuo caso strFiltro) sul recordset della
maschera che rende tutti i record che soddisfano tale condizione.
Se nella tabella ci sono righe con localita uguale a
Milano
Milazzo
Migliarino
e in Cerca inserisci MI verranno restituiti i record che hanno MI come parte
del campo e in questo caso tutti
Se in Cerca inserisci NO verranno restituiti solo i record con Milano e
Migliarino escludendo Milazzo
Comunque è meglio che togli gli asterischi dalla riga
strInput = "*" & Me.Cerca.Value & "*"
Cambiandola con
strInput = Me.Cerca.Value
in questo modo puoi da maschera decidere se cercare la parte del campo *MI*
o l'inizio del campo MI*
Cerca sull'Help LIKE
Ciao Giorgio.
Ciao Giorgio.

 Ciao Giorgio.
Grazie giorgio ho seguito attentamente i tuoi suggerimenti..
ma contiunua a darmi problemi.
Quindi non è piu questione di incapacità ma di conoscenze..
non ti disturbo oltre, anche perchè mi manca qualche rudimento e
ti farei solo perdere tempo, mi metto a "ripassare" e se mai
ne verrò a capo, vedro di comunicarlo.
Molte e grazie.
Massimo
P.S. BuildCriteria non esiste nel help!