[VBA] Supprimer une ligne de table en fonction de la selection dans une zone de liste

Bonjour,

j'ai un formulaire listant tous les enregistrements d'une table par l'intermédiaire d'une zone de liste.

Il peut arriver qu'une ligne doit être ajoutée dans la table, j'ai réussi à faire cela.

Inversement, j'aimerais pouvoir supprimer, par un clic sur un bouton, un enregistrement en fonction de la ligne séléctionnée dans ma zone de liste.

Comment puis-je réaliser cette fonction, sachant que j'ai réussi à prendre la valeur dans une colonne donnée grâce à la commande :

Code:

---

1 2 3

Private Sub lstmanageractif_GotFocus() lstmanageractif.Column (2) End Sub

---

Merci d'avance pour votre aide.

en partant du principe que ta base possede un identifiant (une clef primaire) et que c'est bien cette valeur que tu recuperes, alors ceci devrais pouvroir t'aider :

Code:

---

1 2 3 4 5 6

With DoCmd .SetWarnings False 'Désactive les alertes .RunSQL ("delete * from [Nom de ta table ] where [Nom de ta clef] =" & lstmanageractif.Column (2) & ";") .SetWarnings True End With

---

Tu peux aussi t'inspirer de ceci : http://access.developpez.com/sources...=frms#supprEnr

Merci à vous 2,

j'ai donc inséré ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Commande11_Click() If IsNull(Me!lstmanageractif) Then MsgBox "Aucun élément sélectionné dans la liste.", vbCritical Else DoCmd.SetWarnings False 'Facultatif DoCmd.RunSQL "DELETE TAccountManagers.* FROM tbl WHERE TAccountManagers.Idmanager=""" & Me!MaZoneDeListe & """;" DoCmd.SetWarnings False 'Facultatif Me.lstmanageractif.Requery End If End Sub

---

Mais j'ai une erreur qui donne : "impossible de trouver le champs 'mazonedeliste" auquel il est fait référence dans votre expression"



Auparavant j'obtenais une erreur avec le code

Code:

---

lstmanageractif.Column (2)

---

où j'obtenais cela : erreur de compilation, utilisation incorrecte de la propriété

Savez vous de ou cela peut venir?

Merci d'avance

Remplace 'mazonedeliste' par le vrai nom de ta zone de liste. :roll:

Code:

---

lstmanageractif.Column (2)

---

Enlève l'espace avant les parenthèses.

l'espace entre les parenthèses se met automatique.

J'ai bien modifier le code pour obtenir ceci :

Code:

---

1 2 3 4

DoCmd.SetWarnings False 'Facultatif DoCmd.RunSQL "DELETE TAccountManagers.* FROM TAccountManagers WHERE TAccountManagers.Idmanager=""" & Me!lstmanageractif & """;" DoCmd.SetWarnings False 'Facultatif Me.lstmanageractif.Requery

---

M'ai j'obtiens l'erreur suivante : "type de données incompatibles dans l'expression du critère"

Oui car mon code fonctionne pour un critère de type String alors que le tien est de type numérique.

Il te suffit d'ôter les guillemets, comme ceci :

Code:

---

DoCmd.RunSQL "DELETE TAccountManagers.* FROM TAccountManagers WHERE TAccountManagers.Idmanager=" & Me!lstmanageractif & ";"

---

Merci bcp pour ton aide FRED G.

Merci pour ta patience!

Quentin

je relance cette discussion pour savoir comment on peut supprimer plusieurs enregistrement au mm temps?