Newsgroup: it.comp.appl.access
Titolo: filtro condizionato

Salve a tutto il NG
relativamente al post che avevo inviato ieri, ed ai siggerimenti gentilmente
esposti ho provato in questo modo:
Private Sub Filtro_Click()
If Me.CriterioRicerca = "data" Then
'criterio ricerca sarebbe la combo
Me.Filter = "data=" & Me!ParametroFiltro
'qui io cercherei di dirgli che se la combo ha selezionato la parola "data"
e nella casella di testo ho inserito un data 'xx/xx/xx su 'clic la maschera
mi dovrebbe filtrare tutte le date xx/xx/xx....
Me.FilterOn = True
End If
End Sub
....invece NADA, non mi filtra niente!
Anzi mi rimane un solo record vuoto.
Sono disperado.
Ciao a tutti.
Lucio

On Tue, 03 Dec 2002 23:04:31 GMT, "Lucio" <nap...@NOSPAMtin.it>
wrote:

ti ricordo che data è parola riservata
se si tratta di data usa 
Me.Filter = "giorno=#" & format(Me!ParametroFiltro,"mm/dd/yy") & "#"
Saluti.
Emanuele.

Buonasera a tutto il NG,
ancora una volta sono alle prese con i filtri, per chi non ha seguito la
vicenda può leggere i precedenti post,
ho risolto il problema su "data", ora su seconda condizione gli ho posto il
seguente criterio:
ElseIf Me.CriterioRicerca = "Numero lettera" Then
'in questo caso se dalla combo viene selezionato numero lettera e viene
inserito nella casella parametro
'il numero ipotetico di una lettera che potrebbe essere 12145 oppure
0124/215, o ancora 1245 c.a.(ma credo che questo 'formato non abbia molta
importanza)
Me.Filter = "NumeroLettera =" & Me!ParametroFiltro
'dovrebbe restituirmi in base al parametro il numero della lettere
corrispondente se c'è altrimenti un messaggio di errore.
Me.FilterOn = True
'a questo punto mi tira fuori un record selezionato, vuoto, se
effettivamente esiste quel numero di lettere, un messaggio di 'errore che
dice "operazione precedentemente annullata se invece il numero lettera non
esiste.
Per meglio chiarire la situazione di seguito riporto l'intero listato.
Private Sub Filtro_Click()
If IsNull(Me.ParametroFiltro) Then
    MsgBox "Il parametro del filtro non può essere vuoto", vbOKOnly
        ElseIf Me.CriterioRicerca = "data" Then
    Me.Filter = "Data=#" & Format(Me!ParametroFiltro, "mm/dd/yy") & "#"
Me.FilterOn = True
ElseIf Me.CriterioRicerca = "Numero Lettera" Then
    Me.Filter = "NumeroLettera =" & Me!ParametroFiltro
        Me.FilterOn = True
            Else
    MsgBox "Inserire un criterio di ricerca nell'apposita casella", vbOKOnly
  End If
End Sub
Grazie.
Lucio

     Me.Filter = "NumeroLettera =" & Me!ParametroFiltro
Quando si fanno questi controlli, se il campo è di tipo numerico va bene
come hai scritto, ma se il campo è di tipo testo, la sintassi vuole che ci
siano degli apici prima e dopo il valore da confrontare.
Ergo:
Me.Filter = "NumeroLettera ='" & Me!ParametroFiltro & "'"
Antonio

Buongiorno a tutto il NG,
ancora una volta sono alle prese con i filtri, per chi non ha seguito la
vicenda può leggere i precedenti post,
ho risolto il problema su "data", ora su seconda condizione gli ho posto il
seguente criterio:
ElseIf Me.CriterioRicerca = "Numero lettera" Then
'in questo caso se dalla combo viene selezionato numero lettera e viene
inserito nella casella parametro
'il numero ipotetico di una lettera che potrebbe essere 12145 oppure
0124/215, o ancora 1245 c.a.(ma credo che questo 'formato non abbia molta
importanza)
Me.Filter = "NumeroLettera =" & Me!ParametroFiltro
'dovrebbe restituirmi in base al parametro il numero della lettere
corrispondente se c'è altrimenti un messaggio di errore.
Me.FilterOn = True
'a questo punto mi tira fuori un record selezionato, vuoto, se
effettivamente esiste quel numero di lettere, un messaggio di 'errore che
dice "operazione precedentemente annullata se invece il numero lettera non
esiste.
Per meglio chiarire la situazione di seguito riporto l'intero listato.
Private Sub Filtro_Click()
If IsNull(Me.ParametroFiltro) Then
    MsgBox "Il parametro del filtro non può essere vuoto", vbOKOnly
        ElseIf Me.CriterioRicerca = "data" Then
    Me.Filter = "Data=#" & Format(Me!ParametroFiltro, "mm/dd/yy") & "#"
Me.FilterOn = True
ElseIf Me.CriterioRicerca = "Numero Lettera" Then
    Me.Filter = "NumeroLettera =" & Me!ParametroFiltro


 Buongiorno a tutto il NG,
Me stai a pià pel culo, allora dillo!!!!
Antonio

 ha scritto nel messaggio
news:YSDH9.58337$3l.16...@twister1.libero.it...

Non mi permetterei mai!!
Difatti sbagliavo a riostare e quello che volevo dire, ulteriormente a
questo post è + avanti,
scusami se hai creduto che ti avessi preso....
ma comunque visto che è da un pò che posto su questo NG credo che tu come
gli altri ti sia reso conto che ho solo voglia di imparare o meglio io ci
provo.
Grazie...

 provo.
ok, ok , era una battuta...
Antonio