Discussion :

[Serisawa]

Bonjour,

Je me permets d'écrire sur ce forum car j'ai un petit blocage sur l'exécution d'une requête.

Pour le contexte, j'ai un formulaire de recherche multicritères basé sur une requête qui ressemble au tutoriel de ClaudeLeloup sur ce sujet.
Mon souhait aujourd'hui est de pouvoir éditer les enregistrements (Filtrés) cochés à l'aide d'un champ "OUI/NON" rajouté. Après des recherches sur internet, j'ai construis une requête de MAJ cependant lors de l'exécution sur un bouton un message d'erreur apparait : "Erreur d’exécution 3061,trop peu de paramètres. 7. Attendu"

Voici mon code :

Code :

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

1
2
3
4
Private Sub Toutcocher_Click()
CurrentDb.Execute "UPDATE rRecherche SET rRecherche.Edition = Yes;"
Me.Requery
End Sub

La requête de MAJ est basée sur la requête d'enregistrements (rRecherche qui est liée et filtrée avec le formulaire) pour que la coche se fasse uniquement sur les enregistrements choisis. Mais le message d'erreur apparait..

Ce qui m'interpelle, c'est que si j'essaie la même chose en remplaçant la "rRecherche" par la Table d'origine la coche des données se fait mais sur tous les enregistrements.. Or je ne veux que les enregistrements filtrés dans le formulaire multicritères.

Peux être qu'il est impossible de réaliser une requête de MAJ sur une requête et il faut absolument le faire sur une table ?

Merci pour votre aide

Bien cordialement

[tee_grandbois]

bonjour,

Peux être qu'il est impossible de réaliser une requête de MAJ sur une requête et il faut absolument le faire sur une table ?

non, c'est possible si cette requête peut être mise à jour (pas de regroupement ou de jointure empêchant la mise à jour ...) et si cette requête ne contient pas de critères faisant référence à un ou des contrôles du formulaire (le message 3061 indique que c'est vraisemblablement le cas).

Par contre, si cette requête est utilisée dans le formulaire, il est possible de mettre à jour le jeu d'enregistrements du formulaire (RecordSet):

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
Private Sub Toutcocher_Click()
Dim oRS As Recordset
Set oRS = Me.RecordsetClone   ' on utilise le clone du jeu d'enregistrements
If oRS.RecordCount > 0 Then
     oRS.MoveFirst
     Do Until oRS.EOF
        oRS.Edit
        oRS.Fields("Edition") = True 
        oRS.Update
        oRS.MoveNext
     Loop
End If
Set oRS = Nothing
Me.refresh   ' on actualise l'écran
End Sub

[HDU71000]

Bonjour,

tu peux essayer :
- de créer ta requête mise à jour et de l'enregistrer
- de l'appeler dans ton code avec

Code :

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

docmd.openquery

A+

[Serisawa]

Bonjour à vous,

Merci pour vos réponses.

Les 2 méthodes fonctionnent parfaitement je vous remercie !! Peux être un peu plus de temps de chargement sur la méthode de @tee_grandbois mais sinon parfait. Je garde les 2 méthodes pour plus tard si besoin.

Je clôture la discussion !

Bien à vous

[tee_grandbois]

bonsoir,

Peux être un peu plus de temps de chargement sur la méthode de @tee_grandbois mais sinon parfait.

dans ce cas en ajoutant cette instruction au début du code: Docmd.Echo False et à la fin Docmd.Echo True cela évite le Refresh de l'écran pendant la mise à jour et l'exécution est instantanée.