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