Discussion :

[navona]

bonjour a toutes et tous,
j'ai cree une table toute simple afin d'apprendre:

id
nom
prenom

j'ai rempli cette table et j'ai cree un formulaire avec deux combo pour consulter cette table. Je clique sur la premiere combo et je choisis un nom dans la liste deroulante.

le fait de choisir un nom va faire se remplir la seconde combo avec les prenoms associes au nom choisi precedemment.

jusque la, tout va bien, sauf que j'aimerais dès le clic sur la premiere combo du nom, avoir une valeur par defaut s'affichant dans la seconde combo, correspondant au premier prenom de mon record set par exemple.

j'espere avoir ete a peu pres clair et que vous voudrez bien m'aider!

merci

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 nom_Click()
 
nom = nom.Text
If nom <> "" Then
    prenom.RowSource = ""
    sql = "select * from ma_table where nom='" & nom & "'"
            Set rs = db.OpenRecordset(sql, dbOpenDynaset)
            While Not rs.EOF
                prenom.AddItem (rs.Fields("prenom"))
                rs.MoveNext
            Wend
            rs.Close
End If
End Sub

[pgz]

Bonjour,

Je crois qu'il suffit de placer en fin de ton sub:

Code :

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

If Not prenom.ListCount = 0 Then prenom = prenom.Itemdata(0)

Bonne chance,

pgz

[navona]

merci beaucoup, ca marche nickel !

et encore juste une petite question: est il possible dans une liste deroulante de ne faire s'afficher qu'une seule colonne mais recuperer deux variables?

je m'explique: j'ai une table avec id/nom/prenom

Dans ma premiere combo, je liste les noms uniquement, mais quand je clique sur un nom, puis je recuperer directement en plus du nom, le champ "id" ?

[pgz]

Oui, c'est possible.

Les colonnes affichées, sont celles qui n'ont pas de largeur nulle.

Tu peux récupérer en VBA les valeurs de chaque colonne, avec la propriété Column(numéro). La première colonne ayant pour numéro 0.

Par ex pour récupérer la première

Code :

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

 MaListe.Column(0)

et la troisième

Code :

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

MaListe.Column(2)

Bonne chance,

pgz

[navona]

merci !