Discussion :

[KIK83]

Bonjour à tous,

Je cherche a récupérer les valeurs d'une liste déroulante (valeurs issues de ma BDD) dans une autre.

J'ai donc pondu le code suivant:

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
Private Sub liste2_GotFocus()
 
Dim sql As String
Dim rst As Recordset
 
If IsNull(liste1.Value) Then
    MsgBox "Sélectionnez une installation avant de choisir un matériel !"
    Exit Sub
Else
    sql = "select Nom from Table_Materiels where Etape= '" & liste1.Value & "' "
    Set rst = CurrentDb.OpenRecordset(sql)
 
    rst.MoveFirst
 
    Do While Not rst.EOF
    liste2.AddItem (rst.Fields("Nom"))
    rst.MoveNext
    Loop
    rst.close
    Me.Refresh
End If
 
End Sub

Le code fonctionne , mais il ya un couac!
Si je sélectionne la liste 1 puis la liste2 (qui récupère les valeurs de la liste1), et que je reviens vers la liste1 (suite à une erreur par exemple) mais liste2 s'allonge, s'allonge, s'allonge !!... J'ai beau essayer un

Code :

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

1
2
3
Private Sub liste1_Change()
Me.liste2.Value = Null
End Sub

Rien n'y fait...

Cela doit etre tout bete, mais là je sèche...

Merci pour votre aide

A+

[Invité]

Bonjour

Il faut faire un Clear (voir aide) de la liste avant le additem.

Mais d'abord pourquoi passer par un Additem, il suffit de mettre ta deuxième requête comme source de ta deuxième liste.

Philippe

[KIK83]

Il faut faire un Clear (voir aide) de la liste avant le additem.

J'ai consulté l'aide mais vois pas. Faut dire que mon niveau n'est pas super élevé

Mais d'abord pourquoi passer par un Additem, il suffit de mettre ta deuxième requête comme source de ta deuxième liste.

Je comprends encore moins...

Merci pour ton aide et ta patience !

[Invité]

Re

Je t'invite à lire cela : http://argyronet.developpez.com/offi...ectitemlistAB/

Philippe

[KIK83]

Merci Philippe pour ta réponse.

Sur tes conseils après lecture de l'article d'Agyronet, j'ai réalisé le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub liste1_AfterUpdate()
 
 
Dim sql As String
Dim lngIDCat As String
 
   lngIDCat = Me!liste1
  sql = "SELECT Nom from Ma_Table where Etape =" & lngIDCat & " ORDER BY Nom"
   liste2.RowSource = sql
   liste2.Enabled = True
   liste2.SetFocus = True
   liste2.Dropdown
 
End Sub

Toutefois, à l'execution et au focus de liste2 j'ai une boite de dialogue qui m'invite à saisir "Une valeur de paramètre" avec en entete la valeur selectionnée en liste1

NOTE: liste1 contient les valeurs: Primaire;Secondaire;Tertiaire;Lavage;Filtre Presse

Aurais-tu une petite idée ?

Merci beaucoup.

[Invité]

Bonjour

Le problème lorsque vous posez des questions sur le forum, c'est que vous n'êtes pas cohérent.

Dans le premier cas, dans ta clause Where tu passes une donnée de type texte, et maintenant une donnée de type Numérique.

En effet, dans ton dernier test tu déclares une variable

Code :

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

Dim lngIDCat As String

Hors le préfixe lng est utilisé pour les données de type Long, et là tu déclares une String

Donc si c'est une string, il ne reconnait pas les données dans ta requête SQL, car tu ne l'as pas entourée de quotes (').

Il serait donc bien d'y aller de manière cohérente.

Philippe

[KIK83]

Bonjour,

Cohérent ? Oui tu as raison. J'en suis désolé. Lorsque j'ai posté j'avais 14 heures de dev. dans les pattes et comme je débute, j'ai tout mélangé...

Mon problème est résolu sur tes indications et j'ai ultra simplifié le code.

Mille mercis en tout cas pour ta patience et ton dévouement.

Bon WE