On error Access

Version imprimable

On error Access

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:

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

09/01/2018, 15h47
Invité

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

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:

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:

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+

10/01/2018, 20h38
xeron33

Citation:

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

Citation:

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:

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:

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+

11/01/2018, 00h36
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,
11/01/2018, 20h56
xeron33

Citation:

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 +
11/01/2018, 21h02
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+
12/01/2018, 10h58
loufab

marot_r a tout dit. ;)

Citation:

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:

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

15/01/2018, 01h50
marot_r

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+
15/01/2018, 07h29
xeron33

Citation:

Envoyé par marot_r

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+

**********************************
"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."
Oui j'ai fait ça exactement.
Merci encore
15/01/2018, 22h03
marot_r

Et alors ?
Est-ce que Access a appelé le code ?
Est-ce que l'exécution pas à pas c'est déroulée comme tu le prévoyais ?

A+
16/01/2018, 13h33
xeron33

Citation:

Envoyé par marot_r

Et alors ?
Est-ce que Access a appelé le code ?
Est-ce que l'exécution pas à pas c'est déroulée comme tu le prévoyais ?

A+

***********************************************
Non pas d'appel de code sur l'évènement Form_Error le message d'Access s'affiche toujours.
Merci
16/01/2018, 21h43
loufab

Le code est bien branché au formulaire via sa propriété évènementielle ?
17/01/2018, 13h33
xeron33

Citation:

Envoyé par loufab

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

**********************************************************
oui sur Form_Error.
17/01/2018, 20h47
marot_r

Désolé plus d'idée.

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

A+
17/01/2018, 22h24
tee_grandbois

Bonsoir,

Citation:

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.

Attention au nommage d'étiquette !

Tout est bon dans ton code ....sauf le nom de l'étiquette "Err" !
Donne un autre nom à ton étiquette "err" (par exemple "On Error GoTo Erreur") ... car "Err" est un mot réservé. Et tout ira mieux.

JosBK

Citation:

Envoyé par xeron33

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:

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

18/01/2018, 20h05
xeron33

Citation:

Envoyé par josBK

Tout est bon dans ton code ....sauf le nom de l'étiquette "Err" !
Donne un autre nom à ton étiquette "err" (par exemple "On Error GoTo Erreur") ... car "Err" est un mot réservé. Et tout ira mieux.

JosBK

****************************************
Merci pour ta réponse mais non ça vient pas de là je viens de tester toujours le même problème : affichage du message d'Access puis branchement sur Err ou Erreur .
18/01/2018, 20h05
xeron33

Citation:

Envoyé par marot_r

Désolé plus d'idée.

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

A+

**************************
ACCESS 2010
18/01/2018, 20h08
xeron33

Citation:

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

Bonsoir,

Citation:

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"

Il suffit de prévenir l'utilisateur avant de faire l'insertion. C'est en général comme cela qu'on procède avec une IHM, on fait les contrôles avant d'insérer les données et si tout est bon, on valide.
Comme loufab te l'a dit:

Citation:

Envoyé par loufab

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

Par exemple, au début de ta procédure (avant de rendre les contrôles invisibles) tu mets :
Code:

1 2 3 4 5 6 If Me.Modifiable64 = "" Then MsgBox "Saisie Nom Opérateur Obligatoire !!!", vbOKOnly + vbCritical, "Cloture Insertions !!! " Me.Modifiable64.SetFocus Exit sub End IF

18/01/2018, 23h18
loufab

Bonsoir,

Je complèterais par ce test :

Code:

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

ou bien

Code:

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

réponse à tee_grandbois et loufab

Merci pour vos réponses :
Code:

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:

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...:roll:

19/01/2018, 23h47
tee_grandbois

Citation:

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 :

ce n'est pas la bonne méthode, je te conseille vivement de faire tes contrôles avant l'insertion, c'est une absurdité de vouloir "trapper" les erreurs système pour contrôler la saisie.
20/01/2018, 12h55
xeron33

