Discussion :

[mawelle]

Bonjour,
j'ai un petit problème que je n'arrive pas à résoudre. J'aurais donc besoin de votre aide.
J'ai une zone de liste (A)dans laquelle se trouvent des sources gràce à une requête.
Lorsque je double clique sur l'une, elle est envoyée dans une 2ème zone de liste(B).
Dans ma zone B, je veux qu'en double cliquant sur une soucre, elle soit supprimée.
J'ai cette procédure:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub L_sources_choisies_DblClick(Cancel As Integer)
Call DeleteItemSelected
End Sub

...qui appelle une fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Function DeleteItemSelected()
Dim MaListe As Variant
Dim I As Integer
 
MaListe = ""
If Me.L_sources_choisies.ListCount > 0 Then
    For I = 0 To Me.L_sources_choisies.ListCount - 1
        If Me.L_sources_choisies.ListIndex <> I Then
            MaListe = IIf(MaListe = "", Me.L_sources_choisies.ItemData(I), MaListe & ";" & Me.L_sources_choisies.ItemData(I))
        End If
    Next
End If
Me.L_sources_choisies.RowSource = MaListe
End Function

Problème:lorsque j'ai plusieurs (une, ça marche) sources dans la zone B, et que je souhaite supprimer n'importe laquelle, elles sont en fait toutes supprimées.
Puis quand je sélectionne à nouveau des sources dans la zone A pour les mettre dans la zone B, s'affichent seulement les numéros des sources, alors que la 1ère colonne est cachée.

Merci par avance pour votre aide

[azertix]

Pourquoi créer une fonction ?
Moi je mettrais le code directement dans l'évènement DblClick()
J'ai déjà utilisé un code comme ça pour effectuer une action pour chaque ligne sélectionnée dans une zone de liste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim entCurrLigne As Integer
 
For entCurrLigne = 0 To Me.L_sources_choisies.ListCount - 1
    If Me.L_sources_choisies.Selected(entCurrLigne) Then
    'Si la ligne est sélectionnée ...
        'Suppression de la ligne en cours
    End If
Next entCurrLigne

[mawelle]

J'ai placé cette procédure dans l'évenement sur double clic mais cela ne répond pas.
Je n'ai pas de message d'erreur, mais la source n'est pas supprimée...
Tu vois d'où cela pourrait venir??

[azertix]

Tu as bien rajouté le code de suppression de l'enregistrement avec un Delete, à l'endroit où je t'ai marqué "Suppression de la ligne en cours" en commentaire ?

[mawelle]

Nan...
Mais comment faire? car je ne veux pas les supprimer de ma table (c'est d'ailleurs juste une liste de valeurs), seulement de ma liste.

[azertix]

Ah ok, c'est différent alors ... Comme tu avais dit dans ton premier post que la source était une requète, j'étais parti là-dessus.
Pour une liste de valeurs, c'est différent.
Je l'ai pas fait souvent d'ailleurs ...
Regarde sur le forum, tu devrais trouver ça

[pev15]

une solution un peu bourin peut etre serait de réecrire le rowsource de ta zone de liste a chaque suppression. si c'est une liste de valeur je ne vois pas comment faire autrement.

Si c une requete, moi j'éditerai a chaque fois la clause where de ta requete pour virer les items de ta ZDL.

[mawelle]

ma 1ère zone de liste a pour source une requête. L'autre, la zone B, qui reçoit des sources a pour source donc, une liste de valeurs.
Personne ne saurait comment faire pour supprimer une par une les sources de ma zone de liste par un clic?

[mawelle]

Quelqu'un at'il déjà effectué cette manipulation avec access 2000 qui ne reconnait pas les RemoveItem??