Supprimer enregistrement(s) d'une table qui contient champ de type " pièces jointe " par Requete

**RaphBdd66** · 17/01/2017, 11h39

Bonjour,

J'aimerais supprimer des enregistrements de la table "clients" grâce à une requête Action-Suppression (sélection + suppression) ou commande VBA comme je le fait sur de nombreuses tables.
Le hic , c'est que cette table client contient une pièce jointe (photo(s)).
Quand je lance ma / mes requête(s), j'ai toujours le même message "Spécifiez la table contenant les enregistrements que vous voulez supprimer".

Pour info : J'utilise un formulaire de sélection avec case à cocher basé sur une copie de ma table "Client".. Client_SELECT
Une requête CLIENT_SELECTED sélectionne les clients cochés ... En lançant mes requêtes suppression , je supprime les enregistrements concernant les clients sélectionnés dans toutes les tables associés.
Depuis que j'ai inséré ce champ Pièces jointes dans ma table "CLIENT" , je suis embêté....

Dois-je passer par la gestion des DAO / Recordset que je maitrise mal ... ?

Merci d'avance pour votre contribution

**tee_grandbois** · 17/01/2017, 17h48

Bonsoir,

Quand je lance ma / mes requête(s), j'ai toujours le même message "Spécifiez la table contenant les enregistrements que vous voulez supprimer".

actuellement, comment exécutes-tu les requêtes : si c'est à partir d'un formulaire tu dois donc utiliser le VBA ou des macros ?
Peux-tu nous montrer ce code ?
Merci.

**RaphBdd66** · 17/01/2017, 21h48

Et bien il existe un simple bouton "supprimer" sur mon formulaire.
Sur clique , j'utilise une macro qui fait appel à une fonction VBA DELETE_CLIENT()

Function DELETE_CLIENT()
DoCmd.RunSQL "DELETE DISTINCTROW TABLE_CLIENT.* FROM TABLE_CLIENT INNER JOIN R_CLIENT_SELECTED ON TABLE_CLIENT.CLIENT_ID = R_CLIENT_SELECTED.CLIENT_ID;"

DoCmd.RunSQL "DELETE DISTINCTROW COMMANDE_CLIENT.* FROM COMMANDE_CLIENT INNER JOIN R_CLIENT_SELECTED ON COMMANDES_CLIENT.CLIENT_ID = R_CLIENT_SELECTED.CLIENT_ID;"

DoCmd.RunSQL"........................................

End Function

MERCI

**tee_grandbois** · 17/01/2017, 22h09

- le code est-il complet ?
- sur quelle requête survient le message ?

**RaphBdd66** · 19/01/2017, 18h27

non , Le code n'est pas complet. J'utilise 6 requêtes de ce genre pour supprimer les informations du client contenu dans d'autres tables.
Pour la gestion de la pièce jointe du client, sachant que les pièces jointes sont plus compliqué à gérer, j'ai préféré utiliser une table CLIENT_PICS , 2 champs : ID_CLIENT et pièce jointes.

La 7éme requête pose problème :

DoCmd.RunSQL "DELETE DISTINCTROW TABLE_CLIENT_PICS.* FROM TABLE_CLIENT_PICS INNER JOIN R_CLIENT_SELECTED ON TABLE_CLIENT_PICS.CLIENT_ID = R_CLIENT_SELECTED.CLIENT_ID;"

Merci

**tee_grandbois** · 19/01/2017, 19h54

Bonsoir,
essaie sans jointure mais avec In :

Code :

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

DoCmd.RunSQL "DELETE DISTINCTROW TABLE_CLIENT_PICS.* FROM TABLE_CLIENT_PICS WHERE TABLE_CLIENT_PICS.client_id In (SELECT client_id from [R_CLIENT_SELECTED]);"