questo è il codice:

codice:
Private Sub Command1_Click()
'Dim ricerca As String

'Text1.Text = Text1.Text & ricerca
If Text1.Text = "" Then
   MsgBox "Digitare un codice" & vbOK
   Else
   
rsql = ""
rsql = rsql & "SELECT * FROM tblpresenze WHERE tblpresenze.codmar LIKE '" & Text1.Text & "' ORDER BY marcatura"

Set rs = cn.Execute(rsql)

While Not (rs.EOF)
  'flex2.Cols = 1
  'flex2.Rows = 1
  flex2.ColWidth(0) = 1290
  flex2.Text = "CODICE LETTO"
  'flex2.Cols = 2
  'flex2.Rows = 1
  flex2.ColWidth(1) = 3000
  flex2.Text = "ORARIO MARCATURA"
flex2.AddItem rs("codmar") & vbTab & rs("marcatura")
rs.MoveNext
Wend

End If
  
 

End Sub
E mi funziona in questo modo:

Se non digito nessun codice nella text, mi da il messaggio di errore, se invece digito il codice esatto che ricerco, me lo restituisce.

Bene, non ho capito però come creare la condizione se il codice che inserisco non è presente, tipo:

"Il codice inserito non è presente nel database".

Mi date una mano?

Thx.

RaouL.