salut

dans mon UserForm j'ai un combobox ses valeurs doit être les aleurs d'un champs d'une basse de données

j'ai fais ce démarche :
- sélectionnez la combobox1 vérifiez que la propriété ROWSOURCE est Vide.
- double-cliquez sur le userform pour accèder au code
- entrez le code suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Private Sub UserForm_Initialize()
ComboBox1.AddItem "New york"
ComboBox1.AddItem "Paris"
End Sub
je doit remplacer " New york" et "Paris" par les valeurs du champs
alors j'ai commencer par connecter à ma base et select from ma table le champs qui je besoin
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub frmpanne_Initialize()
Dim con As New ADODB.Connection
Dim sql As String
Dim base As String
Dim ta As String
base = Textbase.Text
 
 
 
con.ConnectionString = "Dbq=C:\Documents and Settings\pika\Bureau\aplication_2011\" & base & ".accdb;" & "Driver={Microsoft Access Driver (*.mdb, *.accdb)};"
 
con.Open
sql = " Select *from [Bureau_Poste]  ([Nom Bureau])  ; "
 
'ComboBox1.RowSource = sql
con.Close
Set con = Nothing
'MsgBox "OK", vbInformation
 
End Sub
la connexion c'est bien établir car j'ai utiliser la code de connexion dans une autre feuil et elle marche très bien

j'ai fais de recherche sur le net , je doit faire ".clear" aussi