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.
Quelqu'un aurait il une idée?
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
Partager