Bonsoir,

J'essai d'effectuer une recherche par numéro de la réservation mais cela ne marche pas avec mon code ci-dessous :

Private Sub Command1_Click()
Set cn = New Connection
cn.Open "File Name=" & App.Path & "\connect.Udl"

s = "SELECT *"
s = s + " FROM RESERVATIONS"
s = s + " where RESERVATIONS.CODE = '" + Text1 + "';"

Set rs = New Recordset
rs.CursorLocation = adUseClient
rs.Open s, cn, adOpenDynamic, adLockOptimistic

i = 0
Do Until rs.EOF
ResultRec.nreserv(i) = rs.Fields(0)
ResultRec.benef(i) = rs.Fields(7)
ResultRec.Label5(i) = rs.Fields(1)
ResultRec.dateret(i) = rs.Fields(4)
i = i + 1
rs.MoveNext
Loop
End Sub

Je reçoie l'erreur suivante : Type de données incompatibles dans l'expression du critère, et je sais que l'erreur se trouve au niveau de la partie que j'ai indiqué en rouge.

Aidez moi SVP.
Merci.

Merci beaucoup, je l'avais fais sauf que j'ai oublié d'afficher la form, voici la correction :

Private Sub Command1_Click()
Set cn = New Connection
cn.Open "File Name=" & App.Path & "\connect.Udl"

s = "SELECT *"
s = s + " FROM RESERVATIONS"
s = s + " where RESERVATIONS.code = " + Text1 + ";"

Set rs = New Recordset
rs.CursorLocation = adUseClient
rs.Open s, cn, adOpenDynamic, adLockOptimistic

i = 0
Do Until rs.EOF
ResultRec.Show
ResultRec.nreserv(i) = rs.Fields(0)
ResultRec.benef(i) = rs.Fields(7)
ResultRec.Label5(i) = rs.Fields(1)
ResultRec.dateret(i) = rs.Fields(4)
i = i + 1
rs.MoveNext
Loop
End Sub