Discussion :

[FouJP]

Bonjour,
J'ai une tables avec des champs triés. Je souhaite marquer sur une colonne Tag (1 ou 0) dans le cas ou le champ trié change de valeur, mettre 1, sinon mettre 0.
L'intérêt, c'est de pouvour ensuite sous Excel compter les "valeurs uniques". Avez-vous une solution sous Access (requête) pour mettre à jour ce champ Tag dans une table ?
Actuellement, je sais faire sous Excel, mais pas sous Access, bien que le champ soit créé sosu Access.
Merci pour votre réponse.

[User]

Bonjour,

si ta table est déjà triée suivant un champ "id" (par ex.), tu peux ajouter un champ "Tag" dans ta table et essayer de le mettre à jour avec ce code :

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
39
40
41
Public Function majTag()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim id1 As Long, id2 As Long
 
Set db = CurrentDb
Set rs = db.OpenRecordset("Table1")
 
id1 = rs!id
 
rs.Edit
rs!Tag = 1
rs.Update
 
rs.MoveNext
 
Do Until rs.EOF
id2 = rs!id
 
   If id1 <> id2 Then ' si différent de l'id précédent
      rs.Edit
      rs!Tag = 1 ' mettre 1 dans le champ Tag.
      rs.Update
   Else ' sinon
      rs.Edit
      rs!Tag = 0 ' mettre 0 dans le champ Tag
      rs.Update
   End If
 
id1 = rs!id
 
rs.MoveNext
Loop
 
rs.Close
db.Close
 
Set rs = Nothing
Set db = Nothing
 
End Function

Ici je suppose que ta table se nomme "Table1".

[FouJP]

Merci pour ce code qui fonctionne !
Il faut que le champ de test (condition) ne soit pas Null.
id2 = rs![identifiant client]Super