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
Partager