On error Access

**xeron33** · 09/01/2018, 15h36

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

Invité · 09/01/2018, 15h47

Bonjour

D'abord c'est quel message.

Mais avant d'aller plus loin je dis stop, nomme correctement tes contrôles, sinon tu auras des soucis de compréhension de ton programme.

Philippe

**marot_r** · 09/01/2018, 23h05

Bonjour.

C'est un peu normal vu que la 1ère ligne de ton code de gestion d'erreur affiche le numéro d'erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
err:
   MsgBox "err" & err.Number
    If err.Number = 2501 Then
        MsgBox "Saisie Nom Opérateur Obligatoire !!!", _
          vbOKOnly + vbCritical, _
                  "Cloture Insertions !!! "
    End If
    Resume fin

Je te suggère ce que j'utilise pour moi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
err:
   select case err.number
       case 2501
           MsgBox "Saisie Nom Opérateur Obligatoire !!!", _
                       vbOKOnly + vbCritical, _
                       "Cloture Insertions !!! "
       case else
           MsgBox "err" & err.Number
 
    end select
 
    Resume fin

A+

**xeron33** · 10/01/2018, 20h39

Envoyé par marot_r

Bonjour.

C'est un peu normal vu que la 1ère ligne de ton code de gestion d'erreur affiche le numéro d'erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
err:
   MsgBox "err" & err.Number
    If err.Number = 2501 Then
        MsgBox "Saisie Nom Opérateur Obligatoire !!!", _
          vbOKOnly + vbCritical, _
                  "Cloture Insertions !!! "
    End If
    Resume fin

Je te suggère ce que j'utilise pour moi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
err:
   select case err.number
       case 2501
           MsgBox "Saisie Nom Opérateur Obligatoire !!!", _
                       vbOKOnly + vbCritical, _
                       "Cloture Insertions !!! "
       case else
           MsgBox "err" & err.Number
 
    end select
 
    Resume fin

A+

************************************************
Merci pour ta réponse mais non le problème ne vient pas de là.
A+

**xeron33** · 10/01/2018, 20h38

Envoyé par Philippe JOCHMANS

Bonjour

D'abord c'est quel message.

Mais avant d'aller plus loin je dis stop, nomme correctement tes contrôles, sinon tu auras des soucis de compréhension de ton programme.

Philippe

**********************************************
Merci pour ta réponse, le message d'Access est "ne peut ajouter tous les enregistrements de la requête Ajout" cela provient que sur ma table TAB_Insertions_Hist le champ Opérateur est à "chaine vide autorisée" à NON et à "Null Interdit" à OUI.
Pour ce qui est de nommer les contrôles c'est vrai je ne le fais pas je prends pas le temps à tort surement.
Merci encore

**loufab** · 18/01/2018, 23h18

Bonsoir,

Je complèterais par ce test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Me.Modifiable64 = "" or isnull(me.modifiable64) Then

**tee_grandbois** · 19/01/2018, 00h11

ou bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Me.Modifiable64 & ""  =  ""  Then
' ou aussi
If Nz(Me.Modifiable64,"") = ""  Then

**xeron33** · 19/01/2018, 22h42

Merci pour vos réponses :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
If Me.Modifiable64 = "" Then
        MsgBox "Saisie Nom Opérateur Obligatoire !!!",  vbOKOnly + vbCritical,  "Cloture Insertions !!! "
        Me.Modifiable64.SetFocus
       Exit sub
   End IF
If Me.Modifiable64 = "" or isnull(me.modifiable64) Then
 
if Me.Modifiable64 & ""  =  ""  Then
' ou aussi
If Nz(Me.Modifiable64,"") = ""  Then

Oui c'est que je compte faire si jamais je n'arrive pas à récupérer l'erreur d'Access, voilà un exemple de procédure que j'ai écrite sur laquelle la récupération de l'erreur d'Access pour en faire un message personnel fonctionne :

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 Commande66_Click()
Dim csql5 As String
If IsNull(Me.Texte35) Then
  MsgBox ("Saisie N°Dossier Obligatoire !")
  Me.Texte35.SetFocus
  Exit Sub
End If
On Error GoTo Err
DoCmd.RunCommand acCmdSaveRecord
Me.RecordSource = Me.RecordSource
Me.Sous_Formulaire_Insertions.Form.RecordSource = Me.Sous_Formulaire_Insertions.Form.RecordSource
Texte35.Locked = True
fin:
    Exit Sub
Err:
    MsgBox "Saisie Incorecte !", _
    vbOKOnly + vbExclamation, _
                  "Saisie Insertions !!! "
    If Me.Texte6 <> "" Or Not IsNull(Me.Texte6) Then
      Me.Texte27.SetFocus
        Else
      Me.Texte6.SetFocus
    End If
    Resume fin
End Sub

C'est le cas ou un champ clé étrangère n'est pas renseigné: message d'Access sur l'erreur 3101 avec on error le MsgBox "Saisie Incorecte" s'affiche et pas le messge d'Access, sur mon problème le message d'Access continue à s'afficher puis s'affiche le message perso géré avec on error, c'est peut être parce que Modifiable64 n'est pas une clé je ne sais pas...
Merci à vous deux pour votre aide et à tous les autres, je laisse le sujet ouvert si quelqu'un a la solution si il y a une solution...

**loufab** · 11/01/2018, 00h36

Bonjour,

