Discussion :

[SpyesX]

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?

[pgz]

re,

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

Code :

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

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

[SpyesX]

Un message me dit que ceci

Code :

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

.FListeProduitsClients

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

J'avoue ne^pas comprendre...

[pgz]

Elle s'appelle comment alors ta zone de liste?

A+
pgz

[SpyesX]

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

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 :

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

DoCmd.RunSQL (StrSQL)

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

[pgz]

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

pgz

[SpyesX]

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:

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...

[pgz]

Recopie le code, tel qu'il est maintenant.

pgz

[SpyesX]

le code actuel est:

Code :

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

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

[pgz]

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

pgz

[SpyesX]

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.

[pgz]

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

[SpyesX]

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.

[pgz]

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.

[SpyesX]

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

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

[pgz]

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.

[SpyesX]

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