Un bouton supprimer qui ne supprime pas... help!

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:

---

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?

re,

Pour voir ce qui se passe, tu peux essayer déjà ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub btnSupprimer_Click() Dim StrSQL As String msgbox me.FListeProduitsClients StrSQL = "DELETE *" & _ "FROM ProduitsClient " & _ "WHERE ProduitsClient.id_ProduitsClient=" & Me!FListeProduitsClient & " ;"   DoCmd.RunSQL (StrSQL)   Me!FListeProduitsClient.Requery End Sub

---

Pour voir si l'id attendu est bien disponible,
Pour voir si une erreur est générée.

A+

pgz

Un message me dit que ceci

Code:

---

.FListeProduitsClients

---

Citation:

---

Membre de méthode ou de données introuvable.

---

J'avoue ne^pas comprendre...

Elle s'appelle comment alors ta zone de liste?

A+
pgz

ben c'est pour ça que je ne comprend pas... Elle s'appelle bien

Citation:

---

FListeProduitsClient

---

Non j'ai trouvé:
ce n'est pas FListeProduitsClients mais FListeProduitsClient. Il y avait un s en trop.
Un message apparait alors avec le numéro 21
Il me demande de confirmer la suppression /oui
Il me dit que c'est impossible donc propose un debogage /oui
Il surligne

Code:

---

DoCmd.RunSQL (StrSQL)

---

Qu'est ce qu'il a mon DoCmd. ?[/quote]

Peut-être que la table est en cours d'utilisation.
Est-elle dans la source du formulaire qui contient la liste?

pgz

mis appart la requête qui interroge la table ProduitsClient pour afficher le résultat dans la FListeProduitsClient, cette même table n'est appelée nul part. Elle ne fait pas non plus parti des sources du formulaire.

Le message exact est:

Citation:

---

Impossible d'effacer 1 enregistrement de la requête Suppression à la suite de violations de clé et 0 enregistrement à la suite de violations de verrou.

---

Je comprend rien à ce qu'il me dit. Je ne pense pas avoir mis de verrou...

Recopie le code, tel qu'il est maintenant.

pgz

le code actuel est:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub btnSupprimer_Click() Dim StrSQL As String MsgBox Me.FListeProduitsClient StrSQL = "DELETE *" & _ "FROM ProduitsClient " & _ "WHERE ProduitsClient.id_ProduitsClient=" & Me!FListeProduitsClient & " ;"   DoCmd.RunSQL (StrSQL)   Me!FListeProduitsClient.Requery End Sub

---

avec le message d'erreur dans ma réponse au dessus

Et ProduitsClients, c'est une table ou une requête?

pgz

ProduitsClient est une table
FListeProduitsClient est une Zone de liste dont la source est une requête qui me permet d'afficher la désignation, l'id_ProduitClient, et la marque.

Pour la zone de liste, la requête concerne la RowSource. La source, elle, est vide?

En ce qui concerne la RowSource, je ne sais pas répondre, mais pour ce qui est de la source, elle n'est pas vide puisqu'elle affiche des résultats dont un que je cherche à supprimer.

Là il y a un pb.
Dans les propriétés de la zone de liste, onglet 'données', tu devrais avoir sur la ligne contrôle source : (rien)
sur la ligne contenu : ta requête.

En effet je n'ai rien en source controle mais voici ma requête

Citation:

---

SELECT ProduitsClient.id_ProduitsClient, ProduitsClient.CodeClient, TypesProduitsClient.TypeProduits, ProduitsClient.Marque, ProduitsClient.Immatriculation, Clients.CodeClient, TypesProduitsClient.id_TypesProduitsClient FROM Clients INNER JOIN (TypesProduitsClient INNER JOIN ProduitsClient ON TypesProduitsClient.id_TypesProduitsClient=ProduitsClient.id_TypesProduitsClient) ON Clients.CodeClient=ProduitsClient.CodeClient WHERE (((ProduitsClient.CodeClient)=forms!Client!CodeClient));

---

pour le contenu...
Je ne comprend pas... :? j'ai vérifié mon formulaire la suppression est autorisé tout... mais rien ne se passe

Ca peut venir des liens entre tables, par ex si tu essaies de supprimer un produit qui est l'unique représentant de ce type de produit. Il faut regarder les relations entre tables. il peut y avoir viol des règles d'intégrité référentielle.

Si c'est ça, tu dois avoir le même pb pour supprimer le même enregistrement directemnt, table ouverte.

C'EST CA!!! :idea: dans ma relation j'avais oublié de cocher la case: effacer en cascade les enregistrements correspondant...
SUPER merci beaucoup pgz!!! :D