Discussion :

[Vijinn]

Bonjour à tous

J'ai fait un annuaire assez classique avec table -> requête -> formulaire continu qui présente les contacts. Dans la table, j'ai prévu un champ case à cocher intitulé "sélectionné" qui permet à l'utilisateur de sélectionner un contact et de faire une action sur ce contact (par exemple imprimer une enveloppe via un état prévu à cet effet).

J'aimerais mettre dans l'en-tête du formulaire continu un bouton "sélectionner tout" qui coche la case "sélectionné" de tous les enregistrements. Et, si possible, qu'il tienne compte d'un éventuel filtre des enregistrements visibles.

Quelqu'un pourrait-il m'aider ?

Merci.

[Didier L]

Bonjour,

C'est une très bonne idée que j'ai déjà réalisée

Après mise a jour de ta case à cocher tu peux exécuter une requête "update" afin d'affecter la valeur choisie (Vrai ou faux) selon si la case a été coché ou pas ce qui te permet aussi de tout désélectionner (pourquoi pas).
Pour le filtre, la propiété filter" de ton formulaire contient la clause where de ta requête

Voila donc un exemple de code à adapter :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Btn_Tous_AfterUpdate()
dim vsSQL as string
	vsSQL="Update TaRequeteSource set Selectionne=" & Iif([Btn_Tous],-1,0) 
	if me.filter <>"" and me.FilterOn then 'Ajoute la condition where uniquement si il y a un filtre
		vsSQL= vsSQL & " Where " & me.filter
	end if
	Currentdb.excute vsSQL
end sub

[Vijinn]

Bon, ça marche quand il n'y a pas de filtre, mais si c'est filtré (en l'occurrence par un champ qui est une liste déroulante qui prend ses valeurs dans une petite table exprès), il me met :
"Erreur d'exécution '3601': Trop peu de paramètres. 1 attendu."
Et le débogage surligne "CurrentDb.Execute vsSQL"

Quid ?

[Didier L]

Cela semble logique si dans la requete source il y a un paramètre.

Utilise

Code :

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

Debug.print vsSQL

au lieu de l’exécuter afin de récupérer la clause SQL complète que nous puissions l'analyser.

Il faudra surement réécrire la clause Where pour remplacer ce paramètre

[Vijinn]

Bonjour.
Désolé pour ma fréquence de réponse : je ne peux m'occuper de cette BD que le ouiquennde.

Grace à votre petite instruction, j'ai pu voir le problème.
En fait, ça bloquait uniquement lorsqu'on filtrait avec un champ particulier, qui était une liste déroulante qui prenait ses valeurs dans une autre table. J'ai changé l'origine de la source de cette liste déroulante : j'ai entré directement ses valeurs, sans passer par une autre table.

Et ça marche !

Merci de votre aide.