Discussion :

[marot_r]

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 :

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

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 :

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

[micniv]

Bonjour, René

pour ma part j'appelle la procédure

Code :

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

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 :

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

[nico84]

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 :

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
'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 :

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

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

[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 pas trouvé mieux :

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

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 ??????? :

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

set err=userform

[micniv]

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

Code :

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

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

[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)