Discussion :

[xycoco]

bonsoir,

j'ai un problème avec l'effacement d'une valeur dans une table :

voilà j'ai 2 tbl : tbl_appellation et tbl_vin liée par un champ txt Appellation (j'ai créé la tbl_Appellation pour éviter les répétition)avec une relation 1(tbl_appellation) à plusieurs (tbl_vin)

J'ai créé un formulaire à partir des champs de ces 2 tables qui me permet de modifier/supprimer les enregistrements de la tbl appellation.
Ex : 1 enreg dans tbl_appellation appelé Buzet
2 enreg dans tbl_vin lié à cette appellation : vin rouge et vin blanc

Je souhaiterais que lorsqu'il ny'a plus d'enregistrement lié à l'appellation Buzet que cette dernière s'efface de la tbl_appellation.

Comment faire, j'ai essayé "effacer en cascade" mais cela marche pas.

Merci de votre aide

[Alexandre Sahli]

bonsoir,
il te faut faire une requête pour la suppression.

1. tu fais une requête basée sur les appellations qui n'ont rien comme vin
par exemple

Code :

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

1
2
3
4
 
SELECT T_Appelation.ID_Appelation
FROM T_Appelation LEFT JOIN T_Vin ON T_Appelation.ID_Appelation = T_Vin.ID_Appelation
WHERE (((T_Vin.Vin) Is Null));

2. tu insères cette requête dans une requête effacement
ce qui donne:

Code :

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

1
2
3
4
5
6
 
DELETE T_Appelation.ID_Appelation
FROM T_Appelation
WHERE (((T_Appelation.ID_Appelation) In (SELECT T_Appelation.ID_Appelation
FROM T_Appelation LEFT JOIN T_Vin ON T_Appelation.ID_Appelation = T_Vin.ID_Appelation
WHERE (((T_Vin.Vin) Is Null));)));

3 Tu affecte cette requête à un bouton effacement

[xycoco]

Bonjour et merci

J'ai donc appliqué ce code à un bouton supprimer dans ma barre d'outils :

Code :

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

1
2
3
4
5
6
7
Public Function SupprimerAppellation()
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    Dim MonCritère As String
    MonCritère = "DELETE tbl_Appellation.Appellation FROM tbl_Appellation WHERE (((tbl_Appellation.Appellation) IN (SELECT tbl_Appellation.Appellation FROM tbl_Appellation LEFT JOIN tbl_Vin ON tbl_Appellation.Appellation =" & "tbl_Vin.Appellation WHERE (((tbl_Vin.NumVin) Is Null));)));"
    DoCmd.RunSQL MonCritère
End Function

et cela marche mais j'ai un autre problème : j'ai 2 fois un message d'avertissement de suppression d'enreg :

1 pour la suppression l'enregistrement en cours de la tbl_Vin
et 1 pour la requête suppression de la tbl_Appellation!!!!

Autre problème, autre post...
Bye

[qtronix]

Pour le message d'erreur,il te dit un truc du genre : "Vous etes sur le point d'effacer X enregistrements......"???

Si c'est ca,il faut mettre un "docmd.setwarnings false" après la ligne "Public Function SupprimerAppellation()"

Sinon je ne sais pas t'aider

[Alexandre Sahli]

il faut mettre un

Code :

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

1
2
 
docmd.setwarning true

après la fonction pour rétablir les messages

[xycoco]

Bonjour,

C'est ce que j'ai fait (après avoir utiliser "rechercher")

merci encore