Bonjour à tous,bonne année
Je souhaite utiliser "on error" pour éviter l'affichage du message d'erreur d'Access dans une procedure mais le message d'Access s'affiche quand même :
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
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub Commande62_Click()
Dim var_Option As Boolean
Dim csql5, csql6 As String
Me.Étiquette74.Visible = True
On Error GoTo err
Texte60.Visible = False
Texte35.Visible = False
Texte6.Visible = False
Texte27.Visible = False
Texte11.Visible = False
Étiquette37.Visible = False
Étiquette8.Visible = False
Modifiable64.Visible = False
csql5 = "insert into [TAB_Insertions_Hist] ([N°Insertion],[Num_Archives],[DM],[Adress_Doss],[DATE_Cloture],[OPERATEUR],[Succes])" & _
    "values ("
          csql5 = csql5 & Chr(34) & Texte35.Value & Chr(34) ' N° Insertion Numérique
          csql5 = csql5 & "," & "'" & Texte6.Value & "'" ' N° Dossier Texte
          csql5 = csql5 & "," & "'" & Texte27.Value & "'" 'DM Texte
          csql5 = csql5 & "," & "'" & Texte11.Value & "'" 'Adresse_Doss Texte
          csql5 = csql5 & ",#" & Format(Date, "MM/DD/YYYY") & "#" '[DATE_Cloture]
          csql5 = csql5 & "," & Chr(34) & Modifiable64.Value & Chr(34)   'Opérateur Texte
          csql5 = csql5 & "," & Option75.Value  ' Succes OUI/NON
          csql5 = csql5 & ");"
DoCmd.RunSQL csql5
DoCmd.Requery
csql6 = "delete from [TAB_Insertions] "
csql6 = csql6 & "where TAB_Insertions.N°Insertion =" & Texte35.Value & ";"
DoCmd.RunSQL csql6
DoCmd.Requery
Texte60.Visible = False
Texte35.Visible = False
Texte6.Visible = False
Texte27.Visible = False
Texte11.Visible = False
Étiquette37.Visible = False
Étiquette8.Visible = False
Étiquette65.Visible = False
Modifiable64.Visible = False
Form_F_Insert_Clot.F_Insert_Hist.Form.Requery
Commande3.SetFocus
fin:
    Exit Sub
err:
   MsgBox "err" & err.Number
    If err.Number = 2501 Then
        MsgBox "Saisie Nom Opérateur Obligatoire !!!", _
          vbOKOnly + vbCritical, _
                  "Cloture Insertions !!! "
    End If
    Resume fin
End Sub
Si quelqu'un a une idée.
Merci à tous