Discussion :

[morobaboumar]

Bonsoir membres du forum,
J'ai deux messages d'erreurs avec ce code:

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

Private Sub Form_BeforeUpdate(Cancel As Integer)
  Dim strCode As String
  Dim strPrefixe As String
  Dim AutoNumber As Long
  
  ' Vérifier que le nom et le prénom
  ' sont renseignés, puisqu'ils servent
  ' dans le préfixe de numérotation
  If IsNull(Me.ContactNom) Or IsNull(Me.ContactPrenom) Then
    MsgBox "Le nom et le prénom doivent être renseignés !", vbExclamation
    Cancel = True
    Exit Sub
  End If
  
  ' Préfixe à utiliser pour la numérotation
  strPrefixe = UCase(Left(Me.ContactNom, 3) & Left(Me.ContactPrenom, 3))
 
  ' Numérotation
  If IsNull(Me.tContacts) Then
    Me.tContacts = AutoNumber("Tbl_Contacts", "tContacts", strPrefixe, 3)
  End If 
   '
  ''Me.tContacts = DMax("tContacts", "Tbl_Contacts") + 1
End Sub

Que faut il faire ?
Cordialement.

[ONTAYG]

Bonjour,

En première approche je dirais que AutoNumber est une fonction qui ne se trouve pas dans ton code.

ONTAYG

[morobaboumar]

Bonjour,

En première approche je dirais que AutoNumber est une fonction qui ne se trouve pas dans ton code.

ONTAYG

Alors dois je le supprimer?