Discussion :

[elvis2019]

Bonsoir,

Je suis un retraité qui prends ces premiers pas dans access et j'ai besoin d'aide.
J'ai crée 3 tables nommées "distribution", "eleves" et "stock"
Les tables "eleves" et "stock" sont utilisées dans la table distribution comme listes déroulantes.
La table "distribution" a un formulaire nommé aussi "repartition". Dans le formulaire, je souhaite que lorsque je choisis une valeur dans chaque liste déroulante, je ne puisse plus la sélectionner à nouveau.

L'application est intitulée "test" et est annexée à la présente.

cordialement.

[tee_grandbois]

bonsoir,

Comme les listes déroulantes sont basées sur des tables, il faut ajouter un champ booléen pour indiquer si l'élément a été sélectionné, car on ne peut pas travailler directement sur les valeurs de la liste puisqu'elle n'est pas basée sur une liste de valeurs mais une requête.
La requête contiendra uniquement ceux dont le champ (appelons-le sélectionné) est à non, par exemple, pour la table eleves:

Code :

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

SELECT nom, prenom, matricule FROM eleves WHERE sélectionné=False;

Ensuite, sur l'évènement "Après mise à jour" du formulaire, il faut mettre à jour la table en mettant le champ booléen à oui et recharger la liste (avec la clé primaire incluse dans la 3ème colonne de la liste)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_AfterUpdate()
Dim strSQL As String
 
' mise à jour de la table eleves après sélection
strSQL = "Update eleves set sélectionné = True where matricule = " & Me.Liste0.Column(2) & ";"
CurrentDb.Execute strSQL, dbFailOnError
 
'rechargement de la liste avec les nouvelles valeurs
Me.Liste0.RowSource = Me.Liste0.RowSource
 
End Sub

Après, cela va dépendre si ce choix a un caractère définitif ou non car à un moment il faudra initialiser le champ pour pouvoir faire de nouveaux choix ...

[Zekraoui_Jakani]

Même approche que celle de tee_Grandbois (voir annexe):

[papyxy]

Bonjour
apparemment votre problème n'est pas résolu!

Je me permets une remarque sur la structure vos tables.
1) distribution
les champs devrait être :
-num
-matricule
-code
2) eleves
les champs devrait être :
-matricule
-nom
-prenom
- flag (boolean 0=dans liste sinon 1)
3) stock
les champs devrait être :
-code
-libelle
-taille
- quantite (je suppose qu'il y-a plusieurs lots)

Avec utilisation d'un sous-formulaire pour la répartition, plutôt qu'une liste.
Il faudra de toute façon, passer par la programmation (basic/sql)

[elvis2019]

Même approche que celle de tee_Grandbois (voir annexe):

Bonsoir,
J'ai mis du temps avant de réagir car je ne me sentais pas bien.
tee_Grandbois, quant je veux ouvrir ton application, elle se referme automatiquement.

[elvis2019]

bonsoir,
à mon sens, ce sujet serait plutôt à poster dans le sous-forum IHM ...

Ceci étant dit, comme les listes déroulantes sont basées sur des tables, il faut ajouter un champ booléen pour indiquer si l'élément a été sélectionné, car on ne peut pas travailler directement sur les valeurs de la liste puisqu'elle n'est pas basée sur une liste de valeurs mais une requête.
La requête contiendra uniquement ceux dont le champ (appelons-le sélectionné) est à non, par exemple, pour la table eleves:

Code :

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

SELECT nom, prenom, matricule FROM eleves WHERE sélectionné=False;

Ensuite, sur l'évènement "Après mise à jour" du formulaire, il faut mettre à jour la table en mettant le champ booléen à oui et recharger la liste (avec la clé primaire incluse dans la 3ème colonne de la liste)

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
Private Sub Form_AfterUpdate()
Dim strSQL As String
 
' mise à jour de la table eleves après sélection
strSQL = "Update eleves set sélectionné = True where matricule = " & Me.Liste0.Column(2) & ";"
CurrentDb.Execute strSQL, dbFailOnError
 
Bonsoir,
Désolé du retard que j'ai mis car je ne sentais pas.
Avec ta méthode, le code AprèsMAJ pour le formulaire ne me permet de continuer. Voir PJ 
 
'rechargement de la liste avec les nouvelles valeurs
Me.Liste0.RowSource = Me.Liste0.RowSource
 
End Sub

Après, cela va dépendre si ce choix a un caractère définitif ou non car à un moment il faudra initialiser le champ pour pouvoir faire de nouveaux choix ...

[tee_grandbois]

bonsoir,

tee_Grandbois, quant je veux ouvrir ton application, elle se referme automatiquement.

euh ... il s'agit de celui Zekraoui_Jakani

pour ce qui est de ton dernier message (sic!) mon code n'est qu'un exemple et est à adapter en tenant compte des noms des objets:
dans Me.Liste0 il faut remplacer Liste0 par le nom de ta liste déroulante: nom1 d'après ton document Word et si, bien sûr, le nombre de colonnes est le même

[elvis2019]

bonsoir,

euh ... il s'agit de celui Zekraoui_Jakani

pour ce qui est de ton dernier message (sic!) mon code n'est qu'un exemple et est à adapter en tenant compte des noms des objets:
dans Me.Liste0 il faut remplacer Liste0 par le nom de ta liste déroulante: nom1 d'après ton document Word et si, bien sûr, le nombre de colonnes est le même

Merci de votre promptitude. Je vous reviendrai

[elvis2019]

Merci à tous ceux qui m'on aidé : tee_grandbois, zerkraoui_zakani et papyxy