Salut le forum
Je ne sais pas pourquoi le code ci dessous ne fonctionne pas bien. Jai 5 textbox numéroté par ordre. J'ai tout vérifié mais toujour le meme message derreur ci dessous:
tye de données incompatible dans l'expression du critère
Merci de maider car je comprend vraiment pas.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim strsQL As String
Dim Rs
OpenConnexion Fichier
sql = "select * from  [" & Feuille5 & "] where [NUM_EXAMEN]='" & Trim(TextBox1.Value) & "';"
Set Rs = CreateObject("adodb.recordset")
Rs.Open sql, Cnx
If Rs.EOF = False Then
MsgBox "Existe"
Else
strsQL = "insert into [" & Feuille5 & "] ([NUM_EXAMEN],[EDITEUR],[INTITULE],[DATE_EXAMEN],[INGENIEUR],[STATUT]) "
        strsQL = strsQL & "Values ('" & Trim(TextBox1.Value) & "','" & Trim(TextBox2.Value) & "','" & Trim(TextBox3.Value) & _
       "','" & Trim(TextBox4.Value) & "','" & Trim(TextBox5.Value) & "','" & Trim(TextBox6.Value) & "');"
Cnx.Execute strsQL
'Set Cnx = Nothing
End If
Rs.Close
Set Rs = Nothing
Cnx.Close
Set Cnx = Nothing
Unload Me
Merci pour vos soutiens