Discussion :

[Apoulit]

Bonjour,
j'ai une Table1 avec une colonne Prenom et une colonne F3.


Je voudrais parcourir la table Prenom et dés qu'on tombe sur un Prenom (un champ non null ou non vide ) on affecte sur F3 le numéro 1 jusqu'au prochain Prenom...



je suis parti sur un code comme ça mais il aime pas les champs nuls... et je vous avoue que j'ai du mal à le mettre en place ...Peut être avez vous une solution plus simple ?

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
Set base = CurrentDb()
Set enr = base.OpenRecordset("Table1")
 
compteur = 0
 
With enr
    .MoveFirst
 
    Do
        varf2 = .Fields("F3").Value
        leprenom = .Fields("Prenom").Value
 
If nom <> "Vide" Then  compteur = compteur + 1
 
 
        'requete = ....
        'base.Execute requete
 
        .MoveNext
    Loop While Not .EOF
End With
 
enr.Close
base.Close
 
Set enr = Nothing
Set base = Nothing

Merci.