Function sur les combo

Voici ma fonction, je passe en parametre le no du combo, le nom de la table et le nom du champs etle nom du mshflexgrid dans lekel je doi afficher les info

il me mets une erreur a cette ligne ci

set " & sListe & ".DataSource = rstClicCombo

qui peut m'aider

merci

le code de la fonction est ci dessou




Public Sub ClicCombo(sComboName, sTable, sChamps, sListe)

Dim rstClicCombo As New ADODB.Recordset
Dim sSQL As String
Dim id As Integer

id = " " & sComboName & ".itemdata(" & sComboName & ".listIndex)"

Set rstClicCombo = CreateObject("ADODB.RecordSet")
sSQL = "SELECT * FROM " & sTable & " WHERE " & sChamps & " = " & id & " ORDER by " & sChamps & ";"

rstClicCombo.CursorLocation = adUseClient
rstClicCombo.Open sSQL, cnn, adOpenForwardOnly, adLockReadOnly
set " & sListe & ".DataSource = rstClicCombo
rstClicCombo.Close
End Sub


APTech

Salut
Tu ne peux pas paramétrer l'appel à un objet comme tu le fais.
En fait, il faut créer une Sub dans laquelle tu passes comme paramètre l'objet :
Private Sub Kiki(ByRef Ctrl as mshflexgrid, ByVal Info as String)
Ctrl.DataSource = Info
End Sub

Et tu l'appelles avec
Call Kiki (MonControle, "Coucou")
où MonControle est le nom de l'objet existant et sur lequel tu veux mettre "Coucou" dans le DataSource

Vala
Jack