Combo box à remplir

Question

Salut, 

J'ai un combo dans une feuille, jusque là tout va bien..
Mon problème est que je n'arrive pas à remplir le combo avec des données
qui sont dans une table (liste de nom)
De plus je voudrais que la sélection mette à jour un textbox qui me sert ensuite pour faire
un traitement.

cs_Chewba · Answer

Salut,

Voici comment faire:

Private Sub Form1_Load()
   Dim MaBase as DataBase 
   Dim MaTable as RecordSet 
   'ouverture et définition de la base de données
   Set Mabase = DBEngine.Workspaces  _(0).OpenDatabase ("Base.mdb") 
   'Base.mdb=Ta base de données.
   'ouverture et définition de la table à utiliser
   Set MaTable=MaBase.OpenRecordSet ("Select* _ from Client")
   'Select* from Client = Sélectioner tous les enregistrements de la table Client
   'Client = Table à ouvrir
   'on remplit la combo box avec les noms des client
   Do While MaTable.EOF=False
     Combo1.AddItem MaTable!Nom
     MaTable.MoveNext
   Loop
End Sub

Si tu as la moindre question, n'hésite pas de me contacter.

cs_Chewba · Answer

Sorry, il ne faut pas mettre les _, car ce sont des retour à la ligne.

Combo box à remplir

2 réponses

Discussions similaires