Discussion :

[bastienh]

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!

[MasterSleepy]

Salut,

C'est le type "ErrObject".

A+,
MasterSleepy.

[bastienh]

Tu es sur?

j'ai toujours une erreur de type...


voila mon code:

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

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

[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

[Lou Pitchoun]

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

J'ai testé.. mais je n'ai pas réussi non plus

[bastienh]

c'est pas grave.

ça fonctionne bien comme ça.

merci

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