Discussion :

[kovrov]

Bonjour tout le monde,
sur un formulaire (form1) j'ai crée un bouton avec des cases à cocher pour ouvrir d'autres formulaires (form2 par exemple), ce formulaire est pour une requette avec critère (entrer une date), tout passe bien quand je clique sur le bouton je dois entrer une date pour afficher le formulaire (form2), sauf si j'annule j'obtiens le message suivant:
Erreur d'exécution: 2501,
l'action OpenForm a été annulée.

comment je peux annuler ce message d'erreur une fois pour toute

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Commande126_Click()
Select Case Me.Cadre117.Value
     Case 1
          DoCmd.OpenForm "Achat_sup"
 
 
          End Select
End Sub

[marot_r]

Il faut gérer l'erreur :-).

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
28
29
30
31
32
33
Private Sub Commande126_Click()
 
on error Goto Err_Commande126_Click
 
     Select Case Me.Cadre117.Value
         Case 1
              DoCmd.OpenForm "Achat_sup"
 
 
     End Select
 
Exit_Commande126_Click:
     exit sub
 
Err_Commande126_Click:
     select case err.number
         case 2501
             'Ne rien faire, annulation d'ouverture de form, c'est correct.
 
             'Le resume determine où le code doit reprendre après l'erreur,
             '  comme je n'ai rien à faire j'ai choisi de sortir de la procédure 
             '  mais on aurait pu faire autre chose.
             resume exit_Commande126_Click
 
         case else
             'Traite toutes les autres erreurs possibles.
             msgbox "Erreur : " & err.number & ", " & err.description, vbExclamation
 
      end select
 
      resume Exit_Commande126_Click
 
End Sub

Je te conseille vivement de changer les noms par défaut de tes objets pour des noms plus signficatifs. Par exemple Commande126 pourrait être btnOuvrirFormulaire et Cadre117 pourrait être ChoixFormulaire. Cela rend ton code plus facilement compréhensible et donc facilite le débugage.

A+

[kovrov]

Merci beaucoup!