Donc, d'après ton analyse (nous ne voyons pas les valeurs que tu envois dans la requête), la requête renvoie une erreur parce que tu essayes d'insérer un valeur qui n'est pas conforme aux règles que tu as établi dans la table sur la colonne Opérateur.

Si c'est le cas, tu connais le problème et donc la solution.

1) fait en sorte de respecter ces règles

ou

2) supprime ces règles.

Tu ne pourras de toute façon pas forcer le moteur à les transgresser.

Cordialement,

**xeron33** · 11/01/2018, 20h56

Envoyé par loufab

Bonjour,

Donc, d'après ton analyse (nous ne voyons pas les valeurs que tu envois dans la requête), la requête renvoie une erreur parce que tu essayes d'insérer un valeur qui n'est pas conforme aux règles que tu as établi dans la table sur la colonne Opérateur.

Si c'est le cas, tu connais le problème et donc la solution.

1) fait en sorte de respecter ces règles

ou

2) supprime ces règles.

Tu ne pourras de toute façon pas forcer le moteur à les transgresser.
****************************************************

Cordialement,

Bonsoir et merci pour ton aide,
Le but de la manœuvre est de forcer l'utilisateur à rentrer une chaine, quand je teste le programme je ne saisi rien dans ce champ d’où le message d"Access mais normalement avec "on error" le message d'Access n'apparait pas et le message personnel s'affiche, tandis que là le message d'Access s'affiche puis le programme affiche le message personnel...
J'espère avoir été assez clair.
A +

**marot_r** · 11/01/2018, 21h02

Le "on error" ne marche que dans du VBA.

Si l'erreur se produit lors de la saisie dans un champ (donc dans l'interface) c'est la procédure événemnetielle de l'événement Sur Erreur du formulaire qu'il faut programmer sinon on a le message standard.

Ici un article sur le sujet :
Form.Error Event (Access)
https://msdn.microsoft.com/en-us/vba...r-event-access

A+

**xeron33** · 13/01/2018, 11h30

Envoyé par marot_r

Le "on error" ne marche que dans du VBA.

Si l'erreur se produit lors de la saisie dans un champ (donc dans l'interface) c'est la procédure événemnetielle de l'événement Sur Erreur du formulaire qu'il faut programmer sinon on a le message standard.

Ici un article sur le sujet :
Form.Error Event (Access)
https://msdn.microsoft.com/en-us/vba...r-event-access

A+

**************************************************
Merci pour ton aide mais ça ne marche pas voilà ce que j'ai écrit pour le formulaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Form_Error(DataErr As Integer, Response As Integer)
Select Case DataErr
    Case 2501
        Response = acDataErrDisplay
        MsgBox "Saisie Nom Opérateur Obligatoire !!!", _
                       vbOKOnly + vbCritical, _
                       "Cloture Insertions !!! "
    Case Else
           MsgBox "err" & err.Number
    End If
End Sub

Avec "acDataErrContinue" c'est pareil il m'affiche toujours le message Access et ne va pas du tout sur cette procédure.
Merci encore

**marot_r** · 15/01/2018, 01h50

Choisir parmis les 3 possibilités de réponse n'est pas évident.
Là il n'en mentionne que 2 mais de mémoire il y a une 3ième possibilité.

Il faut les essayer et voir celui qui donne le résultat que tu veux.

Quand tu dis que Access ne va pas dans cette procédure, as-tu poser un poit d'arrêt sur Private Sub Form_Error(DataErr As Integer, Response As Integer) et validé ton code pas à pas.

Pour faire cela il faut cliquer dans la marge à gauche.
Cela va mettre un gros point et quand Access va arriver à cette instruction il va passer en mode débug et t'afficher le code.
Appuis sur [f8] pour passer d'une instruction à l'autre.

En passant, personnellement, je préfère faire du code qui vérifie AVANT si je vais avoir un problème.
Cela me permet de signaler le soucis immédiatement à la saisie du champ plutôt que quand l'utilisateur à tout entré et veut passer à la suite.

A+

**loufab** · 12/01/2018, 10h58

marot_r a tout dit.

**loufab** · 16/01/2018, 21h43

Le code est bien branché au formulaire via sa propriété évènementielle ?

**xeron33** · 17/01/2018, 13h33

Envoyé par loufab

Le code est bien branché au formulaire via sa propriété évènementielle ?

**********************************************************
oui sur Form_Error.

**marot_r** · 17/01/2018, 20h47

Désolé plus d'idée.

Peux-tu préciser quelle version d'Access tu utilises ?

A+

**tee_grandbois** · 17/01/2018, 22h24

Bonsoir,

Merci pour ta réponse, le message d'Access est "ne peut ajouter tous les enregistrements de la requête Ajout" cela provient que sur ma table TAB_Insertions_Hist le champ Opérateur est à "chaine vide autorisée" à NON et à "Null Interdit" à OUI.

as-tu pensé à faire un Debug.Print csql5 pour voir ce que cette variable renvoie ? Le contrôle Modifiable64 est peut-être vide.

**xeron33** · 18/01/2018, 20h08

Envoyé par tee_grandbois

Bonsoir,

as-tu pensé à faire un Debug.Print csql5 pour voir ce que cette variable renvoie ? Le contrôle Modifiable64 est peut-être vide.

***************************************
Oui c'est justement le motif de ma demande; éviter le message d'Access si utilisateur ne renseigne pas le contrôle par "on error"
Merci