Donner la valeur suivante dans une zone de liste modifiable
1 réponse
AfterBoy
Bonjour,
J'ai une liste modifiable contenant une s=E9rie d'enseignant. Quand je
s=E9lectionne un enseignant dans la liste, je vois son horaire. Je
voudrais ajouter un bonton a la droite de la zone de liste qui me
donnerait le suivant dans la zone de liste. Un genre de :
Me.ZmProf.movenext je sais que ca marche pas mais ca serait bin
plaisant.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Bonjour,
Sans trop comprendre ... En supposant que la liste s'appelle LeChoix:
Private Sub Commande1_Click() If Me.LeChoix.ListIndex < Me.LeChoix.ListCount - 1 Then Me.LeChoix = Me.LeChoix.ItemData(Me.LeChoix.ListIndex + 1) Call LeChoix_AfterUpdate ' procédure évènementielle sur la liste End If End Sub
Bonjour,
J'ai une liste modifiable contenant une série d'enseignant. Quand je sélectionne un enseignant dans la liste, je vois son horaire. Je voudrais ajouter un bonton a la droite de la zone de liste qui me donnerait le suivant dans la zone de liste. Un genre de : Me.ZmProf.movenext je sais que ca marche pas mais ca serait bin plaisant.
Sans trop comprendre ...
En supposant que la liste s'appelle LeChoix:
Private Sub Commande1_Click()
If Me.LeChoix.ListIndex < Me.LeChoix.ListCount - 1 Then
Me.LeChoix = Me.LeChoix.ItemData(Me.LeChoix.ListIndex + 1)
Call LeChoix_AfterUpdate ' procédure évènementielle sur la liste
End If
End Sub
Bonjour,
J'ai une liste modifiable contenant une série d'enseignant. Quand je
sélectionne un enseignant dans la liste, je vois son horaire. Je
voudrais ajouter un bonton a la droite de la zone de liste qui me
donnerait le suivant dans la zone de liste. Un genre de :
Me.ZmProf.movenext je sais que ca marche pas mais ca serait bin
plaisant.
Merci.
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Sans trop comprendre ... En supposant que la liste s'appelle LeChoix:
Private Sub Commande1_Click() If Me.LeChoix.ListIndex < Me.LeChoix.ListCount - 1 Then Me.LeChoix = Me.LeChoix.ItemData(Me.LeChoix.ListIndex + 1) Call LeChoix_AfterUpdate ' procédure évènementielle sur la liste End If End Sub
Bonjour,
J'ai une liste modifiable contenant une série d'enseignant. Quand je sélectionne un enseignant dans la liste, je vois son horaire. Je voudrais ajouter un bonton a la droite de la zone de liste qui me donnerait le suivant dans la zone de liste. Un genre de : Me.ZmProf.movenext je sais que ca marche pas mais ca serait bin plaisant.