Bonsoir,
Voilà le code suivant est censé supprimer un enregistrement visualisé dans une zone de liste. Or lorsque je click sur le bouton SUPPRIMER, rien ne se passe. J'ai bien essayé de refaire la requête mais rien n'y fait.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub btnSupprimer_Click()
Dim StrSQL As String
StrSQL = "DELETE ProduitsClient.*, ProduitsClient.id_ProduitsClient " & _
         "FROM ProduitsClient " & _
         "WHERE (((ProduitsClient.id_ProduitsClient)=" & Me!FListeProduitsClient & "));"
DoCmd.SetWarnings False
DoCmd.RunSQL (StrSQL)
DoCmd.SetWarnings True
Me!FListeProduitsClient.Requery
End Sub
Quelqu'un aurait il une idée?