Discussion :

[boldair67]

Bonjour le forum,

J'ai beau chercher, je ne trouve pas la solution à mon problème.
J'aimerai filtrer un sous-formulaire qui est rempli par une requête. Le filtre porte sur des dates du style "du" "au" 01.01.2017. ou 31.01.2017
J'ai essayé toutes version possible et inimaginable.
Avec le critère "des dates" dans des variables, direct avec les valeurs du formulaire etc... Sans succés

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim datedebut   As Date
Dim datefin     As Date
datedebut = Me.feldDvon.Value 'champdate à partir
datefin = Me.feldDbiss.Value 'champ date jusquà
'Me.UF_monatsAB 'C'est le sous formulaire à filtrer
'aufbaumonatsAB 'C'est la requete qui rempli le sous formulaire
'CreationDate ' le champ qui contient la date de création
 
'-----------
'Les différentes version testée
 
'Me.UF_monatsAB.Form.Filter = "[aufbaumonatsAB].[CreationDate] Between #" & Format(Me.feldDvon, "DD/MM/YYYY") & "# And #" & Format(Me.feldDbiss, "DD/MM/YYYY") & "# "
'Me.UF_monatsAB.Form.Filter = "[aufbaumonatsAB].[CreationDate] Between #" & Format(Me.feldDvon, "MM/DD/YYYY") & "# And #" & Format(Me.feldDbiss, "MM/DD/YYYY") & "# "
'Me.UF_monatsAB.Form.Filter = "aufbaumonatsAB.[CreationDate] Between " & datedebut & " And " & datefin & " "
Me.UF_monatsAB.Form.Filter = "aufbaumonatsAB.[CreationDate] Between #" & datedebut & "# And #" & datefin & "# "
Me.UF_monatsAB.Form.FilterOn = True
Me.UF_monatsAB.Requery

Quelqu'un a une piste ou idée de ce qui cloche ?
Merci

[Jean-Philippe André]

Salut;

le format de date en SQL sous Access est le suivant : #MM/JJ/AAAA#

Essaie avec

Code :

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

1
2
Me.UF_monatsAB.Form.Filter = "aufbaumonatsAB.[CreationDate] Between #" & format(datedebut,"MM/dd/yyyy") & "# And #" & format(datefin,"MM/dd/yyyy") & "# "
Me.UF_monatsAB.Form.FilterOn = True

[boldair67]

Merci pour la contribution, malheureusement ca coince toujours au même endroit.
Ci-dessous le debug.print. Il a l'air correcte

Code :

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

aufbaumonatsAB.[CreationDate] Between #01.01.2017# And #02.08.2017#

Du 01.01.2017 au 08.02.2017 en format France

[Invité]

Bonjour

Dans ton titre tu mets Erreur de Syntaxe.

Est-ce que le champ de ta table est bien au format Date ?
Car les différentes manières d'écrire une date ne donne pas en général une erreur de syntaxe, mais une erreur d'interprétation de la date.

Philippe

[boldair67]

A Phillipe,
Oui je penses que c'est un format date, meme sur car dans la table il y a heure, minute, seconde.
Si je mets les conditions identiques dans la requete en question Style "Entre #01.01.2017# et #08.02.2017# le filtre fonctionne.
Le sous-formulaire est basée sur une requete, à titre info.
La procédure de filtrage sur un Bouton "Evenement click - fait ceci" et non sur un champ style "Afterupdate, change etc..."

L'autre question qui me chiffone, dans ma requete (résultat affiché dans le sous-formulaire", il y a une fonction sur deux champs.
Type recherche de fichier dans un repetoire
Cela n'a peut etre rien à voir, on sait jamais. Plus il y a d'infos mieux c'est ...

[Invité]

Re

Au fait tu nous a pas dit quel est le message d'erreur ?

Philippe

[boldair67]

Erreur 3075
Dans les grandes lignes. Erreur de syntax dans Datum (date) dans la formulation de la requete

[tee_grandbois]

Bonjour,
j'ai reproduit l'erreur en changeant mes paramètres Windows pour avoir la date avec le format jj.mm.aaaa. Il semblerait que le souci vienne des # délimitant les dates
. Par contre, cela passe quand on met des " comme le montre l'image jointe : l'erreur se produit sur la ligne contenant les # :

[Invité]

Re

Si cela marche avec des " c'est que le champ de la table est un champ de type texte et non date, ce que je suggérais plus haut.

Philippe

[boldair67]

Merci pour vos contributions.
J'ai du mal à suivre.
Dans la requete de base, si je mets

Zwischen = Entre // Und = ET
Voici le SQL

Code :

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

WHERE (((dbo_tblInvoiceRecording.CreationDate) Between #2/1/2017# And #2/8/2017#));

Tout fonctionne

Je fais la même chose dans mon sous formulaire <=== ca ne fonctionne pas

Code :

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

Me.UF_monatsAB.Form.Filter = "aufbaumonatsAB.[CreationDate] Between #" & Format(datedebut, "MM/dd/yyyy") & "# And #" & Format(datefin, "MM/dd/yyyy") & "# "

la seule différence que je vois, c'est que dans mon SQL de la requete, CreationDate est de la table. Et que dans mon sous-formulaire CreationDate est basé sur la requete

Je comprends plus rien !!!

[tee_grandbois]

Re

Si cela marche avec des " c'est que le champ de la table est un champ de type texte et non date, ce que je suggérais plus haut.

Philippe

Bonjour Philippe,
non je confirme que j'ai fait le test avec des vraies dates. j'ai simplement changé le format de la date dans les paramètres Windows et j'ai créé un code en prenant compte le nouveau format et là il me provoque l'erreur 3075.
S'agirait'il d'un bug ou simplement que ce format ne fonctionne pas en VBA en tant que date ?
@ boldair67 : peux-tu nous confirmer que tu as ce format jj.mm.aaaa dans les paramètres Windows ?

[boldair67]

@tee_grandbois : Comment faire la vérification dans windows ?

[boldair67]

OOOOUUUUFFFF, ca marche. Voila ce que j'ai changé dans le code

Code :

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

Me.UF_monatsAB.Form.Filter = "aufbaumonatsAB.CreationDate Between #" & Format(datedebut, "mm dd yyyy") & "# And #" & Format(datefin, "mm dd yyyy") & "# "

Incroyable ...

Merci pour votre aide
Je clos