[Formulaire] Zone de liste de modifiable - liste de champs

Version imprimable

29/11/2006, 04h28
Brosseux

[Formulaire] Zone de liste de modifiable - liste de champs

Bonjour à tous,

en premier lieu, bravo à toute l'équipe de Developpez.com pour ce magnifique travail. Je ne suis surement pas le premier a le dire, mais bon.

Ma question:

comment faire en sorte pour que le contenu d'une zone de liste modifiable dépendent d'une autre zone de liste modifiable ayant comme Origine source : liste des champs

Simple en apparence, mais j'ai fouillé sur le forum, dans les FAQ et les tutoriels, et j'ai rien trouvé.

Merci beaucoup à l'avance

Brosseux
29/11/2006, 07h21
ClaudeLELOUP
L’idée :
Créer un requête qui sélectionne ce que tu souhaites obtenir dans ta zone de liste « cible ».
Dans origine source de la cible : Table/Requête
Dans contenu de la cible : ceci
Code:

1 2 3 SELECT ListeDeChamps.champ FROM ListeDeChamps WHERE (((ListeDeChamps.champ)=[Formulaires]![tonFormulaire]![leChampOrigine]));
29/11/2006, 14h53
Brosseux

Éclaircissement

Merci pour la réponse, mais je me rends compte que ce n'est pas exactement ce que je cherche.

Donc, je m'explique plus clairement:

dans ma premiere liste modifiable, appelons la CmbChamps, je sélectionne un champ de ma table

dans ma seconde liste, nommé CmbValeur, je voudrais que les enregistrements de ce champ soient afficher.

en un mot, je veux faire un formulaire de recherche, et sélectionner les valeurs a rechercher via une liste déroulante. J'utilise les principes fournises par le tutoriel Formulaire de recherche prêt à l'emploi.

Bonsoir,

un exemple de code pour un formulaire ayant trois zones de liste modifiables,
cbxTables : liste des tables, source:

Code:

1
2
3
4
SELECT [MsysObjects].[Name], [MsysObjects].[Type]
FROM MsysObjects 
WHERE ((([MsysObjects].[Name]) Not Like "MSys*") And (([MsysObjects].[Type])=1)) 
ORDER BY [MsysObjects].[Name];

cbxChamps : liste des champs de la table sélectionnée
cbxValeurs : liste des valeurs du champ sélectionné

cbxTables et cbxValeurs ont comme type de contenu 'Tables/requêtes'
cbxChamps a comme type de contenu 'Liste des champs'

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Option Compare Database
Option Explicit
 
' Evènement sur changement de cbxTables
Private Sub cbxTables_Change()
Dim strTable As String
 
    strTable = Nz(Me.cbxTables)
    If strTable <> "" Then
       Me.cbxChamps.RowSource = strTable
       Me.cbxChamps = Null
    End If
    RefreshValeurs
End Sub
 
' Evènement sur changement de cbxChamps
Private Sub cbxChamps_Change()
    RefreshValeurs
End Sub
 
Sub RefreshValeurs()
Dim strTable As String, strChamp As String
 
    strTable = Me.cbxChamps.RowSource
    strChamp = Nz(Me.cbxChamps)
 
    If strTable <> "" And strChamp <> "" Then
       Me.cbxValeurs.RowSource = "SELECT DISTINCT [" & _
          strTable & "].[" & strChamp & "] FROM [" & strTable & "] " & _
          "ORDER BY [" & strChamp & "]"
    Else
       Me.cbxValeurs.RowSource = ""
    End If
End Sub

Bon courage.