Discussion :

[Nanadoo]

Bonjour,
Comme le dit le titre de cette discussion, je cherche en fait à supprimer des lignes qui proviennent de plusieurs tables différentes. Je m'explique:
J'ai des matières premières qui possèdent des indices. Un indice possède une ou plusieurs spécifications: spécification qui correspond à une analyse. Etc ...
Le but est que, lorsqu'un utilisateur veut supprimer une matière première, tout ce qui y est lié soit supprimé aussi.

Actuellement, j'ai 6 requêtes différentes (une pour chaque information à récupérer) et je les supprime dans le bon ordre. Exemple :
Set Requete = db.OpenRecordset(SqlSuppSpecification)
Requete.Delete
Requete.Close
Malheureusement cela ne fonctionne pas.

Comme j'ai écrit une requête qui, avec l'identifiant de la matière première sélectionnée, me donne toutes les informations correspondantes, je voulais savoir s'il était possible de supprimer tout d'un coup ? Je ne m'y connais pas du tout en "recordset" alors j'ai besoin que vous m'aidiez..
J'ai vu qu'il y avait des histoires avec des moveFirst ou moveNext, mais je ne comprends pas trop...

Merci d'avance !

[f-leb]

Bonjour,

MatierePremiere-∞-----1-Indice-∞------1-Specification...

Pour supprimer des enregistrement dans une table, tu peux lancer une requête "Action" en VBA :

Code :

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

1
2
3
4
With CurrentDb
  .Execute "DELETE * FROM MatierePremiere WHERE idMatierePremiere=" & MatierePremiere_A_supprimer, dbFailOnError 
  Debug.Print .RecordsAffected & " supprimé(s)" 
End With

Si la suppression d'une matière première doit entraîner les indices et spécifications correspondants, dans la fenêtre des Relations, tu double-cliques sur les relations et tu coches "Effacer en cascade...".

[Nanadoo]

Bonjour,

Merci pour ta réponse très rapide !
J'ai justement enlever les relations de suppression en cascade car j'ai rencontré des soucis dans certains formulaires.
D'où mon besoin de toute faire par requête...

[Nanadoo]

Bon, j'ai modifié mes relations et effectivement tout marche !
J'ai cherché trop compliqué et n'osais plus toucher à ce que j'avais déjà fait... Honte à moi !

Merci beaucoup en tout cas !