OVH Cloud OVH Cloud

IF

1 réponse
Avatar
bonjour j'ai une liste deroulante ctElémentSM quand je selectionne
"Centrale de frein" je veux que
tous les éléments soient stockés dans une liste deroulante qui s'appelle
ctlSous_ElementSM et que je puisse en selectionner un de ces éléments.est il
possible de faire cela sans passer par des controles de listes liées.

j'ai mis le code suivant mais rien ne s'affiche dans mon contrôle
ctlSous_ElementSM
y a t'il une erreur dans mon code ou est ce dans les propriétés du contrôle
Merci de votre aide

Private Sub ctlElémentSM_Click()
Dim ctlSous_ElementSM As New Collection

If ctlElémentSM = "Centrale de frein" Then

ctlSous_ElementSM.Add "Huile"
ctlSous_ElementSM.Add "Joint"
ctlSous_ElementSM.Add "Pikatchu"
ctlSous_ElementSM.Add "Etc..."


End If
End Sub

1 réponse

Avatar
3stone
Salut,


| bonjour j'ai une liste deroulante ctElémentSM quand je selectionne
| "Centrale de frein" je veux que
| tous les éléments soient stockés dans une liste deroulante qui s'appelle
| ctlSous_ElementSM et que je puisse en selectionner un de ces éléments.est il
| possible de faire cela sans passer par des controles de listes liées.
|
| j'ai mis le code suivant mais rien ne s'affiche dans mon contrôle
| ctlSous_ElementSM
| y a t'il une erreur dans mon code ou est ce dans les propriétés du contrôle
| Merci de votre aide
|
| Private Sub ctlElémentSM_Click()
| Dim ctlSous_ElementSM As New Collection
|
| If ctlElémentSM = "Centrale de frein" Then
|
| ctlSous_ElementSM.Add "Huile"
| ctlSous_ElementSM.Add "Joint"
| ctlSous_ElementSM.Add "Pikatchu"
| ctlSous_ElementSM.Add "Etc..."
|
| End If
| End Sub


Quel est l'interêt de te passer de listbox liés et de vouloir faire cela à la main ??

Je dirait au contraire de te créer deux tables qui seront sources des listbox

et hop...


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw