Discussion :

[paulux67]

Bonjour,
je souhaite faire une liste déroulante simple à partir d'une table ListeComité qui contient 11 valeurs. Ces valeurs ne peuvent être sélectionnées qu'une seule fois.
Exemple: membres du comité "Président", "Vice-président", "Trésorier", "Secrétaire", etc.
Ainsi, le choix de la liste diminue au fur et à mesure des sélections dans mon formulaire "comité". De plus, lorsque le maximum d'enregistrements (n=11) est atteint et que la liste est vide, je ne peux ajouter aucun nouvel enregistrement dans mon formulaire.
Je préfère des codes vb (pas trop compliqués cependant) au lieu de critères dans des requêtes.
merci beaucoup

[ClaudeLELOUP]

Bonjour,

Il "suffit" donc d'écrire un code qui après utilisation d'un item (donc dans un événement Après mise à jour) vient réduire les choix (par exemple en utilisant Pas In("1erItemChoisi";"2eItemChoisi"; ...) dans la requête de la propriété Contenu de ta zone de liste.

[paulux67]

bonjour,
je ne saisie pas bien votre réponse. Pouvez-vous m'aider davantage, car je n'ai rien trouvé. Merci beaucoup.

[Invité]

Bonjour

Une autre solution serait l'ajout d'un champ booléen dans ta table.

Ta requête qui alimente ta liste serait filtré sur ce champ, de manière à ne faire apparaître que les éléments non cochés (Faux). Lorsque tu choisis un élément, il suffit de faire une requête de mise à jour qui va cocher cet élément. Comme cela à la prochaine sélection dans cette liste, il n y aura que les éléments qui ne sont pas pris.

Philippe

[ClaudeLELOUP]

Bonjour,

@Philippe, je crois que ce n’est pas si simple, car si on rétrécit la liste au fur et à mesure, les postes précédemment affectés ne s’afficheront plus !
Il faut que le contenu de la liste soit modulé zone de liste par zone de liste.

Voici ce que je propose :



Voici le code du module du formulaire

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Option Compare Database
Option Explicit
 
Private Sub Form_Current()
  Call MajListe
End Sub
Public Sub MajListe()
  Dim i As Integer
  Dim ctl As Control
  Dim sExclus As String
  Dim sSql As String
  'Construire la liste des exclus : tous ceux qui sont affectés
  sExclus = "-0,"    'Ça ne mange pas de pain ! (aucun n'aura cette valeur)
  For i = 1 To 11
    sExclus = sExclus & Nz(Me("cboPoste" & i), -1) & ","
  Next i
  'Reconstruire le SQL des listes : exclure le contenu de sExclus sauf sa propre valeur
  For i = 1 To 11
    sSql = "SELECT tCandidatPK,  NomCandidat FROM tCandidats WHERE tCandidatPK " _
                   & "Not In (" & Replace(sExclus, "," & Nz(Me("cboPoste" & i), -1) & ",", ",-1,") & ")" _
                   & "ORDER BY NomCandidat;"
    Me("cboPoste" & i).RowSource = sSql
  Next i
End Sub
 
Private Sub cboPoste1_AfterUpdate()
  Call MajListe
End Sub
Private Sub cboPoste2_AfterUpdate()
  Call MajListe
End Sub
Private Sub cboPoste3_AfterUpdate()
  Call MajListe
End Sub
Private Sub cboPoste4_AfterUpdate()
  Call MajListe
End Sub
Private Sub cboPoste5_AfterUpdate()
  Call MajListe
End Sub
Private Sub cboPoste6_AfterUpdate()
  Call MajListe
End Sub
Private Sub cboPoste7_AfterUpdate()
  Call MajListe
  End Sub
Private Sub cboPoste8_AfterUpdate()
  Call MajListe
End Sub
Private Sub cboPoste9_AfterUpdate()
  Call MajListe
End Sub
Private Sub cboPoste10_AfterUpdate()
  Call MajListe
End Sub
Private Sub cboPoste11_AfterUpdate()
  Call MajListe
End Sub

Vois si l’exemple que tu trouves ici :
http://claudeleloup.developpez.com/t...esPaulux67.mdb
te convient.
Si oui, je viendrai expliquer cette partie du code

Code :

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

1
2
3
sSql = "SELECT tCandidatPK,  NomCandidat FROM tCandidats WHERE tCandidatPK " _
                   & "Not In (" & Replace(sExclus, "," & Nz(Me("cboPoste" & i), -1) & ",", ",-1,") & ")" _
                   & "ORDER BY NomCandidat;"

… qui n’est pas piquée des vers !

[paulux67]

bonjour!
C'est bien gentil à vous de m'aider à trouver une solution. En fait, la dernière réponse de M. LeLoup est intéressante, sauf que mon formulaire unique inscrit les membres du comité et pour déterminer la fonction qu'ils occupent dans le comité, j'ai une liste déroulante des titres des fonctions. C'est celle-ci que je souhaite voir diminuer les choix au fur et à mesure de leur sélection. Pensez-vous pouvoir m'aider dans ce sens?
Merci beaucoup

[Invité]

Re

Salut Claude, je n'avais pas vu le sujet de cette manière, effectivement, ta solution m'offre un autre point de vue.

Cependant :

j'ai une liste déroulante des titres des fonctions. C'est celle-ci que je souhaite voir diminuer les choix au fur et à mesure de leur sélection. Pensez-vous pouvoir m'aider dans ce sens?

Une copie d'écran du formulaire devrait aider.

Philippe

[ClaudeLELOUP]

