Discussion :

[Pepelu]

Bonjour,

Je sollicite votre aide au sujet du système de cases à cocher.



Contexte:

J'ai une table avec plus de 80000 lignes dans laquelle j'ai inséré une colonne de cases à cocher.
Lorsque j'utilise les filtres pour afficher les lignes dont j'ai besoin (par exemple 3 lignes) et que je coche les cases correspondantes à ces lignes là, j'ouvre alors un formulaire qui m'affiche les informations de ces lignes.



Demande:

Access permet, grace à une requete de mise à jour, de cocher toutes les cases en meme temps, de toutes lignes de la table.
Cependant, serait-il possible de cocher toutes les cases en meme temps, mais seulement pour les lignes filtrées?
C'est à dire donc dans mon exemple, 3 lignes sur 80000.

Merci.

[madefemere]

Bonjour,

Dans une table filtrée je ne pense pas que cela soit possible.
Mais en utilisant un formulaire continu, on doit pouvoir accéder à l'objet Recordset du formulaire ou le son clone et de ce fait aux enregistrements affichés et faire la mise à jour avec un Update en DAO.

Cordialement.

[informer]

Bonjour Pepelu,

Une méthode est de générer une requête SQL dynamiquement en parcourant la liste et récupérant l’identifiant des lignes cochées et ensuite en associant le SQL au recordsource du formulaire appelé

[Invité]

Bonjour,
J'imagine que ton filtre s'applique sur un formulaire?

Disons que oui.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Set rsFiltré=me.recordset.openrecordset
 
While not rsFiltré.eof
   rsFiltré.edit
   rsFiltré("CaseAcocher")=true
   rsFiltré.update
   rsFiltré.movenext
Wend
 
set rsFiltré=nothing

[informer]

Comme je présume que la case à cocher est liée à un champ d’une table (tableX) une solution possible est d’affecter au recordsource du formulaire appelé une requête du genre

Code :

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

SELECT [liste champs] FROM tableX WHERE caseCoche = true

Bien sûr, si les infos proviennent de tables multiples, il faudra faire des jointures

[Pepelu]

Bonjour à tous,

Merci de m'avoir répondu.

Dysorthographie, je souhaiterai une précision sur le code que tu m'as apporté.

Code :

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

1
2
3
4
5
6
7
8
9
10
Set rsFiltré=me.recordset.openrecordset
 
While not rsFiltré.eof
   rsFiltré.edit
   rsFiltré("CaseAcocher")=true
   rsFiltré.update
   rsFiltré.movenext
Wend
 
set rsFiltré=nothing

Tout d'abord, pour répondre à ta question, le filtre s'applique au formulaire dans le sens où :

- Je filtre dans la table nommée "CAD",
- Je coche une à une les cases dans cette table,
- J'ouvre mon formulaire pour appliquer le résultat.


Dans cette partie du code .

Code :

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

rsFiltré("CaseAcocher")=true

je comprends que je dois écrire le nom de la colonne.

Mais quelque part, dans le code général, ne dois-je pas écrire le nom de la table également?

Merci