Bonjour à tous

Voici mon probleme :

Je recupere une information de ma base de données access dans un combobox ( nom de famille )
Pas de probleme pour ca voici le code que j'ai mis :

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
Const MA_BASE_ACCESS As String = "basesav97.mdb"
Dim db As DAO.Database
    Dim rs As DAO.Recordset
 
    Me.combnom.Clear
 
    Set db = DAO.Workspaces(0).OpenDatabase(MA_BASE_ACCESS, False, False)
 
    Set rs = db.OpenRecordset("select * from [coordonnees];", , dbForwardOnly)
 
    Do While Not rs.EOF
        'Ajout dans la combo du premier champ de la requête
        Me.combnom.AddItem rs.Fields(0).Value
 
        rs.MoveNext
    Loop
 
    If Me.combnom.ListCount > 0 Then
        Me.combnom.ListIndex = 0
    End If
 
    rs.Close
 
    db.Close
 
    Set rs = Nothing
 
    Set db = Nothing
Et voila ce que je souhaite c'est dans le meme combobox je puisse afficher le nom de famille ainsi que le prenom
Apres avoir selectionné le nom de famille, je voudrais pouvoir afficher les coordonnées complete mais je vois pas comment faire
Est ce possible ??
Dans ma base access j'ai 2 tables : Coordonnées et Pannes
J'essai de faire une application de gestion de SAV

Merci pour vos reponses