Numéro automatique

Bonjour

Voici de fonction que j'utilisais à l'époque pour générer mes NumAuto
mais égalements les mettres à jour si on supprime une ligne afin d'éviter
des trous dans la numérotation...

(attention le fait de re-numéroté peut rendre l'application difficile à
suivre...)

*******************************************************
Public Function NumAuto(strTbl, strForm, strFldAuto)
'Génère une nouveau NumAuto
Dim rst As Recordset
Dim lngRecord As Long
lngRecord = 0
If Forms(strForm).Controls(strFldAuto) = 0 Then
Set rst = CurrentDb.OpenRecordset(strTbl, dbOpenDynaset)
With rst
If Not .BOF Then .MoveLast: lngRecord = .Fields(strFldAuto)
End With
Forms(strForm).Controls(strFldAuto) = lngRecord + 1
End If

End Function

Public Function UpDateNumAuto(strTbl, strFldAuto)

'Mise à jour des NumAuto
Dim rst As DAO.Recordset
Dim lngNbreRecord As Long
Dim lngNumAuto As Long
Dim lngTmpNumAuto As Long

Set rst = CurrentDb.OpenRecordset(strTbl, dbOpenDynaset)

With rst
If Not .BOF Then
.MoveLast
lngNumAuto = .Fields(strFldAuto)
lngNbreRecord = .RecordCount
If lngNumAuto = lngNbreRecord Then Exit Function
.MoveFirst
lngTmpNumAuto = 0
Do Until .EOF
lngNumAuto = .Fields(strFldAuto)
If lngNumAuto > lngTmpNumAuto + 1 Then
.Edit
.Fields(strFldAuto) = lngTmpNumAuto + 1
.Update
End If
lngTmpNumAuto = lngTmpNumAuto + 1
.MoveNext
Loop
End If
End With

End Function
*******************************************************

@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"Charle" <Charle@free.com> a écrit dans le message de
news:eK2h4zb%23FHA.1568@TK2MSFTNGP10.phx.gbl...

Bonjour a tous,
j'ai un formulaire et je voudrait savoir l'orsque je pese sur nouvelle
enregistrement et bien que dans ma case numero le numero s'incrive
automatiquement ! exemple mon derniere enregistrement est = a 5 et bien il
faut que le prochain soit 6 quand je pese sur nouvelle enregisterment

Merci de votre attention