Urgent Remplir un Combo depuis un RecordSet

Question

Bonjour j'ai créer une procedurevpour remplir un combo box

je passe en parametre, le nom du combo, le nom de la table, le nom du champs et le nom du champs d'index

à la ligne
.AddItem rstRemplirCombo.Fields(sChamps)

de la procedure si dessu, il me dit qu'il ne connais pas l'objet sChamps, donc il ne detecte pas que sChamps est une variable et donc il cherche sChamps dans le RecordSet et bien entendu il le trouve pas car c'est le nom d'une variable qui contient le nom du champs adequat

Que faire pour résoudre cela c'est assez urgent

merci de votre aide

Public Sub RemplirCombo(sComboName, sTable, sChamps, sIndex)
 Dim rstRemplirCombo     As New ADODB.Recordset
 Dim sSQL                As String

 
 Set rstRemplirCombo = CreateObject("ADODB.RecordSet")
 sSQL = "SELECT " & sChamps & "," & sIndex & " FROM " & sTable & " ORDER by " & sChamps & ";"

 rstRemplirCombo.CursorLocation = adUseClient
 rstRemplirCombo.Open sSQL, cnn, adOpenForwardOnly, adLockReadOnly
 With sComboName
  Do Until rstRemplirCombo.EOF
   .AddItem rstRemplirCombo.Fields(sChamps)
   .ItemData(.NewIndex) = rstRemplirCombo.Fields(sIndex)
   rstRemplirCombo.MoveNext
  Loop
  .Text = ""
 End With
 rstRemplirCombo.Close
End Sub

 >:) APTech >:)

nono716 · Answer

Tu peux toujours faire :
.AddItem rstRemplirCombo.Fields(0)

ceci te récupère le premier élément de ton select (1 pour le deuxième et ainsi de suite...)

 :-p  Nono

aptech · Answer

Oui mais y a pas une solution avec le nom du champs 

cr j'utilise cette procedure pour plusieur combo different

 >:) APTech >:)

nono716 · Answer

Sinon essaye de "caster" ta variable :
.AddItem rstRemplirCombo.Fields(CStr(sChamps))

 :-p  Nono

aptech · Answer

Ca marche pas non plus le problème c'est de lui dire ke c'est une varaible et nonle nom du champs tel quel
!è!!  :sad) 
 >:) APTech >:)

nono716 · Answer

Je pige pas... J'ai fais le test chez moi en passant le nom d'une variable comme toi et ça passe très bien... :question) 

Je vais revenir sur ma première idée : Même avec plusieurs combo différentes, tu peux utiliser la position de ton champs et dans ta fonction mettre

.AddItem rstRemplirCombo(0)
.ItemData(.NewIndex) = rstRemplirCombo(1)
0 correspondant toujours à sChamps et 1 à sIndex et ce même si tu as plusieurs enregistrement dans ton recordset.

 :-p  Nono

Urgent Remplir un Combo depuis un RecordSet

5 réponses

Discussions similaires