Je suis sous Access 97 et dans mon formulaire, j'ai un champ qui permet
d'incr=E9menter un num=E9ro automatiquement =E0 chaque nouvel
enregistrement.Voici le code qui fonctionne parfaitement mais qui
bloque des fois, c'est a dire qu'il n'incr=E9mente plus, soit il remet
le meme num=E9ro que celui d'avant soit il met rien, pourquoi ?
Code :
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim rs As DAO.Recordset
Set rs =3D CurrentDb.OpenRecordset(Me.RecordSource, dbOpenSnapshot)
If rs.EOF Then
Me!NoFA =3D 1
Else
rs.MoveLast
Me!NoFA =3D rs!NoFA + 1
End If
rs.Close
Set rs =3D Nothing
End Sub
J'ai essay=E9 d'=E9crire le num=E9ro qui aurait d=FB apparaitre pour qu'il
puisse recommencer normalement mais au bout de 2 ou 3 enregistrements
=E7a recommence. Alors je suis oblig=E9 d'effacer les enreistrements un
par un jusqu'=E0 ce que l'incr=E9mentation fonctionne normalement, et =E7a
je ne peux pas me le permettre. Si quelqu'un a une id=E9e voire une
solution, je lui serai tr=E8s reconnaissant !
Merci.
