pb de recordset avec date Résolu

Question

voilà au niveau de la condition if , il plante et me met comme erreur:
erreur d'execution 3021
 pas d'enregistrement courant le code:

Do While rs.EOF = False
      q = q + 1
      rs.MoveNext
      If rs!Date = CDate(Textdate) Then
       q = ref
      End If
     Loop
     
  je sais plus quoi faire

elodie

cs_ITALIA · Accepted Answer

Date est un nom reservé à VB..a mon avis renomme ton Champ autrement.

It@li@

cs_ITALIA · Answer

Do Until Rs.EOF
q=q+1
If rs!Date = CDate(Textdate) Then
   q = ref
End If
Rs.Movenext
Loop

It@li@

elodie1511 · Answer

ça ne change rien:-(
elodie

cs_ITALIA · Answer

Test avant la presence ou non d'Enreg :

If Rs.RecordCount<>0 then
   Do Until Rs.EOF
       q=q+1
       If rs!Date = CDate(Textdate) Then
           q = ref
       End If
    Rs.Movenext
    Loop
End If

It@li@

elodie1511 · Answer

ça ne change rien, enfiat je viens de faire un test et ça tourne bien dans la boucle ça plante lorsqu'il a fait toutes les lignes de la table
elodie

cs_ITALIA · Answer

Montres ton morceau de code avec ta requete...
et donnes moi l'endroit ou ca plante....que je regarde

It@li@

elodie1511 · Answer

' chercher la référence de la date
  q = 0
  ref = 0
  rs.MoveFirst
     Do Until rs.EOF
      q = q + 1
      rs.MoveNext
  If rs!Date = CDate(Textdate) Then
       q = ref
      End If
     Loop
     If ref = 0 Then
      MsgBox ("rien n'est rentré dans cette date là")
     End If

 et ça plante au niveau du
 If rs!Date = CDate(Textdate) Then

merci
elodie

elodie1511 · Answer

c'etait ça merci:-)))))))

elodie :big)

Pb de recordset avec date

8 réponses

Discussions similaires