Voir la source dans Err.Raise ?

Version imprimable

Bonjour à tous et merci de votre temps et de votre aide.

J'ai un truc qui m'agace lorsque j'utilise Err.Raise

ex :
Code:

1 2 3 4 5 Private Sub TestErreur() Const NOM_PROC As String = "TestErreur()" Call Err.Raise(5, NOM_PROC, "test erreur") End Sub
Le contenu de NOM_PROC n'est pas affiché dans la fenêtre qui s'ouvre.
Access met juste :

Microsoft Visual Basic
Erreur d'exécution 5 :
Test erreur

Nul part je ne vois TestErreur.
J'ai essayé avec une chaîne à la place de la constante et j'ai obtenu le même résultat.
J'ai copié l'exemple de l'aide, ici aussi, même résultat, la source n'est pas affichée.

Est-ce que j'ai raté quelque chose ?

L'idée est de fournir, facilement (c-à-d sans faire de développement supplémentaire), un message explicatif à mon utilisateur en précisant dans quel module et procédure l'erreur c'est produite.

On peut faire un truc du genre :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Public Sub AfficherErreurStandard(prmErr As ErrObject, Optional prmMess As String = "") DoCmd.Hourglass False Dim mess As String If prmMess <> "" Then mess = prmMess mess = mess & vbNewLine & vbNewLine End If mess = mess & "Erreur : " & prmErr.Number & ", " & prmErr.description If Err.source <> "" Then mess = mess & vbNewLine & "Dans " & Err.source & "." End If mess = mess & vbNewLine & vbNewLine & "ATTENTION : Si un traitement était en cours il a sans doute été interrompu et les données affichées pourraient ne pas être correctes." Call MsgBox(mess, vbExclamation) End Sub

Bonjour, René

pour ma part j'appelle la procédure

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Public Sub ErrHandler(routineName As String)
' Purpose: Generic error handler.
 
    Dim sTitle As String, sError As String
 
    Dim currentObject As String
    currentObject = Application.CurrentObjectName
 
    sTitle = "Erreur n° " & err.Number & " dans [" & currentObject & "] : " & routineName
    Beep
    MsgBox err.Description, vbExclamation, sTitle
 
End Sub

que j'appelle ainsi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'Exemple :
Private Sub cmdSaveAs_Click()
 
Const ROUTINE_NAME = "cmdSaveAs_Click()"
 
  On Error GoTo Err_0
 
    Const frmName = "FSaveSpec22"
    DoCmd.OpenForm frmName, WindowMode:=acDialog
 
Exit_0:
    Exit Sub
 
Err_0:
    Call ErrHandler(ROUTINE_NAME)
    Resume Exit_0
End Sub

Cdlt

Bonjour à tous,

Pour ma part j'ai choisi d'écrire les erreurs dans un journal car le plus souvent l'utilisateur zappe le message et je me paie le luxe de numéroter toutes les lignes pour connaître précisément celle qui buggue :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'message dans le journal des erreurs
Public Sub message(T, Optional visu = True)
If Not Mode_debug Then On Error GoTo err:
Dim cd As Long
100 DoCmd.Hourglass False
101 If Not IsNull(T) Then
102   If visu And Not Mode_batch Then MsgBox T, vbExclamation, ""
105   cd = Nz(DMax("cd_log", "messages"), 0)
108   Sr = "INSERT INTO messages (cd_log,qui,quand,version,quoi) VALUES (" & cd & ",'" & Nz(User_init, "X") & "','" & Now & "','" & Vf & "','" & Apo2(Nz(T, ""), 240) & "');"
110   CurrentDb.Execute Sr, dbFailOnError
    End If
    Exit Sub
err:
120 If visu And Not Mode_batch Then MsgBox "Enregistrement du message d'erreur impossible(" & Erl & ") : " & vbCr & "'" & Nz(User_init, "X") _
    & "','" & Now & "','" & Vf & "','" & Apo2(Nz(T, "")) & "'", , "Erreur"
122 If Mode_batch Then application.Quit '16.0d fin prématurée (la fin normale est dans menu.quitte)
End Sub

Qui s'utilise comme ceci :

Code:

1
2
3
4
5
6
7
8
9
Public Function Get_libelle_classe(ByVal n) As String
If Not Mode_debug Then On Error GoTo err:
Dim rado As New ADODB.Recordset
102 rado.Open "SELECT libelle_classe FROM classes WHERE classe=" & Nz(n, 0), cnx, adOpenStatic
104 If rado.EOF Then Get_libelle_classe = "" Else Get_libelle_classe = Nz(rado!libelle_classe, "")
    rado.Close: Set rado = Nothing
    Exit Function
err: Call message("Erreur " & err.Number & "/" & Erl & " dans api_BE.Get_libelle_classe(" & Nz(n) & ") : " & err.description)
End Function

28/09/2016, 16h37
Invité
Bonjour,
j'ai chercher je ne sais quel option pour l'affichage de la fenêtre de degugage avec cette information sans succès!

c'est pourtant bien pratique! je ne pense pas que ça vient du Err.Raise mais d'une option quelconque!
Code:

1 2 3 4 5 Sub test() NOM_PROC = "toto" Call Err.Raise(5,NOM_PROC , "test erreur" & Chr(10) & Chr(10) & "NOM_PROC : " & NOM_PROC) End Sub
Il faut peut-être chercher du côté de la substitution du err par un userform?

Code:

set err=userform

Peut-être que ceci répondra un peu mieux à ta question :

Code:

1
2
3
4
5
6
Private Sub TestErreur()
    Const NOM_PROC As String = "TestErreur()"
    Dim s As String
    s = Application.CurrentObjectName & ": " & NOM_PROC & vbCrLf & vbCrLf & "Test d'erreur"
    Call Err.Raise(9995, , s)
End Sub

cdlt

29/09/2016, 12h49
Jean-Philippe André

Salut,
L'idee sinon serait potentiellement de faire une association numero erreur (0 a 999)+ numero proc (1000 a XXX, multiples de 10000 par exmeple)