Discussion :

[xeron33]

Bonjour à tous,
J'aimerais savoir comment alimenter une liste de valeurs dans une zone de liste Access 2010 en VBA, quand je dis "alimenter" je veux supprimer ou rajouter une nouvelle valeur à cette liste par clic sur un bouton par exemple.
Si quelqu'un peut m'aider Merci

[Jean-Philippe André]

Bonjour,

en faisant une rapide recherche dans la
http://access.developpez.com/faq/?page=zdl#AddItem

[xeron33]

Bonjour,

en faisant une rapide recherche dans la
http://access.developpez.com/faq/?page=zdl#AddItem

********************************************************************
Merci pour ta réponse mais je ne trouve pas comment supprimer un élémént de la liste, si tu peux m'aider Merci

[Jean-Philippe André]

Salut,
Un (autre) petit effort en faisant une recherche ?
http://silkyroad.developpez.com/VBA/...serForm/#LII-G
Un indice chez vous

RemoveItem

[xeron33]

Salut,
Un (autre) petit effort en faisant une recherche ?
http://silkyroad.developpez.com/VBA/...serForm/#LII-G
Un indice chez vous

*************************************
Merci pour votre aide, en effet ça marche mais quand je rouvre le formulaire toutes les valeurs de la zone de liste réapparaissent j'ai essayé la méthode requery rien n'y fait

[xeron33]

*************************************
Merci pour votre aide, en effet ça marche mais quand je rouvre le formulaire toutes les valeurs de la zone de liste réapparaissent j'ai essayé la méthode requery rien n'y fait

[Invité]

Bonjour

Comment est alimentée ta liste au démarrage ?

Vu que tes valeurs sont des données variables, que tu ajoutes et supprimes et que tu veux que la modification soit pérennes, il faut mieux stocker ces valeurs dans une table, cette table serait la source de ta liste.
Il te suffit alors d'ajouter les valeurs ou des les supprimer à l'aide de requêtes par exemple, et de faire un requery de la liste à chaque modification des champs de ta table.

Philippe

[xeron33]

Bonjour

Comment est alimentée ta liste au démarrage ?

Vu que tes valeurs sont des données variables, que tu ajoutes et supprimes et que tu veux que la modification soit pérennes, il faut mieux stocker ces valeurs dans une table, cette table serait la source de ta liste.
Il te suffit alors d'ajouter les valeurs ou des les supprimer à l'aide de requêtes par exemple, et de faire un requery de la liste à chaque modification des champs de ta table.

Philippe

******************************************************
Bonjour et merci pour ton aide,
Le formulaire créé est basé sur une table et la liste en question est basée sur un champ de cette table, j'alimente cette zone en "Liste Valeurs" comme "Origine Source" voici le code de la suppression qui agit sur l'évènement "onClic" du bouton "Commande13":

Code :

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

1
2
3
4
5
 
Private Sub Commande13_Click()
Me.Liste9.RemoveItem (Liste9.ListIndex)
Me.Requery
End Sub

Merci

[xeron33]

******************************************************
Bonjour et merci pour ton aide,
Le formulaire créé est basé sur une table et la liste en question est basée sur un champ de cette table, j'alimente cette zone en "Liste Valeurs" comme "Origine Source" voici le code de la suppression qui agit sur l'évènement "onClic" du bouton "Commande13":

Code :

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

1
2
3
4
5
 
Private Sub Commande13_Click()
Me.Liste9.RemoveItem (Liste9.ListIndex)
Me.Requery
End Sub

Merci

[Invité]

Re

Je l'ai dit plus haut, si tu veux garder les suppressions, il faut supprimer dans la table, le Removitem ne supprimera pas dans la source, donc celle-ci étant inchangée, tu auras toujours les mêmes éléments à la réouverture de ta base.

Philippe

[xeron33]

Re

Je l'ai dit plus haut, si tu veux garder les suppressions, il faut supprimer dans la table, le Removitem ne supprimera pas dans la source, donc celle-ci étant inchangée, tu auras toujours les mêmes éléments à la réouverture de ta base.

Philippe

