[AC-2007] Double clic listbox multiselection [Résolu]

[facedeharicot]

Bonjour,

Je suis actuellement à la recherche d'une solution me permettant d'outrepasser mon problème:

Mon formulaire possède actuellement une listbox "lstResults
" (sélection multiple: Aucun), lorsque je double clic sur un enregistrement de cette liste, tout va bien, je peux éditer mon enregistrement. Si je sélectionne une ligne de cette listbox, je peux supprimer l'enregistrement sur lequel je me trouve.

Je souhaite faire évoluer mon code de manière à pouvoir sélectionner plusieurs éléments de cette listbox pour notamment les supprimer (un par un c'est trop long...) seulement lorsque je passe la propriété Sélection multiple à Etendu, mon double clic ne fonctionne plus

Mon code pour la supression:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub btnSuppRecord_Click()
    Dim Response
 
    Response = MsgBox("Voulez-vous supprimer cet enregistrement", vbYesNo)
 
    If Response = vbYes Then
    Dim DB As Database
    Dim RS As DAO.Recordset
 
    Set DB = CurrentDb
 
    DB.Execute "delete * from T_Gestion where Id= " & lstResults.Column(0)
 
    Form_frmLogiciel!lstResults.Requery
    End If
End Sub

Mon code pour l'action de double click:

Code :

1
2
3
4
Public Sub lstResults_DblClick(cancel As Integer)
    DoCmd.OpenForm "frmAutoGestion", acNormal, , "Id = " & Me.lstResults
    Call Form_frmAutoGestion.Archivage
End Sub

Même si je suis ici après pas mal de recherche sur le sujet, je continue à chercher

[fbtsra]

Bonjour,

C'est normal que cela ne fonctionne plus car il vous faut utiliser :

Code :

Me.lstResults.ItemsSelected

en général avec une boucle pour récupérer les identifiants sélectionnés dans votre liste à sélection multiple.

Que doit faire le double-clic si vous avec plusieurs enr. sélectionnés ?

Bcdt

[facedeharicot]

Bonjour,

Merci pour votre réponse.

Avec plusieurs enregistrements sélectionnés, le double clic ne doit rien faire pour le moment

EDIT: merci à Philippe JOCHMANS d'avoir déplacé mon sujet dans la bonne section

[facedeharicot]

Mon ouverture de formulaire fonctionne en mode multiselection enfin pas tout à fait car elle ne semble pas pointer vers un Id (j'ai toujours le même enregistrement qui s'ouvre ou bien mon formulaire à toutes ses cases vides):

Code :

1
2
3
4
Public Sub lstResults_DblClick(cancel As Integer)
    DoCmd.OpenForm "frmAutoGestion", acNormal, , "Id = " & Me.lstResults.ItemsSelected.Item(0)
    Call Form_frmAutoGestion.Archivage
End Sub

Je pensais que la valeur 0 donnée à Item donnait le numéro de colonne, mais en fait c'est plus compliqué que ça

[mkl238]

Bonjour,

lstResults.ItemsSelected renvoie une collection d'index des items sélectionnés...

Même si ça me semble bizarre en mode sélection multiple, voici un exemple d' adaptation de ton code:

Code :

1
2
3
4
5
6
7
Public Sub lstResults_DblClick(cancel As Integer)
    Dim itemIndex As Variant
    For each itemIndex In lstResults.ItemsSelected
        DoCmd.OpenForm "frmAutoGestion", acNormal, , "Id = " & lstResults.ItemData(itemIndex)
    Next
    Call Form_frmAutoGestion.Archivage
End Sub

A noter que si tu n'es pas en mode sélection multiple, lstResults renvoie directement la valeur sélectionnée

[facedeharicot]

Merci pour ta réponse, ça fonctionne parfaitement

La sélection multiple me sert/servira à supprimer plusieurs éléments de ma listbox lstResults.
Le double clic me servant à Editer un des enregistrement de ma liste

Il ne me reste plus qu'à adapter le code de mon bouton de supression

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub btnSuppRecord_Click()
    Dim Response
 
    Response = MsgBox("Voulez-vous supprimer cet enregistrement", vbYesNo)
 
    If Response = vbYes Then
        Dim DB As Database
 
        Set DB = CurrentDb
 
        DB.Execute "delete * from T_Gestion where Id= " & lstResults.Column(0)
 
        Form_frmLogiciel!lstResults.Requery
    End If
End Sub

[fbtsra]

Bonjour,

Le code de mkl238 est bien dans l'esprit, mais il faut utiliser la boucle pour récupérer les items sélectionnés et les concaténer pour utilisation sous forme de filtre puis en final (après la boucle) lancer le formulaire avec ce filtre ...

Bcdt

autant pour moi ... je pensais que vous vouliez ouvrir le formulaire sur la base de tous les items sélectionnés dans la liste, mais ce n'est pas le cas d'après la réponse précédente ...

[facedeharicot]

Envoyé par fbtsra

Bonjour,

Le code de mkl238 est bien dans l'esprit, mais il faut utiliser la boucle pour récupérer les items sélectionnés et les concaténer pour utilisation sous forme de filtre puis en final (après la boucle) lancer le formulaire avec ce filtre ...

Bcdt

autant pour moi ... je pensais que vous vouliez ouvrir le formulaire sur la base de tous les items sélectionnés dans la liste, mais ce n'est pas le cas d'après la réponse précédente ...

Effectivement, je n'ai pas été très clair dans mon explication dès le départ

La multisélection ne me sert que pour supprimer. J'édite un formulaire à la fois

[facedeharicot]

Voici ma Sub fonctionnelle:

Code :

1
2
3
4
5
6
7
8
Public Sub lstResults_DblClick(cancel As Integer)
    Dim itemIndex As Variant
    For Each itemIndex In lstResults.ItemsSelected
        DoCmd.OpenForm "frmAutoGestion", acNormal, , "Id = " & lstResults.ItemData(itemIndex)
    Next
    Call Form_frmAutoGestion.Archivage
 
End Sub

Merci pour l'aide apportée