Discussion :

[Gloirez]

Bonjour,

Je souhaiterais avoir vos retours sur le code suivant:

J'ai en fait un formulaire sur lequel j'ai une liste déroulante qui propose plusieurs choix d'enregistrements.
A chaque fois qu'un enregistrement est sélectionné , je souhaite le supprimer définitivement de la liste en appuyant sur un bouton.

Pour ce faire , j'ai le code suivant:

Code :

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

1
2
3
4
5
6
7
Private Sub Commande1_Click()
If a.ListIndex >= 0 Then
      a.RemoveItem a.ListIndex
End If
   Me.Requery
   Me.Refresh
End Sub

La suppression marche très bien à chaque sélection d'un enregistrement de données.
Par contre quand je ferme et que j'ouvre à nouveau le formulaire .Je retrouve ma liste déroulante avec l'ensemble des enregistrements : je retrouve ceux qui ont été supprimés.
Une fois qu'un enregistrement est supprimé , je ne souhaite plus l'avoir dans ma liste déroulante après fermeture et réouverture du formulaire .

J'espère que je me suis pas perdues sur les explications. Je me tiens à disposition pour reformuler à nouveau ma question si besoin .

Merci d'avance pour votre aide.

Gloirez

[loufab]

Bonjour,
Si c'est un enregistrement, c'est qu'il est contenu dans une table.

Removeitem supprime un item de la liste, mais pas de la source (table).

Utilise plutôt une requête de suppression puis recharge la liste.

Cordialement,

[Gloirez]

Bonjour Loufab,

Merci pour ce retour,

La liste déroulante est bien alimentée par une requête effectuée sur une table.
Et justement , mon souci réside sur le fait que je ne veux pas supprimer l'enregistrement de la table d'origine mais seulement sur la liste
( je ne sais même pas si c'est possible car à chaque réouverture du formulaire la liste se réinitialise avec les enregistrements supprimés sans doute parce que la table d'origine est restée inchangée).

[loufab]

Si tu ne supprimes pas l'enregistrement de la source celle(s)-ci remontera(ront) systématiquement...
A moins de le écarter de la sélection.

Deux solutions :

1) Un champ supplémentaire dans la table. Type booléen (True = écarté de la liste / False (defaut) = pris en compte) et adapter la source de ta liste en conséquence.

2) Un table annexe où tu mets les Id unique de la table source qui ne doivent pas être pris en compte. Et tu adaptes la source de la liste en conséquence : Un simple tableSource.id Not Exist(Select id From cette_nouvelle_table) fera l'affaire.

au choix suivant tes obligations/contrainte.

Cordialement,

[Gloirez]

J'ai appliqué la première solution proposée et ça marche très bien.

C'est génial.

Merci encore une fois loufab!!!!