Discussion :

[sunvialley]

Bonjour,

je voudrais réaliser un filtrage sur un formulaire (en mode feuille de données) qui affiche les donnés d'une table, le tout via des comboBox.
En gros j'ai 3 objets :
- 1 control comboBox "type_filtre" qui correspond aux différents champs de ma table
- 1 control comboBox "valeur_filtre" qui liste les valeurs (disctinctes) de la table pour le champs choisi dans la comboBox "type_filtre"
- 1 sous formulaire "ssForm" qui affiche ma table


Voici donc mes problèmes :

a) comment initiliser "type_filtre" avec les légendes des champs de ma table ?
(J'ai vu en VBA il y avait : myField.Properties("caption").Value )
b) comment lier ma 2e comboBox à la 1ere (via Requete avec paramètre ? vu que ma 1ere combo contient les legendes et pas les noms des champs, comment faire ?)
c) comment effectuer le filtrage ? (effectuer une requete où la clause WHERE correspond à la valeur de ma 2e combo ? si rien n'est choisi il faut que toute la table s'affiche donc pas de WHERE ?)

En gros je n'ai qu'une idée globale de la solution... mais je sais pas où je dois mettre du VB, où je dois passer par l'interface, comment lié les deux...

J'aimerais votre avis et vos conseil.
Merci

[tamerlan]

reponse a) Tu mets initialiser ta combo box dans la procedure "Sur ouverture" (generateur de code) dans les proprietes du formulaire en mettent :

Code :

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

combo.value = "..."

réponse b) tu cré une requete de recherche avec un parametres que tu écris comme suit :

Code :

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

1
2
 
WHERE Champs = [Forms]![NomDuFormulaire]![NomDeLa1Combo]

tu cré ta 2ieme combo avec l assistant est tu suis les instruction : tu relies donc cette combo a la 1iere.

reponse c) A ta place, je passerai par deux requete.
Si rien n est choisi : requete1 (sans parametre)
Si quelques chose est choisi : requete2 (avec une condition :

Code :

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

1
2
 
WHERE Champs = [Forms]![NomDuFormulaire]![NomDeLa1Combo]

[sunvialley]

a)

combo.value = "..."

pour moi cela remplie juste la valeur selectionnée, mais ca n'ajoute pas les différents Items. J'ai pas trouver la méthode ou propriéter à utliser (peu être ItemData, mais j'y arrive pas... )

b)
dsl, j'ai pas été assez précis sur ce problème.

en réfléchissant un peu mieux, ca serait plutot un truc du genre ;

Code :

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

1
2
SELECT DISTINCT [combo1]
FROM maTable

car je veux en fait les résultats pour un seul champ, mais ce champs est fonction de combo1 ; mais mon problème que que [combo1] contiendrait la légende du champ et pas le nom et du coup ca merde


c)
oui, en effet j'ai pas pense à faire 2 requêtes, j'suis bête


si j'arrive a faire a) et b), je pense que c) ira bien.

[sunvialley]

je viens de voir que j'ai un autre problème. Mais si j'arrive pas a le résoudre ca sera moins beau mais plus facile.

Mon sousFormulaire qui s'affiche en mode feuille de données, je voulais que le texte affiché dans l'en tête des colones corresponde à la légende du champs et pas au nom du champs.

(si vraiment je trouve pas, j'éffacerai les légende des champs, et je mettrais des noms de champs adéquate ; même si ca casse les conventions de nommage, snif)

[tamerlan]

ok alors j ai pas compris. qu est ce que tu appelles la légendes du champ? c est quelques chose que tu veux et qui ne changera pas ?

[sunvialley]

legende est une propriete de champs (table mode création)
ca correspond au "AS" d'une recup (à mon avis)

par ex, pour ma table "fichier", j'ai des champs :

nom : "nom_fichier"
legende : "Nom"

ou

nom : 'chemin_fichier"
legende : "Chemin"
...

En gros c une habitude que j'ai, mais je crois que je vais devoir changer avant de trouver une solution.

[sunvialley]

ce que je vais faire pour le moment c'est enlever la notion de légende et travailler que sur le nom des champs...

faut que je trouve comment remplir une comboBox selon le nom des champs d'une table (sauf pour la clef)

sinon, 2e sacrifice, je rentre les valeurs à la main... que de sacrifice vers un code dégeulasse

me reste à trouver comment changer la propriété "source" de mon ssformulaire...

edit : j'ai fait comme dit ci dessus

[sunvialley]

pour récuper le nom des champs d'une table, j'ai trouvé en tombant sur un autre sujet (mea coulpa, j'aurais du encore plus insister sur la recherche, mais la base du problème n'était pas là à l'origine...)

pour info

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim rs As New Recordset
Dim f As Field
Dim contenuTypeFiltre As String
 
rs.Open "GOT_Fichier", CurrentProject.Connection
contenuTypeFiltre = ""
For Each f In rs.Fields
If (f.Name <> "id_fichier") Then contenuTypeFiltre = contenuTypeFiltre & f.Name & ";"
Next
cbox_TypeFiltreFichier.RowSource = contenuTypeFiltre

sinon, je suis passer par un simple formulaire et une liste... comme dans le tutoriel de rechercher multicritere de cafeine (je crois)

PB résolu