changer l'affichage de la feuille de requête

Question

Bonjour,
Est-il possible de changer l'affichage d'une feuille de reqête dans accèss? l'affichage classique étant de type colonne,est-il possible de disposer les champs de façon verticale?
merci!

CaPiT · Answer

Bonsoir.

Oui, et pour se faire tu dois créer un Etat.

Aide toi de l'assistant c'est relativement simple.

sthael_01 · Answer

par defintion, un champ contient un ou plusieurs enregistrement et un enregistrement
peut exister dans un ou +sieurs champs
ce qui fait que les colones representent les champs et les lignes des enregistrements
imagine le contraire comment veut tu organiser les enregistrements si les champs deviennent des lignes et les enregistrements des colonnes.
peut etre avec office 2007
jesprs que j'ai repondu à ta question

CaPiT · Answer

Oui, c'est possible ;)

Je t'explique la démarche:
- Tu crées un formulaire. Dans celui-ci tu mets une zone de liste déroulante que l'on va appeler ChoixListe (par exemple). Dans la propriété "contenu" de la liste, tu cliques sur les trois p'tits points (...). Dans la requête tu mets le champs qui te servira de critère dans la requête principale (par expl: Nom_client).

- Dans ce formulaire tu crées un bouton à l'aide de l'assistant. Dans "Divers" tu mets "Exécuter requête".

- Ensuite tu vas dans ta requête principale. Sur le champs ou tu souhaites mettre ce critère (Das mon exemple c'est le champs "nom_client"), tu mets [Formulaires]![NomDuFormulaire]![ChoixListe].

Ca devrais marché. Si tu as plusieurs critères tu mets plusieurs listes puis tu adaptes dans la requête principale.

CaPiT · Answer

C'est possible évidement !

Dans ta requête principale tu rajoute un critère comme l'autre. La deuxieme liste se créer comme la 1ere.
Le code VBA de ton bouton d'execution devient plus compliqué par contre:

Private Sub bouton_Click()
    Dim stDocName As String
    Dim stLinkCriteria As String

If Not IsNull([Liste1) Or IsNull(Liste2) Then
    stDocName = "FormulaireMachin"
    
    Set db = CurrentDb()
    Set res = db.OpenRecordset("SELECT ChampsPrincipalTable FROM TableEnQuestion WHERE ((Champs1)='" & TableEnQuestion.Liste1 & "') AND ((TableEnQuestion.Champs2)='" & Liste2 & "');")

    stLinkCriteria = "ChampsPrincipalFormulaireMachin=" & res!ChampsPrincipalTable
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
    MsgBox ("Vous n'avez pas sélectionné de données dans les listes !!!!!!")
End If
End sub

CaPiT · Answer

Dis moi si ça marche ;)

Bonne journée !

Changer l'affichage de la feuille de requête

5 réponses

Discussions similaires

Newsletters