Function sur les combo

Question

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 >:)

cs_Jack · Answer

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

Function sur les combo

1 réponse

Discussions similaires