Les donnée d'une base de donné d'un combobox vers une base de donnée access

Question

J'ai créer un petit programme qui enregistre les donné qui sont dans un textbox vers un fichier access.

Maintenant j'aimerais ajouter un controle combobox qui ferait la même chose que les text box.

voici mon code pour les textbox lorsque je clique sur le bouton ajouter:

Private Sub Ajouter_Click()
With Data1.Recordset
.AddNew .Fields("MDP") MDP.Text.Fields("Compte") Compte.Text
.Fields("Commentaires") = Commentaires.Text
.Update 'Met a jour
End With

quel serait le code si j'ajoute un combobox dont le nom est annee, dont la liste comporterait trois nom:

2004
2005
2006

et dont le nom choisi serait entrée dans le champ annee??

cs_frop01 · Answer

Private Sub Ajouter_Click()

For i = 1 To Combo1.ListCount - 1

Combo1.ListIndex = i

With Data1.Recordset
.AddNew 
.Fields("MDP") = combo1
.Fields("Commentaires") = Commentaires.Text
.Update 'Met a jour
End With

Next i

MSN : cyberscorp2004@msn.com
Qui s'y frotte, s'y pique .

Les donnée d'une base de donné d'un combobox vers une base de donnée access

1 réponse

Discussions similaires