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...