*******************************************
Merci pour ta réponse,
En effet ça marche j'ai créé une table pour la liste, mais à quoi sert le "RemoveItem" alors si il ne supprime pas les valeurs dans une source "ListeValeurs' ?
En plus le "RemoveItem" m'a posé des bizarreries... car avec le code que je t'avais posté ça ne fonctionnait plus il me supprimait toutes les valeurs de la liste !!!!
MErci de me tenir au courant .
A+

[xeron33]

*******************************************
Merci pour ta réponse,
En effet ça marche j'ai créé une table pour la liste, mais à quoi sert le "RemoveItem" alors si il ne supprime pas les valeurs dans une source "ListeValeurs' ?
En plus le "RemoveItem" m'a posé des bizarreries... car avec le code que je t'avais posté ça ne fonctionnait plus il me supprimait toutes les valeurs de la liste !!!!
MErci de me tenir au courant .
A+

***************************************************
En fait après réflexion ça marche oui mais ça va pas en effet je m'explique :
Le formulaire Insertions est basé sur une table :
Insertions(N°Insertion,N°Archives,Carton,Emplacement);
Tel que je l'ai fait actuellement la zone liste est comme tu me l'as suggérée sur une table :
Carton(N°Carton);
Et là effectivement si je supprime un N° de carton via la zone liste comme je l'ai crée ça supprime bien le champ N°Carton de ma table Carton, mais ce que je veux ce n'est pas supprimer un champ c'est simplement supprimer le choix d'un carton dans cette zone liste, c'est pour ça que il me faudrait une zone liste basée sur des liste de valeurs comme je l'avais fais au départ.
Si tu comprends mieux mon problème et que tu as une solution merci de me contacter.
A +

[Invité]

Re

Alors vu ce que tu dis :

Ajout d'un champ de type Oui/non dans ta table, si case coché, c'est affichage, si cas décoché ce n'est pas affichage.

Alimente ta liste en utilisant une requête avec une clause Where qui concerne ce nouveau champ de type Oui/non, en prenant la valeur True comme critère.

Dorénavant au lieu de supprimer des enregistrements il faudra une requête de mise à jour de ce champ Oui/non, et après mise à jour réactualisation de la liste.

Comme cela tes cartons seront toujours là et actif ou non en fonction de tes choix.

Philippe

[xeron33]

Re

Alors vu ce que tu dis :

Ajout d'un champ de type Oui/non dans ta table, si case coché, c'est affichage, si cas décoché ce n'est pas affichage.

Alimente ta liste en utilisant une requête avec une clause Where qui concerne ce nouveau champ de type Oui/non, en prenant la valeur True comme critère.

Dorénavant au lieu de supprimer des enregistrements il faudra une requête de mise à jour de ce champ Oui/non, et après mise à jour réactualisation de la liste.

Comme cela tes cartons seront toujours là et actif ou non en fonction de tes choix.

Philippe

**********************************************************************************
Merci pour ta réponse,
En fait j'ai repris l'idée de la table pour la liste en ajoutant une zone de texte pour le carton affecté de la table Insertions et la zone de liste pour les cartons en cours d'utilisation, je ne suis pas arrivé avec le control source "liste valeurs " et les méthodes :

Code :

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

1
2
3
4
 
Me.Liste9.RemoveItem (Me.Liste9.ListIndex)
Me.Liste9.RowSource = ""
Me.Liste9.Requery

à valider définitivement la nouvelle valeur de RowSource, il la valide quand la zone de liste est active, puis quand on ferme le formulaire et que l'on reouvre la valeur ou les valeurs initiale(s) réapparaissent ...
Je vais présenter ça à mon responsable j'espère que ça lui conviendra...
Merci en tout cas pour ton aide je ne mentionne pas "résolu" et laisse ouvert ce post car peut être que toi ou quelqu'un aura une info à me donner.
A+

[Invité]

Re

Pourquoi ne pas utiliser ma dernière proposition ?

Philippe

[xeron33]

Re

Pourquoi ne pas utiliser ma dernière proposition ?

Philippe

**********************************
Bonne question...
Je l'avoue je n'ai pas tout saisi de ta dernière proposition : ce champs oui/non il se situerait ou sur la table ? Je te rappelle la structure de ma table Insertions :
Insertions(N°Insertion,N°Archives,Carton,Emplacement); et je ne vois pas comment tu mets en place ce genre de choses "si case coché, c'est affichage, si cas décoché ce n'est pas affichage", ça agirait simplement sur l'affichage du carton ou sur tout l'enregistrement ?

