Originariamente inviato da Rossella_75
Complimenti ci hai preso in pieno!! :quipy:


codice:
Dim sqlstring As String
sqlstring = "select * from Tipo where TIPO='" & cmbscelta & "'"
Data.rstipo.Open sqlstring
Data.rstipo.Find "tipo LIKE '" & cmbscelta & "'"
If Not Data.rstipo.EOF Then
Do While Not Data.rstipo.EOF
CATEGORIA = (Data.rstipo.Fields("CATEGORIA"))
Data.rstipo.MoveNext
Loop
Else
MsgBox "Nessun record"
End If
Data.rstipo.Close
Funziona

Grazie mille

Scusa, ma perchè metti la condizione TIPO='x' nella stringa SQL
e poi fai un find sempre su tipo con un LIKE??? Poi quel like IMHO è come se fosse "="...
Non so se mi sono spiegato.

sqlstring = "select * from Tipo where TIPO LIKE '" & cmbscelta & "'"
e togli il find, dovresti ottenere lo stesso risultato.