Discussion :

[matpatchenou]

Bonjour,

J'ai fait le tour de tous les tutos, forums, etc... mais sans trouver de réponses à mon problème.
J'utilise Access 2007.

J'ai créé une requête paramétrable. Lorsque je l'exécute à partir de la création de requête tout se passe normalement.

Par contre, j'ai créé un formulaire avec un bouton qui ouvre cette même requête et c'est là qu'il y a un soucis :
- à l'invite du paramètre, si je clique sur OK (avec ou sans paramètre saisi) tout se passe bien.
- si je clique sur "annuler" : une erreur est générée

Code :

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

1
2
L'action a échoué
Numéro de l'erreur : 2950

Quelqu'un a-t-il déjà rencontré ce problème, ou même mieux, sait-il coment y remédier ?

Toute aide sera la bienvenue.

[Domi2]

Bonjour,

Je pense que le problème vient de l'annulation...

Cela rappelle un peu l'erreur 2501 sur l'ouverture d'un état sans données...

Ce n'est peut-être pas très "propre", mais tu peux "trapper" 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
On Error Goto GestionErreurs
 
    'Le code
 
    Exit Sub 'ou Function
 
GestionErreurs:
 
    Select Case Err.Number
 
    Case 2950
 
        'Rien à faire. Inhibe l'erreur 2950 "L'action a échoué..."
 
    Case Else
 
        MsgBox "Une erreur inattendue s'est produite"
 
        MsgBox Err.Number & " " & Err.Description
 
    End Select

Domi2

[matpatchenou]

Merci de ta réponse si rapide.
Peux-tu m'en dire plus :
Où dois-je saisir tout ça ? Je crée un requête SQL dans Access ?
C'est ce que j'ai essaiyer de faire mais apparemment il manque un opérateur.

[Domi2]

Bonjour,

Tu dois placer le code dans l'événement Sur clic du bouton annuler...

Eventullement, peux-tu poster celui-ci ?

Domi2

[matpatchenou]

Voici ce que j'ai essayé de faire suite à ton conseil :

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
Option Compare Database
 
Private Sub Auto_Logo0_Click()
 
End Sub
 
Private Sub Commande3_Click()
 
On Error GoTo GestionErreurs
 
Exit Sub
 
GestionErreurs:
Select Case Err.Number
Case 2950
Case Else
MsgBox "Une erreur inattendue s'est produite"
MsgBox Err.Number & "" & Err.Description
End Select
 
End Sub
 
Private Sub Détail_Click()
 
End Sub
 
Private Sub Form_Load()
 
End Sub

Mais je n'ai eu aucun changement.
Sinon, voici le code tel qu'il est par défaut :

Code :

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

1
2
3
4
5
6
 
Option Compare Database
 
Private Sub Commande3_Click()
 
End Sub

[vodiem]

salut Domi2 et bienvenu matpatchenou,

j'ai créé un formulaire avec un bouton qui ouvre cette même requête et c'est là qu'il y a un soucis

il faudrait poster la parti de code qui exécute la requête.
je serais moi plus radicale:

Code :

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

on error resume next

en début de procédure.

[matpatchenou]

Bonjour Vodiem,

Merci de ta réponse, mais pourrais me dire où saisir ce que tu m'indiques ?

[vodiem]

Code :

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

1
2
3
4
Private Sub nom_du_bouton_qui_ouvre_cette_meme_requete_Click()
On Error Resume Next
....
End Sub

[matpatchenou]

Je viens d'essayer et j'ai malheureusement le même résultat...

[vodiem]

poste ton code alors...

[matpatchenou]

C'est bien ça le problème, je ne travaille pas avec du code, j'ai tout fait sous Access 2007, par interface graphique.
Voilà la seule chose que j'ai réussi à récupérer :

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
 
Option Compare Database
 
Private Sub Auto_Logo0_Click()
 
End Sub
 
Private Sub Auto_Title0_Click()
 
End Sub
 
Private Sub Commande1_Click()
 
End Sub
 
Private Sub Commande2_Click()
 
End Sub
 
Private Sub Commande3_Click()
On Error Resume Next
 
End Sub
 
Private Sub Détail_Click()
 
End Sub
 
Private Sub Form_Load()
 
End Sub

Le problème vient de la commande 3.

[vodiem]

euh....
je crois qu'on est pas parti du bon pied...

j'ai créé un formulaire avec un bouton qui ouvre cette même requête

il nous faut dans l'éditeur VB le code du formulaire concerné (plus particulièrement le code du click du bouton).
sinon la procédure qui contient la ligne de code qui génère l'erreur:

L'action a échoué
Numéro de l'erreur : 2950

[matpatchenou]

Quand je clique sur "visualiser le code" voici ce que j'ai à l'écran après avoir choisi ma commande (ici requete_test).

[Tofalu]

Tu n'utilises pas le vba mais les macros peut être ?

[matpatchenou]

Après vérification, oui, c'est ça.
La macro a pour action : "OuvrirRequête" et pour arguments "MaRequête; Feuille de données; Modification".

[Tofalu]

Et si tu lances la requête manuellement, tu as la même erreur. Car à priori je pense que c'est elle la source du problème

[matpatchenou]

C'est bien là qu'est le problème, lorsque je lance la même requête manuellement, il n'y a aucun soucis.
Le problème ne survient que lorsque je la lance depuis un formulaire, ou plutôt lorsque je l'annule depuis un formulaire...

[Tofalu]

Ah ben forcément si tu l'annule, la macro te le signale.

Dans ta macro défini en début la commande Avertissement à Non que tu rétabli à Oui en fin de macro.

C'est dans la FAQ

[matpatchenou]

Désolé, mais je n'ai pas trouvé dans la FAQ comment faire pour changer ce paramètre.
Je joins la macro que j'utilise.
Peux-tu m'en dire plus sur la manière d'effectuer ces changements ?
Où alors peux-tu me donner le lien dans la FAQ directerement en rapport avec mon problème ?

[User]

salut,

http://access.developpez.com/faq/?page=SQL#Warning


note que la commande "avertissement" equivalente à SetWarnings existe pour les macros

@+