Discussion :

[maclolo2]

bonjour,

J'ai une zone de liste qui récupère les données d'une table appeléé T_trajet_aller et j'ai fait un code pour pouvoir supprimer une ligne dans cette liste et dans la table :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande119_Click()
Dim DB As Database
Dim RS As DAO.Recordset
Set DB = CurrentDb()
Set RS = DB.OpenRecordset("T_trajet_aller")
If Form_Onglet_gérer_réservation.Liste7.ListIndex > -1 Then
    DoCmd.RunSQL "delete from T_trajet_aller where 'N°= liste7.ListIndex.Column(0)'"
MsgBox "Suppression effectuée", vbInformation
End If
Form_Réservation.Requery
 
End Sub

Seulement je n'arrive pas à supprimer juste la ligne sélectionnée, cela me supprime tout.

Comment puis je faire pour supprimer juste la ligne sélectionnée.

Merci

[gabvoir]

Hello,

Il y deux possibilite,
- sans le recordset :
si ton champ dans ta table s'apelle bien N°, et que le BoundColumn indiaue bien la colonne de ton N°

Code :

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

1
2
 
db.execute("DELETE * FROM T_trajet_aller WHERE [N°]=" & liste7.value)

- avec le recordset

Code :

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

1
2
3
4
5
6
7
 
set rst = db.OpenRecordset("SELECT * FROM T_trajet_aller")
rst.findfirst("[N°]=" & liste7.value)
if not rst.nomatch then
  rst.delete
end if
set rst = nothing

Par contre, je ne sais pas trop quelle est la meilleure des deux ..

et n'oubli pas de mettre avant ton End Sub

Code :

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

1
2
3
 
set db = nothing
End Sub

[maclolo2]

ca marche nickel, j'ai juste rajouté le nom du formulaire devant le nom de liste et ca marche impeccable

je te remercie

[gabvoir]

Pense a passer le topic en resolu