Bouton suppression

Bonjour
Merci de m'avoir repndu
Oui, j'ai deux tables qui sont liées de un à plusieurs.
C'est dans la 2 eme qui me sert de selection par un oui non pour supprimmer les enregistrements de la premiere.
Dans un formulaire, puis dans liste independante à selection multiple, j'ai les enregistrements a supprimer. Je selectionne ceux qui m'interesse que je voudrai supprimer par le bouton.
Peux tu, si tu le veux me traduire cela en VBA pour le bouton de suppression.
Je te remercie

Bonjour castours,

Si je comprends bien, ce sont les éléments de la table 2 (multi) qui, quand ils sont sélectionnés, te disent, il faut supprimer / il ne faut pas supprimer.

En général, c'est dans l'autre sens que l'on fait les actions.

Admettons :
Un enregistrement de la table 1 correspond les enregistrements de la table 2 .. exemple:
1 .. 1, 5, 6, 18, 20.
2 .. 2, 4, 7, 8, 9, 12, 13, 14, 15, 17.
3 .. 3, 11, 16.
4 .. 10, 19.
5 .. 21, 22.

Les nombres en gras sont ceux que tu as sélectionnés dans ta liste.
Table1, enregistrement 1 :: table2, enregistrement 6.
Le seul enregistrement susceptible d'être supprimé est table1, enregistrement 4 avec les enregistrements 10 et 19 de la table 2.

Q.: Il faut comprendre qu'il y aura des orphelins .. ou bien, il faut également supprimer tous les enregistrements de la table2 dont la clef correspond à l'Id de la table 1 ?

Bonjour Heliotte
Merci de ta reponse
C'est bien ce que je veux faire. Effacer l'id de la table 1 qui entraine la table 2 par le relation un a plusieurs. C'est cela que j'essaie de faire.

Bonsoir castours,

Pour supprimer un enregistrement de la table 1, il faut d'abord récupéré son identifiant (Id) et commencer par supprimer tous les enregistrements de la table 2 contenant la clé secondaire égale à l'identifiant de la table 1.
Une fois ces enregistrements supprimés, il ne reste plus qu'à supprimé l'enregistrement dont l'identifiant est Id de la table 1.

Connais-tu l'identifiant de l'enregistrement de la première table ou dois-tu le retrouver par le code ?

J'ai l'enregistrement complet dans une liste a choix multiple sur les 2 tables.
J'ai un champs oui nom qui me permet de faire la selection des enregistrements a effecer

Bonjour
J'ai essayé ceci dans un bouton commande
Mais une erreur de compil
Sub ou fonction nom defini
Ca bloque sur la condition Where

Sub Cde_Supprime_Click()

'DoCmd.Delete ' UtilisateursClique.Nom, UtilisateursClique.Prénom, MembresClique.[Actif]
DoCmd.RunSQL "Delete FROM UtilisateursClique AS idUtilisateurs,UtilisateursClique.Nom AS Nom,UtilisateursClique.Prénom AS Prénom RIGHT JOIN MembresClique ON UtilisateursClique.idUtilisateurs=MembresClique.idUtilisateurs"
WHERE MembresClique.IdMembres.[Actif] = 1


End Sub

Heliotte
Merci pour ton aide
Comme je ne comprends pas tout, je te mets mes deux tables et le formulaire
Dans ce lien
https://www.cjoint.com/c/CAAqb1v0jTl
Dans le formulaire , je choisis 2 ou 3 lignes puis le bouton effface
C'est ce que j'essaie de realiser.
Le Bouton est vide de code

Bonsoir castours,

Je n'ai que Access2003 .. est-il possible de le convertir dans cette version avec Access2007 ?
Si oui, veux-tu bien le faire et le reposter ?

Si non, me donner la structure des deux tables, leurs liaison, quelques enregistrements et un print srceen du formulaire .. j'essaierai de me débrouiller avec ça ..

Voila l'exemple en 2003
https://www.cjoint.com/c/CAAuN06OzCY

Je viens de trouver ce lien sur le sujet.

http://www.info-3000.com/access/requetesuppression/requetesuppression.php

Bonjours castours,

J'ai regardé au lien .. pas mal du tout !
Merci beaucoup.

Bonjour
J'ai reussi a faire fonctionné le bouton grace au forum de self access
Voic le code
Dim i As Variant, SQL As String

For Each i In Me.Zlist.ItemsSelected
SQL = "DELETE * FROM [T_MembresClique] WHERE [IdMbre] = " & Me.Zlist.ItemData(i)
CurrentDb.Execute SQL
SQL = "DELETE * FROM [T_UtilisateursClique] WHERE [IdUtil] = " & Me.Zlist.ItemData(i)
CurrentDb.Execute SQL
Next
End Sub

Bonjour Heliotte
J'aii le code dans le bouton mais access affiche erreur de syntaxe mais efface quande la ligne selectionnée
Voici le code
For Each i In Me.Zlist.ItemsSelected

'BLOQUE ICI SUR LA CONDITION WHERE.Dans le message [IdMbre]= ETAIT MENTIONNE
Les Id Sont Numerique Est la bonne syntaxe

SQL = "DELETE * FROM [T_MembresClique] WHERE [IdMbre] = " & Me.Zlist.ItemData(i)
CurrentDb.Execute SQL

'CurrentDb.Execute SQL
SQL = "DELETE * FROM [T_UtilisateursClique] WHERE [IdUtil] = " & Me.Zlist.ItemData(i)
CurrentDb.Execute SQL


Next


Merci de ton aide