Discussion :

[maryola]

bonjour à tous,
c'est pas faute d'avoir chercher partout, mais je ne trouve pas de réponse à mon problème.
Depuis quelques mois j'alimente une bdd access qui contient 3 tables, dont 2 qui ont en clef primaire des numéros automatiques, sans doublons.

Mais e problème est le suivant : le numéro auto ne s'incrémente plus dans une des table et prends des valeurs déjà existantes

Comment faire pour résoudre ce soucis très très embetant?

Merci à tous pour votre aide

Marie.

PS je n'utilise pas vba dans cette base "simple" (enfin au départ)

[Sonic]

Salut
Le problème survient lorsqu'il y a des "trous" dans la numérotation et que tu effectues un compactage de ta base. Access remet le compteur au premier de disponible et pas à max + 1. Moi ce que je fais c'est que je recherche justement ce max + 1 et j'ajoute un enregistrement en forcant le numéro auto avec cette valeur.
Mais ca ne peut se faire quand vba :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Dim valMax as long
dim rcd as DAO.Recordset
     'on récupère la valeur max
     set rcd = currentdb.openrecordset("SELECT MAX(NumAuto) FROM MaTable")
     valMax=rcd.fields(0)+1
     rcd.close
     'on l'insère
     currentdb.execute "insert into MaTable (NumAuto) Values (valMax)"
     'on la supprime pour que ca reste propre
     currentdb.execute "delete * from MaTable Where NumAuto=" & valmax