Bouton sur formulaire pour se deplacer dans une zone de liste
1 réponse
Actarus
Bonjour, j'ai un formulaire avec une zone de liste. Quand je double-clique
sur un enregistrement de ma liste j'affiche sur mon formulaire le détail de
l'enregistrement (quelle originalité !). je voudrai placer sur mon
formulaire des boutons permettant d'atteindre l'enregistrement suivant de la
liste ou l'enregistrement précédent et bien sûr actualiser l'affichage sur
le formulaire concernant le détail. Merci pour vos suggestions.
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
LLaurent
Bonjour
Voici un code exemple à placer sur les actions Click d'un zone de liste ("Liste0") ou d'une combo ("Modifiable2") Cela ne prend pas en compte les sélections multiples dans la zone de liste
Private Sub CmdNext_Click() Dim vSelected As Long vSelected = Me.Liste0.ItemsSelected(0) ' le cas d'une zone de liste If vSelected < Me.Liste0.ListCount - 1 Then vSelected = vSelected + 1 Me.Liste0.Selected(vSelected) = True End If
vSelected = Me.Modifiable2.ListIndex ' le cas d'une combobox If vSelected < Me.Modifiable2.ListCount - 1 Then vSelected = vSelected + 1 Me.Modifiable2 = Me.Modifiable2.ItemData(vSelected) End If End Sub
Private Sub CmdPrev_Click() Dim vSelected As Long vSelected = Me.Liste0.ItemsSelected(0) ' le cas d'une zone de liste If vSelected > 0 Then vSelected = vSelected - 1 Me.Liste0.Selected(vSelected) = True End If
vSelected = Me.Modifiable2.ListIndex ' le cas d'une combobox If vSelected > 0 Then vSelected = vSelected - 1 Me.Modifiable2 = Me.Modifiable2.ItemData(vSelected) End If End Sub
Bon Amusement
"Actarus" a écrit dans le message de news:475419ec$0$5078$
Bonjour, j'ai un formulaire avec une zone de liste. Quand je double-clique sur un enregistrement de ma liste j'affiche sur mon formulaire le détail de
l'enregistrement (quelle originalité !). je voudrai placer sur mon formulaire des boutons permettant d'atteindre l'enregistrement suivant de la
liste ou l'enregistrement précédent et bien sûr actualiser l'affichage sur le formulaire concernant le détail. Merci pour vos suggestions.
Bonjour
Voici un code exemple à placer sur les actions Click d'un zone de liste
("Liste0") ou d'une combo ("Modifiable2")
Cela ne prend pas en compte les sélections multiples dans la zone de liste
Private Sub CmdNext_Click()
Dim vSelected As Long
vSelected = Me.Liste0.ItemsSelected(0) ' le cas d'une zone de liste
If vSelected < Me.Liste0.ListCount - 1 Then
vSelected = vSelected + 1
Me.Liste0.Selected(vSelected) = True
End If
vSelected = Me.Modifiable2.ListIndex ' le cas d'une combobox
If vSelected < Me.Modifiable2.ListCount - 1 Then
vSelected = vSelected + 1
Me.Modifiable2 = Me.Modifiable2.ItemData(vSelected)
End If
End Sub
Private Sub CmdPrev_Click()
Dim vSelected As Long
vSelected = Me.Liste0.ItemsSelected(0) ' le cas d'une zone de liste
If vSelected > 0 Then
vSelected = vSelected - 1
Me.Liste0.Selected(vSelected) = True
End If
vSelected = Me.Modifiable2.ListIndex ' le cas d'une combobox
If vSelected > 0 Then
vSelected = vSelected - 1
Me.Modifiable2 = Me.Modifiable2.ItemData(vSelected)
End If
End Sub
Bon Amusement
"Actarus" <Actarus@wanadoo.fr> a écrit dans le message de
news:475419ec$0$5078$ba4acef3@news.orange.fr...
Bonjour, j'ai un formulaire avec une zone de liste. Quand je double-clique
sur un enregistrement de ma liste j'affiche sur mon formulaire le détail
de
l'enregistrement (quelle originalité !). je voudrai placer sur mon
formulaire des boutons permettant d'atteindre l'enregistrement suivant de
la
liste ou l'enregistrement précédent et bien sûr actualiser l'affichage sur
le formulaire concernant le détail. Merci pour vos suggestions.
Voici un code exemple à placer sur les actions Click d'un zone de liste ("Liste0") ou d'une combo ("Modifiable2") Cela ne prend pas en compte les sélections multiples dans la zone de liste
Private Sub CmdNext_Click() Dim vSelected As Long vSelected = Me.Liste0.ItemsSelected(0) ' le cas d'une zone de liste If vSelected < Me.Liste0.ListCount - 1 Then vSelected = vSelected + 1 Me.Liste0.Selected(vSelected) = True End If
vSelected = Me.Modifiable2.ListIndex ' le cas d'une combobox If vSelected < Me.Modifiable2.ListCount - 1 Then vSelected = vSelected + 1 Me.Modifiable2 = Me.Modifiable2.ItemData(vSelected) End If End Sub
Private Sub CmdPrev_Click() Dim vSelected As Long vSelected = Me.Liste0.ItemsSelected(0) ' le cas d'une zone de liste If vSelected > 0 Then vSelected = vSelected - 1 Me.Liste0.Selected(vSelected) = True End If
vSelected = Me.Modifiable2.ListIndex ' le cas d'une combobox If vSelected > 0 Then vSelected = vSelected - 1 Me.Modifiable2 = Me.Modifiable2.ItemData(vSelected) End If End Sub
Bon Amusement
"Actarus" a écrit dans le message de news:475419ec$0$5078$
Bonjour, j'ai un formulaire avec une zone de liste. Quand je double-clique sur un enregistrement de ma liste j'affiche sur mon formulaire le détail de
l'enregistrement (quelle originalité !). je voudrai placer sur mon formulaire des boutons permettant d'atteindre l'enregistrement suivant de la
liste ou l'enregistrement précédent et bien sûr actualiser l'affichage sur le formulaire concernant le détail. Merci pour vos suggestions.