Discussion :

[HDU71000]

Hello,

j'ai créé un form basé sur une table, qui contient des champs d'autres tables. La table peut contenir, pour la plupart des champs, plusieurs valeurs.

Cela fonctionne bien, le formulaire m'a créé des listes de cases à cocher multiples, et les données sont bien insérées dans la table.

Je voudrais un form idépendant, qui me serve de filtre à choix multiples, mais je ne trouve pas de contrôle qui me permette cela. Je cherche donc une zone de liste de cases à cocher, comme dans mon form de saisie, mais lui me le propose du fait qu'il est basé sur la table.

Pas certain d'être très clair, alors voici mon form basé sur la table qui contient les champs :



J'aimerai donc créer un form indépendant pour avoir les mêmes zones qui me serviraient de filtre pour un traitement.

Merci

[HDU71000]

Personne n'a d'idée sur le comment faire une telle zone de liste à choix multiples (cases à cocher) dans un form indépendant ?

Merci

[HDU71000]

En glanant un peu, je crois que le controle ListView permettrait -peut-être- cela.

Mais je ne l'ai pas dans la liste des controles activeX et ne sait quelle réf cocher. Une idée ?

Ou toute autre astuce pour arriver à ce que je veux faire (filtrer depuis des zones de listes).

Merci

[tee_grandbois]

Bonjour,

Je voudrais un form idépendant, qui me serve de filtre à choix multiples, mais je ne trouve pas de contrôle qui me permette cela.

Une zone de liste permet un choix multiple c'est l'icone entourée :


il n'y aura pas de case à cocher mais pas de problème, les items sélectionnés apparaissent surlignés et sont sélectionnables ou désélectionnables à chaque clic :

[HDU71000]

Merci, j'avais trouvé cette solution.

Maintenant, j'aimerais une requête avec comme critère les élements sélectionnés dans cette liste, mais cela ne fonctionne pas.

Merci

[tee_grandbois]

Merci, j'avais trouvé cette solution.

Ce n'était pas clairement indiqué dans tes propos.

Maintenant, j'aimerais une requête avec comme critère les élements sélectionnés dans cette liste, mais cela ne fonctionne pas.

Qu'est-ce qui ne fonctionne pas ? Peux-tu être plus précis ou montrer un bout de ton code, à défaut ?

[HDU71000]

Merci,

si dans ma requête je mets :

Code :

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

1
2
3
SELECT t_organisme.ci_organisme, t_organisme.type
FROM t_organisme
WHERE (((t_organisme.type.Value) Like [formulaires]![f_filtre]![listetype]));

Où f_flitre est le formulaire qui contient une zone de liste à sélection multiple nommée listetype

La requête ne retourne rien...

Merci

[HDU71000]

Il y a quelque chose que je ne maitrise pas dans ces zones multiples dans les tables.

J'ai comme (entre autres) tables :
t_organisme(#ci_organisme, type) ou type est numérique et clé de la table :
t_type(#ci_type, type)

Mais dans ma table t_organisme, malgré le champ 'type' de type numérique, les champ sont affichés comme texte...

A+

[tee_grandbois]

Bonsoir,

Mais dans ma table t_organisme, malgré le champ 'type' de type numérique, les champ sont affichés comme texte...

C'est probablement lié à la structure des champs multivalués qui ne sont rien d'autre, je pense que des tableaux.
Personnellement, je n'ai jamais utilisé les champs multivalués et je m'en porte pas plus mal.
Pur construire ton filtre, je te conseillerai plutôt d'utiliser In() que Like plus facile à construire en VBA.
A essayer sous la condition que cela fonctionne avec un champ multivalué :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim  strSql as String
Dim strFiltre as String
Dim varItm as Variant
 
    For Each varItm In [formulaires]![f_filtre]![listetype].ItemsSelected       
       strFiltre = strFiltre & IIf(strFiltre = "", """", ",""") & ([formulaires]![f_filtre]![listetype].ItemData(varItm)) & """"    
    Next varItm
 
    strFiltre = " In(" & strFiltre & ")"
 
    strSql = "SELECT t_organisme.ci_organisme, t_organisme.type FROM t_organisme " 
    strSql = strSql & "WHERE t_organisme.type.Value " & StrFiltre & ";"

[HDU71000]

Merci, du coup, obligé de passer par du vba.

Vu que j'ai une dizaine de liste à sélection multiples pour le filtre, c chaud.

Dis voir, une question :
sous access 2003, je pouvais faire un form "menu" et l'afficher à n'importe quelle taille. Là sous 2013, j'ai beau jouer avec les modale ou contextuelle, soit mon form de menu est en plein écran, soit il reste en premier plan. Une idée ?

C'est un form basique sur lequel j'ai mis des boutons pour ouvrir d'autres forms, rien de spécial.

Merci

[HDU71000]

Je ne peux pas le dimensionner. Soit il est en plein écran, soit en fenêtre contextuelle et dans ce dernier cas, il reste en premier plan.

C'est forcément un truc con, mais je me bagarre avec cela.

Merci

[HDU71000]

Je me réponds à moi-même. Au lieu de me battre avec les options du form, j'aurais mieux fait d'aller voir les options générales de la base...

Ceci, c'est ok du coup !

Je te tiens au courant quand j'en aurai fini avec les filtres !!!

A+

[HDU71000]

Bon, tout à l'air ok, mais maintenant, j'ai un autre souci.


Donc, j'arrive à afficher un form indépendant avec un filtre multicritères.

J'aimerai dorénavant créer un recordset des éléments de ce form, et là je bloque, vu que le form affiche les enregistrements sur un flitre créé par vba.

Comment puis-je parcourir ce form ? Le mieux serait une table temporaire, mais je ne vois pas comment rajouter les enregistrements du form filtré à cette table.

Suis-je clair ?

Merci

[HDU71000]

C'est bon, résolu.

Sur mon form qui m'affiche les résultats filtrés, j'ai mis un bouton. Je me suis aussi servi d'une table temporaire.

Voici le code, s'il peut servir à d'autres :

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
DoCmd.SetWarnings (False) 'on empêche les messages de confirmation de Access
 
DoCmd.OpenQuery "r_suppression_table_temporaire" 'on efface la table temporaire
 
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone 'on ouvre les enregistrements du form (me)
 
On Error Resume Next 'pour éviter les messages d'erreur si souci
 
rs.MoveLast ' pour connaitre le nb d'éléments
rs.MoveFirst ' on se remet sur le 1er
'MsgBox rs.RecordCount'debug
 
Dim ts As Recordset
Set ts = CurrentDb.OpenRecordset("table_temporaire", DB_OPEN_DYNASET)
 
While Not rs.EOF 'tant qu'il y a des enregistremets dans le form
ts.AddNew 'on ouvre la table en mode ajout
ts!code_Organisme = rs!ci_organisme 'on ajoute à table_temporaire les éléments filtrés du form
ts.Update 'on met à jour la table
 
rs.MoveNext 'on passe à l'autre enregistrment
 
Wend 'fini, il n'y en a plus, la table est remplie :)

Voilà.