criterio per FINDFIRST

[PWD]

Ciao...

mannaggia, sto smanettando per fare un criterio funzionante per il find
first... ma non mi riesce.

Sull'evento doppio click di una casella di riepilogo a 3 colonne (List)
non associata che preleva i valori colonna da una query a runtime:

'-----------------------------------------------------------------------
Dim criterio As String

strDate = Format(List.Value, "\#yyyy\-mm\-dd\#")
ord = List.Column(0) 'Preleva il valore dalla prima colonna che
contiene una stringa con numero ordine
lav = List.Column(2) 'Preleva il valore dalla terza colonna che
contiene una stringa con lav

criterio = "data = '" & strDate & "'" And "numord = '" & ord & "'"
Me.Recordset.FindFirst criterio
End Sub
'-----------------------------------------------------------------------

L'errore ￜ Tipo non corrispondente alla riga in cui assemblo il criterio
da passare al findfirst!!!!
Praticamente il mio obiettivo ￜ fare doppio click sulla riga della lista
e fare in modo che il record "doppiocliccato" sia caricato nella
maschera che contiene la lista; usando solo la data, funziona, ma
ovviamente seleziona solo i primo record che trova con quella data.
Aggiungendo con AND tutti i parametri che definiscono la riga, invece
isolo solo quel record.

Grazie in anticipo dell'aiuto
Marco

[Marco Pizzamiglio]

PWD ha scritto:

C'� un po' di confusione con apici e delimitatori di data.
Ci metti in mezzo un'istruzione che ti mostri il criterio e vedi subito
cosa c'� che non va.

> criterio = "data = '" & strDate & "'" And "numord = '" & ord & "'"

msgbox criterio ' (o debug.print criterio)
> Me.Recordset.FindFirst criterio

Riepilogo:
- le stringhe vanno racchiuse tra apici (semplici o doppi)
- le date tra #
- i numeri vanno senza delimitatori
Ciao.
-Marco-

--

questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news segnala gli abusi ad ab...@newsland.it

[PWD]

Marco Pizzamiglio ha scritto:

> PWD ha scritto:
>
> C'� un po' di confusione con apici e delimitatori di data.
> Ci metti in mezzo un'istruzione che ti mostri il criterio e vedi subito
> cosa c'� che non va.
>
>> criterio = "data = '" & strDate & "'" And "numord = '" & ord & "'"
> msgbox criterio ' (o debug.print criterio)
>> Me.Recordset.FindFirst criterio
>
> Riepilogo:
> - le stringhe vanno racchiuse tra apici (semplici o doppi)
> - le date tra #
> - i numeri vanno senza delimitatori
> Ciao.
> -Marco-

Grazie Marco...

Ecco il mio codice:

strDate = Format(List.Column(1), "\#yyyy\-mm\-dd\#")
ord = List.Column(0)
lav = List.Column(2)

criterio = "lavoratore = '" & lav & "' " & "And numord = '" & ord & "' "
& " And data = " & strDate

*criterio tutto su una riga!!!

Funziona benissimo ora!

Grazie mille
Marco