Discussion :

[gastoncs]

Bonsoir,

voila j'ai une table "personnel" avec 6 champs dont "nom" et "maladie" (case à cocher)
et une 1 autre table "registre" avec 5 champ dont le champ "nom" qui utilise le champ "nom" de ma table "personnel"

et je souhaiterais que lorsque la case à cocher "maladie" de la table "personnel" soit coché pour une personne que tous ses enregistrement correspandant a la personne se supprime dans ma table "registre", est ce possible ????

[marot_r]

Tu utilise le nom de la personne comme clef de liaison entre tes tables ? Si oui, j'espère que tu as rendu le nom clef unique sinon bonjour les dégats avec les homonymes.

Vu que tu es dans IHM, j'imagine que tu as un formulaire principal qui affiche tes personnes et un sous-form qui affiche tes registres.

Tu peux mettre le code suivant dans AfterUpdate de ta case à coher :

Code :

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

1
2
3
 
docmd.RunSQL "delete * from registre where [Nom]=""" & me.nom & """;"
Me.Recalc:'Peut-être pas indispensable, fait des tests.

ou un peu plus lourd mais qui aurait ma préférence parce qu'il sépare clairement le SQL du code VBA.

Code :

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

1
2
3
4
5
6
7
8
 
dim db as database:set db=currentdb
dim q as querydef:set q=db.queryDef("rSupprimerRegistre")
q.parameters("prmNom")=me.nom
q.execute
set q=nothing
db.close:set db=nothing
Me.Recalc:'Peut-être pas indispensable, fait des tests.

avec rSupprimerRegistre la requête :

Code :

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

1
2
3
4
5
 
PARAMETERS prmNom Text ( 255 );
DELETE Registre.*, Regsitre.C1
FROM Regsitre
WHERE (((Regsitre.Nom)=[prmNom]));

A+