Discussion :

[Domi2]

Bonjour,

J'ai un problème assez curieux avec l'événement Sur erreur d'un formulaire.

Soit un bouton Valider, dont le seul code est :

Code :

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

1
2
3
4
5
DoCmd.RunCommand acCmdSaveRecord
 
'ou bien (j'ai testé les deux)
 
Me.Refresh

Ceci déclenche l'insertion.

Dans l'événement Sur Erreur, j'ai placé une procédure de détection des doublons.

En utilisant le bouton Valider, je ne rentre même pas dans ma procédure Form_Error. J'ai une erreur levée sur le Me.Refresh, avec le message standard de Jet "Erreur d'exécution '3022'" qui s'affiche...

Par contre, si j'utilise les boutons de déplacements standards du formulaire et que je veux saisir un enregistrement suivant par exemple, l'erreur est correctement levée et je rentre dans ma procédure.

Si quelqu'un a une idée...

Merci d'avance.

Domi2

Edit : je peux évidemment directement traiter l'erreur dans la procédure du bouton, mais cela m'intrigue.

[Jean-Philippe André]

salut, pas d'idée spécifique sur ton problème. Je passe toujours par un test en amont de la validation par l'utilisateur :
- blindage par rapport aux bornes imposées ?
- blindage sur les doublons potentiels.

[Domi2]

Bonsoir jpcheck,

Effectivement, comme mentionné dans mon edit, j'ai traité directement l'erreur sur la procédure du bouton... Et c'est ce que je fais d'habitude...

Ca me va très bien...

Mais je reste un peu sur ma faim...

Pourquoi l'événement sur Erreur se déclenche dans un cas et pas dans l'autre ?

Dans ce cas précis, je fais des tests avec un tout petit jeu de données...

J'espère simplement qu'il n'y ait pas des temps de réponse avec des différence très importantes.

Merci de ton intérêt.

Domi2

[Jean-Philippe André]

peux-tu nous montrer le code "complet", avec notamment les lignes On Error Go To stp ?

[Domi2]

Bonjour,

Voilà le code de mon bouton :

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
53
54
55
56
57
Private Sub cmdValider_Click()
 
    On Error GoTo GestionErreurs
 
    'Rafraîchissement du formulaire
    Me.Refresh
 
    If Me.OpenArgs = "frmBons" Then
 
        'Rafraîchissement de la liste déroulante cboBonProduitProduit
        Forms!frmBons.sfrmBonsProduits.Form.cboBonProduitProduit.Requery
 
        'Fermeture du formulaire
        DoCmd.Close
 
    Else
 
        'Positionnement sur la liste cboProduitForme
        Me.cboProduitForme.SetFocus
 
    End If
 
    Exit Sub
 
GestionErreurs:
 
    Dim Response As Integer
 
    Select Case Err.Number
 
    Case 3022
 
        'Message d'erreur
        MsgBox "Attention !" & vbNewLine & vbNewLine & _
               "Ce produit existe déjà !" & vbNewLine & vbNewLine & _
               "Veuillez vérifier votre saisie !", vbCritical + vbOKOnly, CurrentDb.Properties("AppTitle")
 
        If Me.OpenArgs = "frmBons" Then
 
            'Positionnement sur le premier champ
            Me.cboProduitArticle.SetFocus
 
        Else
 
            'Positionnement sur le premier champ
            Me.cboProduitForme.SetFocus
 
        End If
 
    Case Else
 
        MsgBox "Une erreur inattendue s'est produite !" & vbNewLine & vbNewLine & _
               "Erreur no : " & Err.Number & vbNewLine & vbNewLine & Err.Description, vbCritical + vbOKOnly, CurrentDb.Properties("AppTitle")
 
    End Select
 
End Sub

Le Me.Refresh déclenche l'événement Avant MAJ. Si j'essaie d'enregistrer un doublon, c'est sur cette ligne que se produit l'erreur. Si je ne l'intercepte pas, je ne rentre pas dans l'événement Sur erreur du formulaire.

Pour le reste, la procédure et la gestion d'erreur fonctionne à satisfaction.

Domi2

[=JBO=]

Bonjour,

As-tu lu très attentivement l'aide en ligne d'Access ?

Événement Error (Erreur)

Cet événement survient lorsqu'une erreur d'exécution se produit dans Microsoft Access alors qu'un formulaire ou un état est activé. Cela inclut les erreurs du moteur de base de données Microsoft Jet, mais pas les erreurs d'exécution de Visual Basic.

Or, l'erreur survient durant l'exécution d'une procédure VBA, donc il n'y a pas de déclenchement d'une gestion d'erreur au niveau du formulaire.

Vraiment dommage !
_

[Domi2]

Bonjour,

As-tu lu très attentivement l'aide en ligne d'Access ?

Pas assez en tous cas...

Ce n'est pourtant pas faute de ne pas y recourir.

Merci pour ton info...

Domi2