[VBA] Gestion des Erreurs, type de l'objet Err

Version imprimable

26/06/2007, 09h19
bastienh

[VBA] Gestion des Erreurs, type de l'objet Err

bonjour,

j'ai un petit soucis d'ordre technique...

je voudrais gerer les erreurs de mon appli Access, avec une procédure présente dans un de mes modules.

il faut donc que lors de l'appel de cette procédure, je lui passe l'objet Err en parametre.

mais je ne connais pas le type de cet objet.

quelqu'un a une idée?

merci d'avance! :king:
26/06/2007, 09h36
MasterSleepy

Salut,

C'est le type "ErrObject".

A+,
MasterSleepy.

Tu es sur?

j'ai toujours une erreur de type...

voila mon code:

Code:

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
 
Private Sub modifier_Click()
 
On Error GoTo ErreurAutorisation
 
(...)
 
ErreurAutorisation:
 
      GestionErreur (Err)
 
End Sub
 
 
 
public Sub GestionErreur(Erreur As ErrObject)
 
 
      Select Case Erreur.Number
        Case 3107: MsgBox "Vous n'avez pas accés à cette option. Contactez votre administrateur logiciel.", vbCritical
         Case Else:
            If Erreur.Number <> 0 Then
               MsgBox "Erreur n°" & Erreur.Number & ". Description: " & Erreur.Description, vbCritical
            End If
      End Select
 
End Sub

26/06/2007, 09h44
Lou Pitchoun

Salut,

Pourquoi réinventer la poudre quand elle existe déjà ? ;)

Sers toi aussi de cette Q/R pour intercepter les erreurs que tu souhaites éviter ou pour lesquelles tu veux afficher un message spécifique.
26/06/2007, 09h53
bastienh

merci bien Kikof

je pensais que l'on pouvait faire comme en java et faire remonter les exceptions.

mais apparement vu la procédure que tu m'as passé, on ne peut pas mettre l'objet erreur en parametre.

je ne suis pas bien habitué à VBA :mouarf:
26/06/2007, 10h09
Lou Pitchoun

Citation:

...on ne peut pas mettre l'objet erreur en parametre.

J'ai testé.. mais je n'ai pas réussi non plus :?
26/06/2007, 10h19
bastienh

c'est pas grave.

ça fonctionne bien comme ça.

merci ;)
26/06/2007, 10h28
Trini

Salut,

D'après ce qui est dit dans la doc Access, l'objet ERR a une portée globale, donc pas besoin de le passer en paramètre.
J'ai fait un cht'i test et c'est le cas.

Il faut éviter de mettre dans la procédure qui teste l'erreur un On Error en tête , cela réinitialiserait l'objet ERR dans ce cas (err=0).