Discussion :

[jessy212]

bonjour à tous
j'ai tapé le code suivant

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Function dividende(reccours As Variant, recdiv As Variant)
Dim date_cours As Date
Dim date_div As Date
Dim cours As Double

recdiv.MoveFirst
reccours.MoveFirst
date_div = recdiv.Fields("date").Value
date_cours = reccours.Fields("seance").Value
Debug.Print date_div

Do While Not reccours.EOF

date_cours = reccours.Fields("seance").Value

If test(date_cours, date_div) Then

reccours.Edit
reccours.Fields("cloture_ajust").Value = 777
reccours.Update

If Not recdiv.EOF Then
recdiv.MoveNext
date_div = recdiv.Fields("date").Value
Debug.Print date_div
End If
Else
reccours.Edit
reccours.Fields("cloture_ajust").Value = 444
reccours.Update

End If

reccours.MoveNext

Loop
End Function

avec test est une fonction qui prend true si les deux dates sont égales
le probleme se situe qu niveau de l'instruction en gras ; en effet, le recordset recdiv contient 7 enregistrements (je l'ai déja varifié) alors qu'en bouclant vb ne détecte et n'affiche que trois dates (qui sont les valeurs d'un champs de ce recordset) !!
j'arrive pas vraiement à detecter ma faute
pouvez vous m'aider à le faire SVP?
merci

[Fablondon]

Salut,
le test de boucle est réalisé sur "reccours", c'est donc le nombre d'enregistrements de recours qui te donne le nombre d'affichage.
Si rec("reccoures") n'a que 3 enregistrement,tu ne verras que les 3 premiers enregitrement de recdiv.

A++

[jessy212]

non dans mon cas le recordset "reccours" est toujours de taille plus supérieure que le recordset "recdiv"