probléme de dtpicker

salut
je travail sur un base de données acces.
le table contient deux champs de dates , un se fait par une simple insert into ( ca marche bien ) l'autre se fait par un update.
ce dernière ne marche pas.
une condition ( la valeur de la cobox 5 oui or non ) :
si oui je test s'il ya un enregstrmant avant ou non et je fais l'update
si non donc un simple insert into ( marche tres bien )
voila en gros

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Dim con As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As String Dim sql2 As String     nom = ComboBox1.Value prenom = ComboBox2.Value sal = ComboBox3.Value gar = ComboBox4.Value .....   'conection a la bse de données If ComboBox5.Value = "Oui" Then   'Vérif si enregistrement existant Set rs.ActiveConnection = con rs.Open " Select * from acteurcorr where Nom ='" & nom & "' and Prenom ='" & prenom & "'and datebut = '" & date1 & "'" ' c'est dtpicker   'Traitement If rs.EOF Then '(si pas d'enregistrements)   'insertion sql = " insert into acteurcorr (Nom,Prenom,Salaire,grade,datedebut,datefinale) Values ('" & nom & "' ,'" & prenom & "','" & sal & "', '" & gar & "','" & datede & "','" & azer & "' )" con.Execute sql   Else '(au moins un enregistrement)   sql2 = " update acteurcorr set datefinale = '" & datede & "', grade = '" & gar & "' where Nom ='" & nom & "' and Prenom ='" & prenom & "' and datefinale Is Null "   con.Execute sql2 rs.Close Set rs = Nothing End If

---

message erreur est :

Citation:

---

type de type de données incompatible dans l'expression du critère

---

merci d'avance

Bonjour

Quel est la valeur de sql2 quand ca plante.

Bonsoir,

ce test :

Code:

---

...and datefinale Is Null

---

est censé retourner quoi ?

salut
merci a tous

mon but a faire :
exemple :
j'ai ces données a mettre dans le base de données ( a travers l'userform)
nom :Simon
prenom : Rosalie
salaire :100
date de début : 05/07.2011
apres je récupéré l’enregistrement pour le terminer ( c'est à dire select fromwhere et upate)

si j'ai saisie Simon et Rosalie et Le date début 05/07/2011 alors automatique le programme sache c'est un enregistrement ancien donc update
et je contienu a saise les autres champs de réquette upate ..

le problème ici select form where date de début = date saisie !!!!!

j'ai essaye de trouve une solution, j'ai autre problème dans un autre ligne
voila le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

Dim con As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As String Dim sql2 As String nom = ComboBox1.Value prenom = ComboBox2.Value sal = ComboBox3.Value gar = ComboBox4.Value ..... 'conection a la bse de données If ComboBox5.Value = "Oui" Then 'Vérif si enregistrement existant Set rs.ActiveConnection = con rs.Open " Select * from acteurcorr where Nom ='" & nom & "' and Prenom ='" & prenom & "'and datebut = # " & date1 & "# " ' c'est dtpicker c'est bon cette linge marche bien ' mais if ne marche plus la 1ére instruction s' exécute je met le bloc instrion 'en commentaire l'update marche si j’enlève le commentaire l'insert marche et 'l'update non 'Traitement If rs.EOF Then '(si pas d'enregistrements) 'insertion sql = " insert into acteurcorr (Nom,Prenom,Salaire,grade,datedebut,datefinale) Values ('" & nom & "' ,'" & prenom & "','" & sal & "', '" & gar & "','" & datede & "','" & azer & "' )" con.Execute sql Else '(au moins un enregistrement) sql2 = " update acteurcorr set datefinale = '" & datede & "', grade = '" & gar & "' where Nom ='" & nom & "' and Prenom ='" & prenom & "' and datefinale Is Null " con.Execute sql2 rs.Close Set rs = Nothing End If

---

Citation:

---

j'ai essaye de trouve une solution, j'ai autre problème dans un autre ligne

---

c'est quoi le problème ?

il ne teste plus ; il fais automatiquement la 1ere instruction apres if
c 'est à dire insert
mon but de faire selon le condition insert or update