Discussion :

[trouvaille]

Bonjour,

Pour essayer de faire simple je part d'un exemple d'une table comportant les champs: Nom, Rue, Ville, Pays.

via une requête Access, je suis capable de demander de me lister par exemple toutes les Rues et de me les compter par Rue différentes.

J'aimerais pouvoir dans cette requête, faire exactement la même chose, mais que je demande Rue, Ville, Pays, ou Nom selon mon choix, il me donne la réponse.

Peut-être dois-je passer par un formulaire avec une zone de liste répertoriant mes champs sur lesquels la requête se baserait..??

Je sais pas trop comment m'y prendre

Merci de votre coup de pouce (je suis débutant Access)

[EricDgn]

Bonjour,

Un petit exemple en attaché.
Le principe: créer une requête modèle, ici qAdr, et l'utiliser pour en faire la "source" du formulaire en utilisant la fonction 'replace' pour changer le nom du champ en fonction du champ sélectionné dans le déroulant. Dans la requête modèle, attention à renommer les colonnes (NomChamp AS xxx).

Note: éviter donner à un champ le nom "Nom" car cela peut conduire à des confusions avec la propriété "Nom" ("Name" en VBA). Jamais "Date" non plus.

Bonne continuation.

[trouvaille]

Super....

Vraiment juste ce que je voulais, un très grand merci.

Reste à l'appliquer avec mon application.

Encore merci de toute cette aide..

[trouvaille]

J'aimerai modifier un peu la façon de faire afin d'afficher sur un formulaire plusieurs sous formulaires.

Donc plutôt que de travailler sur un formulaire, j'ai créé un sous formulaire sur base de la même requête

placé ce sous formulaire dans un formulaire et dans ce formulaire, j'y place ma liste déroulante (avec le code VBA).

Et là, cela fonctionne pas.

Il y à t'il une particularité. (j'ai essayer un refresh, mais rien à faire, le sous formulaire ne m'affiche que le champ de départ sur la requête et ne se modifie pas.

Auriez-vous une idée?

[EricDgn]

Bonjour,

Si la liste doit apparaître dans un sous-formulaire, il faut actualiser le RecordSource de ce sous-formulaire, avec un code de ce genre:

Code :

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

1
2
3
4
5
6
Private Sub xChamp_AfterUpdate()
   Dim sSQL As String
   sSQL = CurrentDb.QueryDefs("qAdr").SQL
   sSQL = Replace(sSQL, "ANom", Me.xChamp)
   Me.sf_Adr.Form.RecordSource = sSQL
End Sub

En attaché, un petit exemple.
Bonne continuation.

[trouvaille]

Bonjour,

que dire de plus, mis à part un super grand merci à nouveau....