Discussion :

[AMDMAN]

Bonjour à tous,

J'ai crée un formulaire avec une zone de liste déroulante alimenté par une requête.
Il y a aussi un bouton qui permet de supprimer l'enregistrement actuellement visible dans la zone de liste déroulante.
Tout marche nikel, mais je voudrais bien que l'enregistrement visible dans la zone de liste déroulante n'apparaisse plus après son effacement.
J'ai fait un forms!monformulaire!.malistedéroulante.requery, la liste est bien mise à jour (plus de **suppression), mais toujours l'enregistrement supprimé visible.
J'ai tenté le .repaint, pas mieux

Je suis sur qu'il doit exister une commande, mais j'arrive pas a mettre la main dessus.

Si vous avez ca sous la main, je suis preneur.

[Petit Rasta]

Bonjour,

Vas dans les propriétés évènement de ta liste et cliques sur les "..." du champ : Sur Abscence dans la liste

Essaies le code suivant :

Code :

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

1
2
'Met à jour la zone de liste déroulante
Me.champe_liste.RowSource = "SELECT table.[champ] FROM table; "

J'allais poser une question similaire :
J'ai un problème parce que j'ai plusieurs listes à mettre a jour avec de nouvelles données du coup j'utilise ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub N°DAS_Texte_NotInList(NewData As String, Response As Integer)
'Désactive l affichage des messages système
DoCmd.SetWarnings False
 
'Met à jour la table Elevage avec la nouvelle donnée NewData
DoCmd.RunSQL "INSERT INTO DAS ( [N°DAS] ) SELECT " & NewData & " AS Expr2;"
 
'Met à jour la zone de liste déroulante
Me.N°DAS_Texte.RowSource = "SELECT DAS.[N°DAS] FROM DAS; "
 
'Intercepte l'erreur et l'inhibe
Response = acDataErrContinue
 
'Active l affichage des messages système
DoCmd.SetWarnings True
End Sub

mon problème est que pour une liste ça marche mais pour les autres listes, la sélection devient blanche sur le formulaire.
Les données sont bien rentrées dans la base pourtant ...

[Invité]

Bonjour

Il y a aussi un bouton qui permet de supprimer l'enregistrement actuellement visible dans la zone de liste déroulante.

Quel est le code que tu utilises ?
Supprimes-tu l'élément de la source ?
Est-ce définitivement ou temporairement ?

Philippe

[AMDMAN]

--> Merci Petit rasta, j'essayerais ça demain.

--> Philippe, voici le code que j'utilise pour supprimer l'enregistrement visible dans la zone de liste :

Code :

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

1
2
3
4
5
6
7
8
Private Sub cmd_supp_Click()
 
Dim sql_string As String
sql_string = "delete from t_ville where ville=""" & liste_ville.Column(0) & """"
 
DoCmd.RunSQL (sql_string)
 
Forms!f_ville_suppression!.liste_ville.Requery

Je supprime définitivement l'élément de la source.

Code :

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

Forms!f_ville_suppression!.liste_ville.Requery

Ceci me permet de mettre a jour le contenu dans la zone de liste déroulante, en effaçant l'enregistrement qui restait en status ***supprimé

en fait ce que je veux, c'est après avoir cliqué sur le bouton qui sert à supprimer l'enregistrement présent dans la zone texte déroulante, que la zone de texte ne contienne plus l'enregistrement supprimé

Cordialement,

[AMDMAN]

Bonjour à tous,

J'ai trouvé la solution :

Code :

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

1
2
 
liste_ville.Value = Null

C'est aussi bête que ça.