Autoincrementation a chaque changement de valeur d'un champ

une technique possible est de parcourir les enregistrements de ta table, et, pour chaque enregistrement,

si champ_auto est vide 
   select max(champ_auto) where placement=...
   mettre en champ_auto max+1

Bonjour,
Merci pour ta réponse. Ce que je veux avoir c'est comme ce qui est écrit en bas.En effet, il faut uniquement se baser sur l'ordre d'apparition dans la table.





Placement champ_auto
A3 1
A3 2
A3 3
A3 4
A3 5
B2 1
A3 6
A9 1
A3 7
H1
H1
H1
A1
A3
A3
A7
V2
H1
A2
A9
B3
B1
V2
H1
V1
A3
H1
D1
D1
D1
D1
D1
A3
A3
B2
A2
M2
A3
V1
A1
M1
I2


Bien à toi

en fouinant dans les forums j'ai réussi à le faire, merci pour ton aide et je met en dessous mon code:





Sub BImp()
maTable = "pays"
monChampEnum = "placement"
nom = "NAME"

Dim i As Long
Dim v As Variant
Dim rs As Recordset

On Error Resume Next
DoCmd.RunSQL "ALTER TABLE [" & maTable & "] DROP COLUMN increm"
DoCmd.RunSQL "ALTER TABLE [" & maTable & "] ADD COLUMN increm INTEGER"
On Error GoTo 0

Set rs = CurrentDb.OpenRecordset("SELECT * FROM [" & maTable & "] where Enservice=-1 ORDER BY [" & monChampEnum & "], [" & nom & "] ")
i = 1
If Not rs.EOF Then v = rs.Fields(monChampEnum)
While Not rs.EOF
If rs.Fields(monChampEnum) <> v Then
v = rs.Fields(monChampEnum)
i = 1
End If
rs.Edit
rs![increm] = i
rs.Update
i = i + 1
rs.MoveNext
Wend
End Sub




PS: Je ne me souvient plus d'où j'ai trouver le code principal