numero auto

Question

Bonjour
je cherche depuis des jours comment creer mon propre autonumero et j'ai trouvé ce code sur le net mais je n'ai pas pu l'executer dans mon forme quelqu'un peut il m'aider j'utilise datacontrole
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(Me.RecordSource, dbOpenSnapshot)
If rs.EOF Then
   Me!Num = 1
   Else
   rs.MoveLast
   Me!Num = rs!Num + 1
   End If
rs.Close
Set rs = Nothing
End Sub
Public Function Init_numeroAuto()
Dim rs As DAO.Recordset
Dim i As Long
On Error Resume Next
Set rs = CurrentDb.OpenRecordset("Table1", dbOpenDynaset)
i = 1
 While Not (rs.EOF)
   rs.Edit
   rs!Num = i
   rs.Update
    rs.MoveNext
   i = i + 1
   Wend
rs.Close
Set rs = Nothing
End Function
merci

ucfoutu · Answer

Tapez le texte de l'url ici.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Numero auto

1 réponse

Votre réponse

Discussions similaires