Acces Base de donnée Access dans un combobox

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:

---

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

Salut,
j'ai une question à te poser:
- Ton combobox rempli la tache que tu lui a assigné? charge t-il correctement les données?
- et dans quel objet veut tu afficher les coordonnées complètes? dans des labels, des textbox? ...?
Surtout n'oublie pas de mettre ton code entre les balise de code le " # " au dessus !
à tantot !

Salut muzele

- Oui le combobox charge bien les données mais il ne me charge que le nom de famille de la table Coordonnées ( je voudrais qu'il charge aussi le Prenom )

J'aimerai que les données soient charge dans un label sur un autre form ( form recapitulatif)

Merci la belgique :lol::lol:

hey !
Voila j'ai essayé de faire quelque chose !

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

Option Explicit Dim Cnx As ADODB.Connection Dim corde As ADODB.Recordset   Private Sub Form_Load() ' ouverture de la connexion à la BDD Set Cnx = New ADODB.Connection Cnx.Provider = "Microsoft.Jet.Oledb.4.0" Cnx.ConnectionString = App.Path & "\basesav97.mdb" ' ou active la ligne suivante pour déterminer l'emplacement si ta BDD n'est pas dans le même dossier que l'appli 'Cnx.ConnectionString = "C:\le_chemin_de_ta_base\basesav97.mdb" Cnx.Open '''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''tu charge ta combobox'''''''''''''''''''' '''''''''''''''tu charge ta combobox'''''''''''''''''''' '''''''''''''''tu charge ta combobox''''''''''''''''''''   Private Sub Combnom_Click() corde.Open "coordonnees", Cnx, adOpenDynamic, adLockOptimistic corde.Find "ton_champ=" & "'" & Combnom.Text & "'" 'ton_champ: celui qui correspond au nom de famille comme tu le dis   Ta_Form.Ton_Label.Caption = Combnom!Ta_1ere_coordonnee 'ta_1ere_coordonnee, c'est la valeur du champ dans ta table Ta_Form.Ton_Label2.Caption = Combnom!Ta_2eme_coordonnee ' même chose et ainsi de suite Ta_Form.Ton_Label3.Caption = Combnom!Ta_3eme_coordonnee 'et ainsi de suite ! corde.Close

---

je travaille avec ADO, alors tu sera obliger d'insérer le composants dans ton projet !
A tout à l'heure

Merci pour ton aide je vais essayer de suite
PAr contre pour ADO c'est bien Activex Data Object et si oui j'en ai 5 (2.1,2.5,2.6,2.7) je prend laquelle ?

tu prend le plus recent ! le 2.7

Grand merci à muzele ça fonctionne :yaisse2::yaisse2: