Bonjour,
Je souhaiterais éviter l'affichage du message d'erreur d'Access quand l'utilisateur saisi une clé sur une table déjà connue en codant comme ceci :
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
 
On Error GoTo err
 
c3sql5 = "insert into [TAB_Act_Arch] ([Arch_Titre],[Arch_Nom],[Arch_Prenom],[Arch_Tel],[Num_UG])" & _
     "values ("
    c3sql5 = c3sql5 & Chr(34) & Me.Arch_Titre & Chr(34)
    c3sql5 = c3sql5 & ", " & Chr(34) & Me.Arch_Nom & Chr(34)
    c3sql5 = c3sql5 & ", " & Chr(34) & Me.Arch_Prenom & Chr(34)
   ' c3sql5 = c3sql5 & ", " & Chr(34) & Me.Arch_Tel & Chr(34)
    If IsNull(Me.Arch_Tel) Or Me.Arch_Tel = "" Then
      c3sql5 = c3sql5 & ", " & "Null"
        Else
      c3sql5 = c3sql5 & ", " & Chr(34) & Me.Arch_Tel & Chr(34)    'TEL
    End If
    If IsNull(Me.Num_UG3) Or Me.Num_UG3 = "" Then
     c3sql5 = c3sql5 & ", " & "Null"
        Else
      c3sql5 = c3sql5 & ", " & Chr(34) & Me.Num_UG3 & Chr(34) ' Num UG
    End If
 
   c3sql5 = c3sql5 & ");"
 
  DoCmd.RunSQL c3sql5
 
  Me.Arch_Titre = ""
  Me.Arch_Nom = ""
  Me.Arch_Prenom = ""
  Me.Arch_Tel = ""
  Me.Num_UG3 = ""
  Me.ContinuerAA.Visible = True
 
  Forms!F_SEC!Liste79.Requery
 
fin:
  Exit Sub
err:
  MsgBox "Attention Identifiant déjà connu ou UG non renseignée !!!", _
  vbOKOnly + vbExclamation, _
                  "Création Acteurs Archives "
  Me.Arch_Nom.SetFocus
Le problème est que le message d'Access s'affiche toujours et avant mon message d'erreur personnalisé .
Si quelqu'un a une solution Merci