Discussion :

[mattvin]

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.

[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

[mattvin]

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

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
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 :

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

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.

[Jeannot45]

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

Bonne continuation

[mattvin]

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

Encore un grand merci à toi, Jeannot45.

Bonne journée.

[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.

[Invité]

Re

J'ai enlevé le (à 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

[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.

[Invité]

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

[mattvin]

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

Bonne journée