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:Merci de maider car je comprend vraiment pas.tye de données incompatible dans l'expression du critère
Merci pour vos soutiens
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
Partager