Discussion :

[vavavoum74]

Bonjour
J'ai ce code dans un formulaire [F_DateSuppression] sur clic d'un bouton:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CmdValidation_Click()
If MsgBox("Etes Vous sûr de vouloir effacer le planning? Opération irréversible!", vbYesNo) = vbYes Then
    DoCmd.OpenQuery "R_SuppPlanning"
    MsgBox ("Supression Effectuée !!")
    DoCmd.Close acForm, "F_DateSuppression"
Else
DoCmd.Close acForm, "F_DateSuppression"
End If
End Sub

La requête appelée [R_SuppPlanning] est la suivante:

Code :

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

1
2
3
DELETE T_Planning.NumPlanning, T_Planning.DateJour, T_Planning.IdEmploye
FROM T_Planning, R_TriEmployeMagasinCourant
WHERE (((T_Planning.DateJour)<[Formulaires]![F_DateSuppression]![DateSuppression]) AND ((T_Planning.IdEmploye)=[R_TriEmployeMagasinCourant]![NumPersonnel]));

et le code de R_TriEmployeMagasinCourant:

Code :

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

1
2
3
SELECT T_Personnel.*, T_Personnel.Magasin, T_Personnel.Sortie
FROM T_MagasinCourant INNER JOIN T_Personnel ON T_MagasinCourant.Magasin = T_Personnel.Magasin
WHERE (((T_Personnel.Magasin)=[T_MagasinCourant]![Magasin]) AND ((T_Personnel.Sortie)=No));

Si je laisse [F_DateSuppression] ouvert et specifie une date dans [DateSuppression] et transforme ma requete supression en requete selection puis la lance directement, la requête sort bien les resultat escompté..

par contre si elle est en supression, j'obtiens:


et c'est l'appel de la macro qui est en jaune:


Je ne comprends pas pourquoi la même macro fonctionne en selection et pas en suppression..

Surtout que cette macro supression fonctionnait à une époque.. j'ai dû changer qqchose, je ne vois pas quoi...

[vavavoum74]

ayant essayé d'analyser l'erreur, l'aide me disait que je dois utiliser * dans la requête.
j'ai donc modifié:

Code :

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

1
2
3
DELETE T_Planning.*
FROM T_Planning, R_TriEmployeMagasinCourant
WHERE (((T_Planning.DateJour)<[Formulaires]![F_DateSuppression]![DateSuppression]) AND ((T_Planning.IdEmploye)=[R_TriEmployeMagasinCourant]![NumPersonnel]));

j'obtiens une autre erreur:


or ma base n'est pas en lecture seule certes cette table est liée... je ne vois pas ..

[vavavoum74]

la requête en mode création, si ça peut aider:

[hyperion13]

Essayez plus tôt dans ce style

Code :

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

1
2
3
4
DELETE
FROM T_Planning
WHERE (((T_Planning.DateJour)<[Formulaires]![F_DateSuppression]![DateSuppression]) AND ((T_Planning.IdEmploye)=[R_TriEmployeMagasinCourant]![NumPersonnel]))
AND IdEmploye IN (SELECT T_Personnel.* .....

[vavavoum74]

Merci pour ton interet , je suis encore débutant..

ce code je le met dans le SQL de la macro ou bien à la place de l'instruction qui appelle la macro au niveau du formulaire?

[vavavoum74]

En ayant regardé de plus près, je ne vois pas non plus ce qu'il faut mettre en ligne 4.. les 2 conditions étant indiquées dans le where de la ligne 3...

Désolé mais là je capte pas

[vavavoum74]

J'ai ajouté une relation entre la table et la requête:


en ayant parcouru le forum j'ai ajouté un distinctrow:

Code :

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

1
2
3
DELETE DISTINCTROW T_Planning.*
FROM T_Planning INNER JOIN R_TriEmployeMagasinCourant ON T_Planning.IdEmploye = R_TriEmployeMagasinCourant.NumPersonnel
WHERE (((T_Planning.DateJour)<[Formulaires]![F_DateSuppression]![DateSuppression]) AND ((T_Planning.IdEmploye)=[R_TriEmployeMagasinCourant]![NumPersonnel]));

et j'obtiens toujours une erreur:


je m'arrache les cheveux (et comme il m'en reste peu... )

[vavavoum74]

j'ai essayé de suivre la piste de Hyperion:

Code :

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

1
2
3
4
5
6
DELETE *
FROM T_Planning
WHERE (((T_Planning.DateJour)<[Formulaires]![F_DateSuppression]![DateSuppression]) AND ((T_Planning.IdEmploye)=[R_TriEmployeMagasinCourant]![NumPersonnel]))
AND IdEmploye IN (SELECT T_Personnel.*, T_Personnel.Magasin, T_Personnel.Sortie
FROM T_MagasinCourant INNER JOIN T_Personnel ON T_MagasinCourant.Magasin = T_Personnel.Magasin
WHERE (((T_Personnel.Magasin)=[T_MagasinCourant]![Magasin]) AND ((T_Personnel.Sortie)=No)););

j'obtiens encore une erreur:


et de plus je ne comprends pas pourquoi le débogage n'est plus actif...

et sur l'aide (accessible par F1) j'obtiens un magnifique: "Erreur inattendue. Veuillez contacter le Support technique Microsoft pour en savoir plus."

Gargl....

[vavavoum74]

Voici où j'en suis:

Code :

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

1
2
3
4
5
6
7
 
DELETE *
FROM T_Planning
WHERE (T_Planning.DateJour)<[Formulaires]![F_DateSuppression]![DateSuppression]
AND IdEmploye IN (SELECT  T_Personnel.Magasin
FROM T_MagasinCourant INNER JOIN T_Personnel ON T_MagasinCourant.Magasin = T_Personnel.Magasin
WHERE (((T_Personnel.Magasin)=[T_MagasinCourant]![Magasin])););

En fin de compte, ce que je veux faire c'est supprimer dans la table T_Planning les lignes où:
-le champ DateJour (situé dans la table T_Planning) est inférieur au champ Date suppression situé dans un formulaire appelé F_DateSuppression et qui est ouvert au moment de l'execution de la requête suppression.
-le champ IdEmploye (situé dans la table T_Planning) correspond au champ NumPersonnel (Situé dans la table T_Personnel ) dont le champ Magasin (situé également dans la table T_Personnel) est égal au champ Magasin (situé dans la table T_MagasinCourant qui est une table qui stocke juste une donnée ).

Et j'ai l'erreur:


Pourtant les champs Magasin situés dans les tables T_Perseonnel et T_Magasin courant sont tous les deux de type texte court..

Quelquechose m'échappe..

[vavavoum74]

Résolu grâce à User dans ce fil

je met resolu ici aussi