Bonjour,

Je n'arrive pas à trouver le problème pour parcourir ce recordset, ce qui se passe c'est que pour le premier enregistrement du recordset tout marche bien .. mais pour le suivant (sachant qu'il existe bien) renvoie la valeur "Null" et donc génère une erreur au lieu de sortir le 2e enregistrement.

Pourriez-vous svp m'aider pour ce problème.
D'avance merci.


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
 
If Not rstmanquants.EOF Then
    rstmanquants.MoveFirst
    While Not rstmanquants.EOF
 
    msg = "Veuillez entrer le code correpondant au code EAN suivant : " & rstmanquants.Fields(rstmanquants.AbsolutePosition).Value
    mrdr = InputBox(msg, "code manquant", "code")
 
 
    requeteajout = "INSERT INTO TABLE1 " & "([EAN,[MRDR])" & " Values " & "('" & rstmanquants.Fields(rstmanquants.AbsolutePosition).Value & "','" & mrdr & "')"
    Db.Execute requeteajout
 
    rstmanquants.MoveNext
    Wend
 
Else
MsgBox ("Tous les codes sont renseignés")
End If
 
rstmanquants.Close