... sauf que mon formulaire unique inscrit les membres du comité et pour déterminer la fonction qu'ils occupent dans le comité, j'ai une liste déroulante des titres des fonctions. C'est celle-ci que je souhaite voir diminuer les choix au fur et à mesure de leur sélection.

A priori, cela ne change rien à l'affaire !

Peux-tu poster ta db dans une version compatible Access2000 ou, au moins comme le suggère Philippe, une capture d'écran de ton formulaire.

[paulux67]

Bonjour,



Voici le code du module du formulaire

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Option Compare Database
Option Explicit
 
Private Sub Form_Current()
  Call MajListe
End Sub
Public Sub MajListe()
  Dim i As Integer
  Dim ctl As Control
  Dim sExclus As String
  Dim sSql As String
  'Construire la liste des exclus : tous ceux qui sont affectés
  sExclus = "-0,"    'Ça ne mange pas de pain ! (aucun n'aura cette valeur)
  For i = 1 To 11
    sExclus = sExclus & Nz(Me("cboPoste" & i), -1) & ","
  Next i
  'Reconstruire le SQL des listes : exclure le contenu de sExclus sauf sa propre valeur
  For i = 1 To 11
    sSql = "SELECT tCandidatPK,  NomCandidat FROM tCandidats WHERE tCandidatPK " _
                   & "Not In (" & Replace(sExclus, "," & Nz(Me("cboPoste" & i), -1) & ",", ",-1,") & ")" _
                   & "ORDER BY NomCandidat;"
    Me("cboPoste" & i).RowSource = sSql
  Next i
End Sub
 
Private Sub cboPoste1_AfterUpdate()
  Call MajListe
End Sub
Private Sub cboPoste2_AfterUpdate()
  Call MajListe
End Sub
Private Sub cboPoste3_AfterUpdate()
  Call MajListe
End Sub
Private Sub cboPoste4_AfterUpdate()
  Call MajListe
End Sub
Private Sub cboPoste5_AfterUpdate()
  Call MajListe
End Sub
Private Sub cboPoste6_AfterUpdate()
  Call MajListe
End Sub
Private Sub cboPoste7_AfterUpdate()
  Call MajListe
  End Sub
Private Sub cboPoste8_AfterUpdate()
  Call MajListe
End Sub
Private Sub cboPoste9_AfterUpdate()
  Call MajListe
End Sub
Private Sub cboPoste10_AfterUpdate()
  Call MajListe
End Sub
Private Sub cboPoste11_AfterUpdate()
  Call MajListe
End Sub

Vois si l’exemple que tu trouves ici :
http://claudeleloup.developpez.com/t...esPaulux67.mdb
te convient.
Si oui, je viendrai expliquer cette partie du code

Code :

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

1
2
3
sSql = "SELECT tCandidatPK,  NomCandidat FROM tCandidats WHERE tCandidatPK " _
                   & "Not In (" & Replace(sExclus, "," & Nz(Me("cboPoste" & i), -1) & ",", ",-1,") & ")" _
                   & "ORDER BY NomCandidat;"

… qui n’est pas piquée des vers !

bonjour,
je vais tenter d'utiliser cette solution. Après analyse, elle semble être appropriée si j'utilise un sous-formulaire en mode continu pour mon comité. Je vous reviens et je mettrai sans doute le problème à "Résolu". Je vous remercie infiniment. Vous ne savez pas à quel point ce site web et vos solutions sont une ressource inestimable!

[ClaudeLELOUP]

Vois si l’exemple te convient.
Si oui, je viendrai expliquer cette partie du code

Voir l'explication de la méthode à cette adresse : http://claudeleloup.developpez.com/t.../plic-ploc/#LV

Commentaires bienvenus !

[paulux67]

Bonjour,
j'ai tenté de prendre la solution que vous me proposez, mais je dois procéder à l'envers. Vous pourrez voir d'après les images (5) ci-jointes des captures d'écran de mes tables (3) et du sous-formulaire (2):

Première table: ListeFonction, qui énumère les fonctions des dirigeants du Comité (pour l'exemple je n'ai mis que 4 fonctions).
Deux images: format création et données




Deuxième table: tblDirigeant qui contient les membres du comité et qui possède un champ dirFonction (numérique à laquelle je désire informer grâce à une liste déroulante dont la source est la table ListeFonction en lien avec le champ clé primaire id_fcoCode)
Une image: format création



Sous-formulaire: C'est dans ce sous-formulaire SfrmDirigeantComite, inclus (père-fils) dans le formulaire Comité que je vais inscrire les dirigeants. Dans ce sous-formulaire, il y aura donc la liste déroulante basée sur la table ListeFonction. C'est à cet endroit que je désire voir diminuer les choix dans ma liste au-fur et à mesure de leur sélection et dont le code devra être inséré.
Deux images: formats création et données




J'espère que vous comprendrez mon besoin. Je vous remercie beaucoup.

[ClaudeLELOUP]

Pourquoi veux-tu que l'attribution se passe à ce niveau-là ?
Ne pourrais-tu pas :
1° constituer l’équipe du comité (comme dans mon exemple)
2° ajouter un bouton dans le formulaire exemple pour déclencher in fine le report dans tblDirigeant du code fonction qui a été attribué à chacun
3° dans ton père/fils Comité/Membres afficher la fonction dans une zone de texte et non dans une zone de liste ?

[paulux67]

bonjour, oui c'est une idée. Mais c'est parce que j'ai les coordonnées individuels de ces dirigeants. Je vais jongler tout cela en considérant votre solution. Merci beaucoup. Je pense que je vais résoudre cette requête avec votre solution. ça va marcher. C'est une bonne piste. Merci

[kabamel]

Salut à tous, Dans mon cas, j'utilise un formulaire feuille de donnée. Comment y procéder ?