Citation:

c'est une absurdité de vouloir "trapper" les erreurs système pour contrôler la saisie.

oui Chef :D
Mais alors pourquoi on error ?
Pour des erreurs d'un "plus haut niveau" ?
Merci
20/01/2018, 13h44
tee_grandbois

Bonjour

Citation:

Mais alors pourquoi on error ?
Pour des erreurs d'un "plus haut niveau" ?
Merci

Oui, ce sont les erreurs système inattendues (celles que l'on n'a pas prévu dans les contrôles).
Le fait d'attraper une erreur et de l'afficher permet d'alerter l'utilisateur et lui évite de se trouver devant la fenêtre de code avec l'instruction en erreur et permet au développeur de corriger le code en conséquence si besoin, mais cela ne devrait arriver que très rarement (sauf peut-être les conflits d'écritures en mode multi-utilisateurs mais même dans ce cas on peut prévoir des routines pour continuer le traitement)

Citation:

Envoyé par tee_grandbois

Bonjour

Oui, ce sont les erreurs système inattendues (celles que l'on n'a pas prévu dans les contrôles).
Le fait d'attraper une erreur et de l'afficher permet d'alerter l'utilisateur et lui évite de se trouver devant la fenêtre de code avec l'instruction en erreur et permet au développeur de corriger le code en conséquence si besoin, mais cela ne devrait arriver que très rarement (sauf peut-être les conflits d'écritures en mode multi-utilisateurs mais même dans ce cas on peut prévoir des routines pour continuer le traitement)

*****************************************************
Merci pour ta réponse, j'en tiendrai compte j'ai finalement codé comme ca sur le focus du contrôle suivant :
Code:

1 2 3 4 5 6 7 Private Sub Commande62_GotFocus() If IsNull(Me.Modifiable64) Or Null Then MsgBox "Saisie Nom Opérateur Obligatoire !!!", vbOKOnly + vbCritical, "Cloture Insertions !!! " Me.Modifiable64.SetFocus End If End Sub
Merci à toi
A+

22/01/2018, 19h00
tee_grandbois

Bonsoir,

Citation:

Merci pour ta réponse, j'en tiendrai compte j'ai finalement codé comme ca sur le focus du contrôle suivant :

méfie-toi, avec GotFocus l'affichage du message sera systématiquement provoqué et la sortie du champ sera impossible tant que l'utilisateur n'aura pas saisi quelque chose.
Pour moi, le mieux c'est de faire les contrôles au moment de la validation (clic sur le bouton) mais c'est toi qui voit.

Code:

If IsNull(Me.Modifiable64) Or Null Then

Or Null est en trop
30/01/2018, 14h06
xeron33
Citation:

Envoyé par tee_grandbois

Bonsoir,

méfie-toi, avec GotFocus l'affichage du message sera systématiquement provoqué et la sortie du champ sera impossible tant que l'utilisateur n'aura pas saisi quelque chose.
Pour moi, le mieux c'est de faire les contrôles au moment de la validation (clic sur le bouton) mais c'est toi qui voit.

Code:

If IsNull(Me.Modifiable64) Or Null Then

Or Null est en trop

***************************************************
Merci de ta remarque je l'avais fait sur l'évènement "sur Clic" au départ mais je ne pouvais pas "revenir" sur le contrôle "Modifiable64"
Code:

1 2 3 4 5 If IsNull(Me.Modifiable64) Or Null Then MsgBox "Saisie Nom Opérateur Obligatoire !!!", vbOKOnly + vbCritical, "Cloture Insertions !!! " Me.Modifiable64.SetFocus End If
C'est pour ça que je l'ai fait sur le focus de Commande62 (le contrôle qui suit Modifiable64).
Si tu as une idée comment résoudre cet inconvénient, j'ai tout de même testé le programme avec ou sans données dans "Modifiable64" pas de problèmes le message ne s'affiche pas tout le temps.
Oui en effet Or Null est en trop faute d'étourderie...
Merci