datacombo rowsource et propriété

Bonjour

alors je me suis décidé pour cette fameuse datacombo

Code:

---

1 2 3

Set rs = base.OpenRecordset("select * from societe;") Set FrmMain.DtCmbSociete.RowSource = rs FrmMain.DtCmbSociete.ListField = rs.Fields(1).Name

---

il me fait une erreur parce que ce n'est pas l'objet attendu pour le rowsource

je souhaite mettre 2 champs :
id que je ne veux pas affiché mais utiliser apres ... vous auriez compris
nom que je veux afficher

soit j'aimerais comme ça marche
soit un tutoriel simple

merci d'avance

Avant le Rowsource, tu dois instancier le datasource ;)

Code:

---

1 2 3 4

Set DataLstSectan.DataSource = Adodc1 Set DataLstSectan.RowSource = Adodc1 DataLstSectan.ListField = Adodc1.Recordset.Fields(2).Name

---

ici, l'exemple est avec un adodc mais, c'est la même chose avec un rs ;)

alors j'ai fait ça :

Code:

---

1 2 3 4

Set rs = base.OpenRecordset("select * from societe;") Set FrmMain.DtCmbSociete.DataSource = rs Set FrmMain.DtCmbSociete.RowSource = rs FrmMain.DtCmbSociete.ListField = rs.Fields(1).Name

---

mais il me met erreur 13 type incompatible
je ne comprends pas

Essai le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9

Dim rs As New ADODB.Recordset   rs.Source = "SELECT NomCle, NomChampAfficher FROM Matable" Set rs.ActiveConnection = base rs.CursorLocation = adUseClient rs.Open Set DtCmbSociete.RowSource = rs DtCmbSociete.BoundColumn = NomCle DtCmbSociete.ListField = NomChampAfficher

---

j'ai un code super simple
et je veux juste remplir mon datacombo avec le nom
mais que je puisse accéder à l'id apres sans plus

Code:

---

1 2 3 4 5 6 7 8 9

Dim base as database dim rs as recordset   Set base = OpenDatabase(App.Path & "\Bdd\Facture.mdb") Set rs = base.OpenRecordset("select id,nom from societe order by nom;")   DtCmbSociete.ListField = "nom" DtCmbSociete.BoundColumn = "nom" Set FrmMain.DtCmbSociete.RowSource = rs

---

voila c tout et mon rs ramene tout ce que l'on veut
pour l'id : rs.fields(0)
pour le nom : rs.fields(1)