D'autre part les cartons quand tu dis : "Comme cela tes cartons seront toujours là et actif ou non en fonction de tes choix", ça ne va pas avec le besoin car ces cartons une fois remplis sont transférés dans un autre endroit et donc doivent être supprimés, en fait ces cartons sont un tampon de travail, mais ça c'est pas trés important ça pourrait marcher avec ta solution aussi.
Aussi après réflexion la solution de la table me parait bien car elle sépare dans le formulaire, la valeur du champ "carton" et le choix des cartons en cours d'utilisation. Je vais voir ça demain avec mon responsable.
Par contre puisque tu es ouvert au dialogue et à l'échange et je t'en remercie sais tu pourquoi et comment on peut y remédier car comme je t'ai déjà expliqué ce code avec le control source "liste valeurs " ne fonctionne que quand la zone de liste est active, en d'autres termes comment peut on agir définitivement sur des "liste valeurs", ou comment peut on agir sur le "controlsource" quand on utilise "liste valeurs" dans une zone de liste ? Car je pense qu'il doit y avoir une solution mais je n'arrive pas à la trouver.

Code :

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

1
2
3
4
 
Me.Liste9.RemoveItem (Me.Liste9.ListIndex)
Me.Liste9.RowSource = ""
Me.Liste9.Requery

A+

[Invité]

Re

Il semble que je n'ai pas compris ton besoin.

C'est donc des transferts (si j'ai bien compris).

Regardes ces sources pour voir :

http://access.developpez.com/sources...terListeValeur

http://access.developpez.com/sources...erListeRequete

Philippe

[xeron33]

Re

Il semble que je n'ai pas compris ton besoin.

C'est donc des transferts (si j'ai bien compris).

Regardes ces sources pour voir :

http://access.developpez.com/sources...terListeValeur

http://access.developpez.com/sources...erListeRequete

Philippe

*****************************************
Merci pour ta réponse,
Finalement vu le besoin je vais garder la zone de liste sur table ou requete ça fonctionne bien comme ça, par contre j'ai voulu adapter un de tes codes que tu m'as joins (le premier des deux pour être précis) qui est basé sur une zone de liste basée sur du "Liste de valeurs" :

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
 
Public Sub SupprElement(lst As ListBox, _
  Optional LimiteSelection As Boolean = False)
 
 
 
 
Dim strTemp As String
With lst
  lst.RemoveItem (lst.ListIndex)
 
 
'Affecte la nouvelle source à lstSource
  strTemp = "XXXX"
  .RowSource = strTemp
End With
End Sub

Et toujours le même problème, la rowSource est modifiée quand la zone de liste est active et après le formulaire fermé et réouvert les valeurs d'origine réapparaissent.
Peut être mais je ne pense pas que ça vienne de là, j'ai déclaré la procédure en "Public" l'auteur du code l'avais déclaré en "Private" au passage sais tu pourquoi il les a déclarées en "Private" ?
J'ai été obligé de la déclaré en "Public" car il ne la "voyait pas".
Voilà je reste ouvert à tes remarques car j'aimerais savoir comment régler ce problème de RowSource quand la zone de liste est basée sur de liste de valeurs.
Encore Merci
A+

[Invité]

Re

Et toujours le même problème, la rowSource est modifiée quand la zone de liste est active et après le formulaire fermé et réouvert les valeurs d'origine réapparaissent.

Je te l'ai dit plusieurs fois que c'est un comportement normal, la modification de la liste ne modifie pas la source, elle est remise à jour à chaque nouvelle ouverture, il faut modifier l'original comme je te l'ai dit plus haut.

Philippe

[xeron33]

Re



Je te l'ai dit plusieurs fois que c'est un comportement normal, la modification de la liste ne modifie pas la source, elle est remise à jour à chaque nouvelle ouverture, il faut modifier l'original comme je te l'ai dit plus haut.

Philippe

***********************************
Oui mais comment modifier définitivement l'original quand c'est une zone de liste "Liste de valeurs" par code ?
C'est la question que je me pose.
Il y a bien des zones liste créées en "liste de valeurs" alors comment on fait pour modifier leurs rowSource par code VBA ?
Puisque les méthodes fournies ne la modifie que temporairement ...