Bonjour
je cherche depuis longtemps comment creer mon propre autonumero et j'ai trouve ce code mais je n'ai pas pu l'executer dans ma forme quelq'un peut il m'aider j'utilise data controle le code est le suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
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