Discussion :

[Kihmé Xs]

Bonjour à tous

Je n'arrive pas à trouver ce que je cherche sur le site donc je viens vous questionner diréctement.

Je souhaite supprimer sur click un enregistrement d'une table. Le truc c'est que cet enregistrement est sélectionné dans une liste déroulante.

Quand je suis dans ma procedure sur click de mon bouton supprimer je ne sais pas ce que je dois faire en vba pour aller chercher l'enregistrement séléctionné et en faire l'enregistrement courant.

La suite je sais très bien comment faire mais c'est juste çà.

Merci d'avance.

Kihmé Xs

[timoth]

Salut Kihmé Xs,

Il faut que tu ailles supprimer l'enregistrement directement dans la table, en t'appuyant sur ce qui est selectionné dans ta liste déroulante.
Ca consiste dire a Access: Dans la table Untel, supprime-moi la ligne dont l'enregistrement Untel a pour valeur ce qui est lue dans la liste déroulante.

Si c'est une petite manip isolée (pas de boucle), je te conseille une simple commande SQL:

Code :

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

Docmd.RunSQL "DELETE [ma_table].* FROM [ma_table] WHERE [ma_table].[mon_champ]='" & me.ma_liste_deroulante & "'"

Si tu veux ensuite rafraichir ta liste déroulante:

Code :

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

ma_liste_deroulante.requery

Bien a toi !

[FreeAccess]

Bonjour,

...Je souhaite supprimer sur click un enregistrement d'une table

Voici une facon de procéder:
Sur l'événement "Sur clic" de ta Zone liste déroulante (Modifiable1) :

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
Private Sub Modifiable1_Click()
'On supprimme l'apparition du message de confirmation
DoCmd.SetWarnings False
'Ici on va supprimer l'enregistrement sélectionné
Dim sSQL As String
sSQL = "DELETE * FROM MaTable WHERE N° = " & Me.Modifiable1.Value
DoCmd.RunSQL sSQL
 
'On va rafraichir les données de la liste déroulante
Me.Refresh
Me.Modifiable1.Requery
 
'On réactive le message de confirmation
DoCmd.SetWarnings True
End Sub

Ici "MaTable correspond au nom de ta table ou se trouve l'enregistrement a effacer...

Bonne continuation...

[Kihmé Xs]

Merci bien!

Le truc c'est que je dois le faire sur click mais le click n'est pas celui de la liste déroulante.
La séléction est faite à partire de la liste mais la suppression doit être faite sur le click d'un bouton supprimer.
Et donc c'est la que je me retrouve bloqué. C'est comment dans ma procédure, récupérer ce que renvoi la liste déroulante que je ne sais pas faire. A mon avis ce n'est pas grand chose mais il doit bien y avoir une instruction pour ça.

[timoth]

Le code que te donne FreeAccess marche tres bien pour un bouton différent.

Si tu as un bouton Supprimer, tu mets le code de FreeAccess dans l'évenement On_Click de ton bouton.
Ca te donnera:

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
Private Sub Supprimer_Click() 
'On supprimme l'apparition du message de confirmation 
DoCmd.SetWarnings False 
 
'Ici on va supprimer l'enregistrement sélectionné 
Dim sSQL As String 
sSQL = "DELETE * FROM MaTable WHERE N° = " & Me.Modifiable1.Value 
DoCmd.RunSQL sSQL   
 
'On va rafraichir les données de la liste déroulante 
Me.Refresh 
Me.Modifiable1.Requery   
'On réactive le message de confirmation 
DoCmd.SetWarnings True 
End Sub

La commande "DELETE * FROM MaTable et..." dit a Access: Dans la table MaTable, supprime moi toute la ligne pour laquelle le champ N° a pour valeur, ce qui est selectionné dans ma liste déroulante (Me.Modifiable1.Value)
C'est pas plus compliqué que ca !

[Kihmé Xs]

ah ok, j'essais de suite.

Au fait le sql est "mon langage fort"... Ce qui n'est pas le cas du VBA

[Kihmé Xs]

que signifie Me.?
c'est une variable comme RS?

[Kihmé Xs]

Code :

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

1
2
 
DoCmd.RunSQL sSQL

Lors d'une exécution il semble avoir un problème sur l'éxecution de la requete

[javelot69]

Bonjour,

Me. n'est pas une variable ; cela veut dire l'objet sur lequel tu es en train de travailler ; dans ton cas c'est ton formulaire contenant la liste déroulante.

Bonne journée.

[FreeAccess]

Bonsoir,

Lors d'une exécution il semble avoir un problème sur l'éxecution de la requete

Oui, c'est bien...... et le jeu c'est d'essayer de trouver quel type d'erreur tu as ....

Donc pour aider.....Quel est le type de donnée contenue dans la colonne utilisée comme valeur du contrôle de ta Zone de liste déroulante ==> "Texte" ou "Numérique"
Dans le cas de mon exemple, N° était de type "Numérique"

Pour d'autre type de données, tout est dans ce lien:
http://access.developpez.com/faq/?page=SQL#PbTypVar

Bonne continuation...

[Kihmé Xs]

j'ai procédé autrement et j'ai finit par avoir quelques choses qui fonctionne

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 b_supprimer_clt_Click()
 
Dim supp As Database
Dim RS As DAO.Recordset
Set supp = CurrentDb()
Set RS = supp.OpenRecordset("client")
 
If s_liste_clt.ListIndex > -1 Then
    supp.Execute "delete from client where code_clt = " & s_liste_clt.Column(0)
    MsgBox ("enregistrement supprimé")
    s_liste_clt.Requery
Else
    MsgBox ("Sélectionez un enregistrement")
End If
 
End Sub

Merci bien pour votre aide