probléme de dtpicker

probléme de dtpicker - VB/VBA/VBS - Programmation

Marsh Posté le 08-07-2011 à 14:01:54    

salut  
 
 
le problème je le pense ici      If rs.EOF Then '(si pas d'enregistrements)
il ne teste pas il fait isnser automatique  
 
merci de m'aider  
 

Code :
  1. Dim con As New ADODB.Connection
  2. Dim rs As New ADODB.Recordset
  3. Dim sql As String
  4. Dim sql2 As String
  7. nom = ComboBox1.Value
  8. prenom = ComboBox2.Value
  9. sal = ComboBox3.Value
  10. gar = ComboBox4.Value
  11. .....
  13. 'conection  a la bse de données
  14. If ComboBox5.Value = "Oui" Then
  16. 'Vérif si enregistrement existant
  17. Set rs.ActiveConnection = con
  18. rs.Open " Select * from acteurcorr where  Nom ='" & nom & "' and  Prenom ='" & prenom & "'and datebut = # " & date1 & "# " ' c'est dtpicker
  19. 'il ne teste pas
  20. 'Traitement
  21. If rs.EOF Then '(si pas d'enregistrements)
  23. 'insertion
  24. sql = " insert into acteurcorr (Nom,Prenom,Salaire,grade,datedebut,datefinale)  Values ('" & nom & "' ,'" & prenom & "','" & sal & "', '" & gar & "','" & datedebu & "','" & datefina & "' )"
  25. con.Execute sql
  27. Else '(au moins un enregistrement)
  29. sql2 = " update  acteurcorr set   datefinale  =  '" & datefina  & "', grade = '" & gar & "'  where Nom ='" & nom & "' and  Prenom ='" & prenom & "' and  datefinale Is Null  "
  31. con.Execute sql2
  32. rs.Close
  33. Set rs = Nothing
  34. End If

Reply

Marsh Posté le 08-07-2011 à 14:01:54   

Reply

Marsh Posté le 08-07-2011 à 16:01:11    

Il faudrait voir ce qu'il y a dans date1, par exemple avec un MsgBox(date1), ou en débug en pas à pas et en passant la souris sur le champ.
 
date1 contient peut-être une date au format anglais, alors qu'il faudrait une date au format français, ou l'inverse.
 
Il n'est pas rare qu'il faille reformater les dates avant de les utiliser dans les requêtes.
Par exemple, quelque chose du genre :
...and datebut = # " & Format(date1, "m-d-yy" ) & "#"

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed