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, 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

**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+

**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+

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

marot_r a tout dit.

**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+

**xeron33** · 15/01/2018, 07h29

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

**marot_r** · 15/01/2018, 22h03

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+

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

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

**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.

**josBK** · 18/01/2018, 09h38

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

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 :

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

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

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 .

On error Access [AC-2010]

VBA Access

Discussions similaires

Partager

Partager