Discussion :

[All4fun]

Bonjour
J ai un formulaire listant des employés et un sous formulaire base sur une requête listant les heures effectuées chaque jour pour chaque employé et calculant le nombre d heures effectuées
Je voudrait filtrer ce sous formulaire pour éditer un état en sélectionnant la date de début et de fin de période
Dans le formulaire j ai créé 2 zone texte dans lesquelles j entre les dates début et fin
[date debut] et [ date fin]
J ai affecté a chacune une variable ( dated et datef)
[date de saisie] est le champ du sous formulaire sur lequel appliquer le filtre
Ne sachant pas écrire le code vba avec deux dates j ai d abord essayé avec une seule date
Filtrer le sous formulaire pour ne faire apparaître que les enregistrements supérieur ou égal a "dated" mais ça ne fonctionne pas

Code :

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

1
2
3
4
5
Dim. dated as date
Dim. datef as date
dated=me.[date debut]
Me.[Sfrm saisie des heures].form.filter="[Date de saisie]>="# & dated & "#"
Me.[Sfrm saisie des heures].form.filteron=True

Si quelqu'un pouvez me dire ce qui cloche et comment écrire le bon code pour filtrer les enregistrement entre les deux dates et ainsi que le code pour que l état corresponde au filtre
Merci d avance

[jimbolion]

All4fun bonjour,

oui ton code a l'air cohérent malgré le fait que l'utilisation de variables ne semble pas nécessaire :

Code :

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

1
2
3
Me.[Sfrm saisie des heures].Form.Filter = "[Date de saisie] BETWEEN #" & me.[date debut] & "# AND #" & me.[date fin] & "#"
Me.[Sfrm saisie des heures].Form.FilterOn = True
ME.[Sfrm saisie des heures].requery

Reste à savoir ou tu as branché ce code (quel événement le déclenche t'il et est-il vraiment déclenché ?). L'extrait du code ne me permet pas de voir...

JimBolion

[madefemere]

Bonjour,

En complément de ce que dit Jean-Marie , je pense que pour éviter toute ambiguïté, il faut mettre tes "variables" dates au format US.
Du genre :

Code :

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

1
2
3
Me.[Sfrm saisie des heures].Form.Filter = "[Date de saisie] BETWEEN #" & Format(me.[date debut],'yyyy/mm/dd') & "# AND #" & Format(me.[date fin],'yyyy/mm/dd') & "#"
Me.[Sfrm saisie des heures].Form.FilterOn = True
ME.[Sfrm saisie des heures].requery

Bonne continuation

[jimbolion]

Mandresy re-

logiquement si la date est issue d'un contrôle du formulaire, implicitement elle est au format us me semble t-il ! Mais tu as 1000 fois raison, en passant le format us dans la date on enlève toute ambiguïté

jm

[All4fun]

Merci pour vos réponses

Mon code est place sur un bouton qui déclenche le code

J avais place des MSG box pour savoir si les dates étaient bien au bon format et c était le cas

J ai réécrit le code comme vous me l'avez défini mais ça ne marche tjrs pas

J ai trouve une solution avec une macro et ça marche
Mais quand je transforme la macro en code vba ça ne marche plu

Je n y comprend rien??!!!!xx!!
Ça me rends dingue

[madefemere]

Bonsoir,

Là, il faudrait regarder la bête de plus près. Est-ce que tu peux poster ta base sans "données sensibles" et zipper stp pour qu'on y jette un oeil.

Cordialement,

[All4fun]

Bonjour,

Je veux bien envoyer ma base de donnée mais j avoue franchement être un ignare en ce domaine ! Mdr

Indiquez moi la marche a suivre s il vous plait


Surtout que la je suis sur tablette et non pas sur l ordi

Encore merci d avance pour votre aide