[A-03] Liste déroulante ouverte

Version imprimable

27/02/2009, 08h02
mattvin

[A-03] Liste déroulante ouverte

Bonjour,

je sais que c'est une question stupide mais je ne trouve pas alors je me permet de poster ici. J'ai une liste déroulante ou je vais proposé une dizaine de valeur. Et j'aimerai que si l'utilisateur rentre une valeur au clavier, il me la stock dans ma liste en plus des anciens.

Bonne journée.
27/02/2009, 08h13
Invité

Bonjour

La FAQ Access (a utiliser sans modération) comporte une partie concernant les listes déroulantes ou non, tu y trouveras tout ce qu'il te faut que ta liste soit alimentée par une source ou que les éléments soient fixes :

http://access.developpez.com/faq/?page=zdl

Philippe

Merci beaucoup pour ce lien mais encore une question. voici le code que j'utilise :

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
Private Sub Rec_visa_responsable_AfterUpdate()
   Const NB_ITEMS As Long = 20 'Nombre d'éléments archivés dans la liste
Dim b As Byte
 
  'Maj de la liste des derniers critères recherchés
  With Rec_visa_responsable
 
    'Si la valeur saisie est un Null _
      ou une chaîne de longeur nulle _
      ou égale au premier item, _
      alors aucune Maj de la liste n'est nécessaire.
    If Nz(.Value, "") = "" Or .Value = .Column(0, 0) Then Exit Sub
 
    'Etant donné qu'on ne souhaite pas de doublons, _
      on va parcourir tous les éléments _
      pour éliminer un éventuel doublon avant d'ajouter notre valeur en haut de liste.
    For b = 1 To .ListCount - 1
      If .Column(0, b) = .Value Then .RemoveItem b:   Exit For
    Next b
 
    'Ajoute la nouvelle saisie
    .AddItem Item:=.Value, Index:=0
 
    'Limite la liste à NB_ITEMS éléments
    If .ListCount = NB_ITEMS Then .RemoveItem NB_ITEMS - 1
 
  End With
 
End Sub

Seul petit problème quand je met uen valaur qui n'y est pas, il me fait une erreur sur :

Code:

1
2
3
   For b = 1 To .ListCount - 1
      If .Column(0, b) = .Value Then .RemoveItem b:   Exit For
    Next b

La il me met une erreur d'execution 6. "dépassement de capacité".

Si quelqu'un à une idée, je suis la.

Bonne journée.

27/02/2009, 08h49
Jeannot45

:salut:

il me semble que cela vient de l'utilisation de la boucle FOR. En effet, le compteur est initialisé dès l'entrée dans la boucle et vomme tu supprime des items ...

Essaie avec do ... loop

Il y a une une discussion à ce sujet mais je ne la retrouve pas :oops:

Bonne continuation
27/02/2009, 08h56
mattvin

Merci beaucoup. Cela marche très bien avec do loop.

Encore un grand merci à toi, Jeannot45.

Bonne journée.
27/02/2009, 09h35
mattvin

Bonjour,

En fait, juste encore une question. C'est normal que dès que j'ai fermé le formulaire il perd ces informations que je lui ai mis dedans? Ne serais ce pas possible de les stocker pour pouvoir les ravoir à la réouverture du formulaire?

Bonne journée.
27/02/2009, 10h03
Invité

Re

J'ai enlevé le :resolu: ;) (à remettre à la fin)

En fait, comment est alimentée ta liste au départ, a-t-elle une source ? Requête, Table ?

En fait ton code ajoute des éléments, mais peut-être qu'il ne modifie pas les données d'origine.

Philippe
27/02/2009, 10h05
mattvin

L'origine de ma liste est "Liste valeurs" c'est ce que je doit mettre si je veux que le code marche. Et la source contrôle, c'est un champ de ma table.
27/02/2009, 10h16
Invité

Citation:

Envoyé par mattvin

Et la source contrôle, c'est un champ de ma table.

C'est cela le problème, il faut que tu aliments ta source et faire un requery sur ta liste. Dans le lien que je t'ai donné, il y a tout ce qu'il faut.

Philippe
27/02/2009, 10h19
mattvin

Merci beaucoup je vais regarder cela et je reviendrai vous dire ce qu'il en est.

Bonne journée