Discussion :

[Daejung]

Bonjour,

Existe-t-il un moyen en VBA pour incrémenter le compteur d'un champ à numérotation automatique sans ajouter un enregistrement ?

merci pour votre aide

[accessisgood]

Bonjour

ca marche 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
Private Function increment()
 
Dim rst As DAO.Recordset
Dim i As Long
 
Set rst = CurrentDb.OpenRecordset("Table2")
For i = 1 To 10
    rst.AddNew
    rst.CancelUpdate
Next i
 
Set rst = Nothing
 
End Function