Bonjour

Pour gérer les erreurs de ma base de données, j'ai appliqué les intructions décrites dans le tutoriel de Christphe Warin dans ce lien (http://warin.developpez.com/access/erreur/tutoriel1/)

Lors de mon premier test, j'ai bien eu un fichier log mais vide (0 octet). J'ai reessayé plusieurs fois sans succès.
J'ai supprimé le premier fichier log pour qu'un autre soit créé, et là c'est pire car je n'ai plus de fichier log du tout pendant les tests.

Quelqu'un pourrait-il m'aider à trouver là où je me suis planté ?

Voici le code qui devrait générer une erreur
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
'
Sub R000C000AGECLIEN()
'
On Error GoTo Erreur:
'
    DoCmd.OpenQuery "R000C000AGECLIEN00vM", acViewNormal, acEdit ' l'erreur est à ce niveau car l'objet R000C000AGECLIEN00vM n'existe pas
    DoCmd.OpenQuery "R000C000AGECLIEN01M", acViewNormal, acEdit
    If Message < 1 Then MsgBox "Fin du traitement", vbInformation, "Message d'exécution"
    Exit Sub
'
Erreur:
    If Message > 0 Then
        oGestErreur.EnregistrerErreur Err.Number, Err.Description, "R000C000AGECLIEN()"
    Else
        ErreurProgramme
    End If
    Exit Sub
'
End Sub
Normalement ce code devrait insérer dans le rapport une erreur de n° 7874.

Merci d'avance de vos contributions.