Discussion :

[alahyanemo]

Bonjour
Je veux remplir un combobox à partir d'une base de données
Est la valeur choisi sera afficher sur un data report aider moi svp

[bricoyeye]

Salut;

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
22
23
24
25
'Pour remplir, tb etant un New ADODB.Recordset
 
 
Combo1.Clear
While (Not tb.EOF)
 
      If (tb.RecordCount <> 0) Then
Combo1.AddItem tb!TA_TABLE
End If
tb.MoveNext
Wend
 
 
'Pour choisir
 
Private Sub Combo1_Click()
Dim critere As String
On Error Resume Next
critere = "Ta_table = #" & Combo1.Text & "#"
tb.MoveFirst
    tb.Find critere
 
' Ici ton code pour affichage
 
End Sub