salut
je travaille sous excel
dans mon UserForm j'ai un combobox ses valeurs doit être les valeurs 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 :
- 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 :
- Private Sub frmpanne_Initialize()
- Dim con As New ADODB.Connection
- Dim rs As New ADODB.Recordset
- Dim sql As String
- Dim base As String
- base = Sheets("Menu" ).Textbase.Text
- con.ConnectionString = "Dbq=C:\Documents and Settings\pika\Bureau\aplication_2011\" & base & ".accdb;" & "Driver={Microsoft Access Driver (*.mdb, *.accdb)};"
- con.Open
- 'Set rs.ActiveConnection = con
- rs.Open "Bureau_Poste", con
- 'sql = " Select *from [Bureau_Poste] ([Nom Bureau]) ; "
- Do Until rs.EOF
- ComboBox1.AddItem rs![Nom Bureau] 'nom du champ
- rs.MoveNext
- Loop
- rs.Close
- Set rs = Nothing
- con.Close
- Set con = Nothing
- End Sub
|
rien se passe
