Discussion :

[LeXo]

Bonjour

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

Code :

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

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

[khany]

Avant le Rowsource, tu dois instancier le datasource

Code :

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

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

[LeXo]

alors j'ai fait ça :

Code :

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

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

[callo]

Essai le code suivant :

Code :

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

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

[LeXo]

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 :

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

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)