[AC-2003] Personnaliser le message d'erreur d'accès au formulaire [Résolu]

[fonfek24]

* BONJOUR *
Ma question relève du détail.

J'ai un peu cherché mais je ne sais pas si c'est possible.
J'ai créer des groupes d'utilisateurs pour gérer les différents droits.

Je voudrais savoir si il est possible de personnaliser le message qui "Vous n'avez pas l'autorisation d'exécuter 'nom_formulaire' "

Je ne sais pas à quelle niveau le message est généré et où pouvoir le modifier.

Merci

[loufab]

Bonjour Sophie,

Bonne question que je ne me suis jamais posée.

Normalement tu peux trapper les erreurs dans la routine qui contient le

Code :

docmd.openform.

Met un stop dans la partie qui traite l'erreur. Avec un

Code :

? err.number

dans la fenêtre exécution tu pourras connaitre le N° et ainsi mettre le message adapté.

Sauf si aucune erreur n'est levée (à vérifier).

Cordialement,

[fonfek24]

Bonjour Loufab,

Voici la fonction que j'utilise pour l'ouverture de mes formulaires

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function OuvreFormulaires(strNomForm As String) As Integer
' Cette fonction est utilisée par l'événement Click des boutons de
' commande qui ouvrent les formulaires dans le menu général. Utiliser une
' fonction est plus efficace que de répéter le même code dans plusieurs
' procédures événementielles.
On Error GoTo Err_OuvreFormulaires
 
    ' Ouvre le formulaire spécifié.
    DoCmd.OpenForm strNomForm
 
Quitte_OuvreFormulaires:
    Exit Function
 
Err_OuvreFormulaires:
    Print Err.Number
    MsgBox Err.Description
    Resume Quitte_OuvreFormulaires

Ai-je rajouté au bon endroit mon ? Err.number ?
Quand j'essaye à présent d'ouvrir mon formulaire, j'ai un message d'Access qui me dit "L'expression sur clic entrée comme paramètre de la propriété de type évènement est à l'origine d'une erreur. Propriété ou méthode non gérée par cet objet"

Je me doute que ce n'est pas ce qu'on a cherché à générer.

Lorsque j'exécute pas à pas il passe effectivement par la partie Err_OuvreFormulaires

Merci pour ton aide

[loufab]

Commence par compiler.

Si tu ne trouve pas l'instruction qui plante, remplace la ligne

Code :

Print ....

Par ces 2 lignes.

Code :

1
2
3
 
Stop
Resume

Quand il s'y arrête sur le stop fait un clic droit sur le Resume puis Définir la prochaine ligne puis F8 pour savoir la ligne qui pose problème.

Cordialement,

[fonfek24]

J'ai réussi à récupérer le numéro en faisant

Code :

MsgBox Err.Number

C'est 2603 qui s'affiche?
Il faut maintenant aller modifier le message directement dans le code de l'erreur ?
Je voudrais remplacer le "Vous n'avez pas l'autorisation d'exécuter 'nom_formulaire' " par un message générique "Vous n'avez pas les droits requis pour ouvrir ce formulaire"

[loufab]

tout à fait,

Code :

1
2
3
if err.number = .... then
 ...
endif

[fonfek24]

C'est parfait et ça fonctionne !
Grand merci !!