Curieux comportement d'un filtre [Résolu]

[Francesco34]

Bonsoir,

Je viens vers vous car je bute depuis le début de l'après-midi sur le filtrage d'un sous-formulaire.
Mon formulaire affiche dans le champ DateD le 1er jour de la semaine choisie. J'ai alors un premier sous-formulaire comprenant notamment 7 colonnes dont les en-têtes affiche dynamiquement les dates de chaque jour de la semaine. Les habitués auront reconnu le planning hebdomadaire disponible sur ce site.
J'ai également un second sous-formulaire, sans lien avec le formulaire principal, qui a pour but de rappeler l'ensemble des commandes passées pour un jour donné. Voici cette requête :

Code :

1
2
3
SELECT COMMANDES.IdCommande, CLIENTS.NomClient, VILLES.NomVille, THEMES.NomTheme, COSTUMES.NomCostume, COMMANDES.ArtisteNecessaire, COMMANDES.EstAssigne, COMMANDES.DateAnimation
FROM COSTUMES INNER JOIN ((((COMMANDES INNER JOIN CLIENTS ON COMMANDES.IdClient = CLIENTS.IdClient) INNER JOIN VILLES ON CLIENTS.IdVille = VILLES.IdVille) INNER JOIN THEMES ON COMMANDES.IdTheme = THEMES.IdTheme) INNER JOIN CDE_COSTUMES ON COMMANDES.IdCommande = CDE_COSTUMES.IdCommande) ON COSTUMES.IdCostume = CDE_COSTUMES.IdCostume
ORDER BY COMMANDES.EstAssigne;

Le but étant qu'en cliquant sur un jour de la semaine en en-tête du premier sous-formulaire, la liste des commandes de ce jour s'affiche dans le second. Voici le code utilisé sur chacune de ces en-têtes :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Jour7_Click()
 
    Dim DateAnim As Date
 
    DateAnim = Forms("F_Planning_Travail").Form.DateD.Value + 6
 
    Forms("F_Planning_Travail").Form.CommandesDuJour.Visible = True
    Forms("F_Planning_Travail").Form.CommandesDuJour = "Commandes du " & Format(DateAnim, "dddd dd mmmm")
    Forms("F_Planning_Travail")("SF_Liste_Commande_reduite").Form.Visible = False
    Forms("F_Planning_Travail")("SF_Liste_Commande_reduite").Form.FilterOn = False
    Forms("F_Planning_Travail")("SF_Liste_Commande_reduite").Form.Filter = "DateAnimation = #" & DateAnim & "#"
    Forms("F_Planning_Travail")("SF_Liste_Commande_reduite").Form.FilterOn = True
    Forms("F_Planning_Travail")("SF_Liste_Commande_reduite").Form.Visible = True
 
End Sub

Tout ceci fonctionne très bien... le 18 juin. Ce jour-là, les commandes enregistrées apparaissent normalement. Pour tous les autres jours, ma liste reste désespérément vide bien que des commandes soient enregistrées et je ne parviens pas à comprendre pourquoi. Si quelqu'un a une piste...

[loufab]

Bonjour,

C'est peut-être à cause de l'Appel.

Plus sérieusement :

Vérifie si tu ne tombe pas dans le panneau du format de date.

En VBA toutes les dates sont au format US.

Ceci explique peut-être cela.

[TROLL]
Quelle chance ne pouvoir travailler qu'un jour par an.
[/TROLL]

Cordialement,

[Francesco34]

Merci de ta réponse et de ton humour, ça fait du bien entre deux arrachage de touffes de cheveux...

J'avais bien vérifié les dates et elles étaient au format US. Qui plus est, sauf erreur de ma part, le filtre aurait plutôt fonctionné pour le 6 juin que pour le 18, je me trompe ?

En faisant différents essais, j'ai pu constater que ce formulaire se figeait dès que je faisais appel au à mes fonctions JOURX_Click(). Du coup, j'ai effacer ce formulaire et la requête liée et j'ai tout recommencer... et ça marche

Une fois de plus, la magie du Microsoft qui tombe en marche.

[loufab]

Ce problème arrive très rarement, heureusement. Surtout lorsqu'on tatone.

Dans ce cas on peut tenter une décompilation, en prenant de grande précaution cependant. A savoir : Toujours sauvegarder la base avant une décompilation.

Tu as un article sur mon blog concernant la décompil.

Cordialement,