Discussion :

[jacko842]

Bonjour j ai une table qui contient plusieurs code postal ainssi que la localite et je voudrais mettre ces informations dans deux combo.box une pour les codes et l autre pour les localité j ai essayé de cette manière mais sans succés:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Do Until data_cp.Recordset.EOF
 
 
        ReDim Preserve int_cp(1 To i), str_localite(1 To i)
        int_cp(i) = data_cp.Recordset.Fields("Code")
        str_localite(i) = data_cp.Recordset.Fields("Localite")
        i = i + 1
        data_cp.Recordset.MoveNext
 
    Loop

merçi d avance

[jacko842]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim i As Integer
 
    data_cp.Recordset.MoveFirst
 
    For i = 1 To data_cp.Recordset.RecordCount
 
        cb_localite.AddItem data_cp.Recordset.Fields("Code")
        data_cp.Recordset.MoveNext
 
    Next i