Discussion :

[Virgile59]

Bonsoir, voilà je voudrais qu'à chaque fois qu'il y est l'erreur 2603 un certain message apparait.
J'ai donc bien vu qu'il existait ce code :

Code :

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

1
2
3
4
Select Case Err.Number
   Case 2603
       MsgBox "Vous n'avez pas les droits !"
End Select

Mais il ne fonctionne pas ! Je n'ai peut être pas écrit le code correctement...

Ensuite je voudrais savoir si il était possible d'avoir ce message d'erreur alors que l'erreur se manifesterait sur tel ou tel formulaire.
En claire écrire ce code queqlue part et dès que l'erreur se manifeste le message que j'ai mis apparait et le code ne s'execute pas.

Au clique sur un bouton, le formulaire A se ferme et le B s'ouvre par contre si il y a l'erreur alors aucunes action ne doit se lancer et l'on doit avoir uniquement le message d'erreur prédefini.

Merci d'avance pour l'aide

[cafeine]

Hello,

il faut déclarer à la fonction/sub ton traitement d'erreur ...

pour schématiser ça marche comme ça

On Error Goto TraimentErreur
    ' suite du code

Exit Sub

TraitementErreur:
Select Case Err.Number
    ' code de traitement de l'erreur

[Virgile59]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Commande8_Click()
On Error GoTo errMk
DoCmd.Close
DoCmd.OpenForm "F_MENU_FORMATIONS"
 
errMk:
Select Case Err.Number
 Case 2603
    MsgBox "Vous n'avez pas les droits !"
 Case Else
    Debug.Print "Erreur " & Err.Number & " : non répertoriée"
 
End Select
End Sub

Voilà le code que j'ai mis, j'ai le bon message d'erreur mais comment faire pour que
DoCmd.Close
DoCmd.OpenForm "F_MENU_FORMATIONS"
ne s'execute pas ?

[cafeine]

j'aurais plutôt mis :

Code :

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

DoCmd.Close acForm, Me.Name

n'oublie pas le

Code :

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

Exit Sub

avant ton traitement d'erreur

[Virgile59]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
On Error GoTo errMk
 
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "F_MENU_FORMATIONS"
 
Exit Sub
errMk:
Select Case Err.Number
 Case 2603
    MsgBox "Vous n'avez pas les droits !"
 Case Else 
    Debug.Print "Erreur " & Err.Number & " : non répertoriée"
 
End Select

Mais là tous se ferme alors que je ne veux pas que le formulaire se ferme.... comment puis je faire ?

[Arkham46]

slt,

ben si l'erreur a lieu sur l'ouverture du deuxième formulaire il faut inverser les commande.
d'abord tu ouvres le deuxième formulaire et ensuite tu fermes le premier.

[Virgile59]

Merci, désolé c'est la fin de journée...