Remplir listbox sur base d'une autre listbox
Bonjour a Tous !
Voila je veux remplir une listbox du nombre de pièce en stocke par rapport au choix effectué sur une listbox précédente, qui dans cette dernière on sélectionne la pièce dont on veut optenir le nombre.
Je v essayer de résumer en plus clair:
ListCarteMere > on en sélectionne une > affichage du nombre de carte mère en stocke dans la ListNbCarteMere
Voici le code qui sert a remplir ListCarteMere :
Code:
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
26
27
28
| Dim oADORemplirList As ADODB.Connection
Dim oRSRemplirList As ADODB.Recordset
Dim strSQLRemplirList As String
Set oADORemplirList = New ADODB.Connection
With oADORemplirList
.Provider = "Microsoft.jet.oledb.4.0"
.Mode = adModeShareDenyNone
.ConnectionString = "E:\Qualification 2007\Fraipont\VB Fraipont Qualif Pc Mag\MagPc.mdb"
.Open
End With
Set oRSRemplirList = New ADODB.Recordset
strSQLRemplirList = "SELECT fldNom FROM tblCarteMere ORDER BY fldNom"
With oRSRemplirList
.CursorLocation = adUseClient
.Open strSQLRemplirList, oADORemplirList, adOpenForwardOnly, adLockOptimistic
.Properties.Refresh
.MoveLast
.MoveFirst
Do While Not .EOF
ListCarteMere.AddItem .Fields("fldNom").Value
.MoveNext
Loop
.Close
End With
oADORemplirList.Close
Set oRSRemplirList = Nothing
Set oADORemplirList = Nothing |
je m'excuse de poser tant de question mais c'est pour mon travail de fin d'année et j'y suis très accroché
S'il faut d'autre information n'hésité pas a me le dire.
Merci pour toute réponse
