Discussion :

[philoeil]

Bonjour,

Je cherche à utiliser la valeur d'un champ contenant une date (Eti_MemoDateDeb) d'un formulaire dans une requête.

Mon formulaire contient une date (Eti_MemoDateDeb) au format Français DD/MM/AAAA

Ma requête filtre un champ (T_Jour.Date)
exemple ((T_Jour.Date)>#12/31/2012#))

l'action suivante ne marche pas correctement sans doute du au format Français de mon champs date de mon formulaire
WHERE (((T_Jour.Date)>[Formulaires]![F_tableauDeBordPhil]![Eti_MemoDateDeb]))

comment traiter la date de mon formulaire pour l'insérer dans le critère de ma requête ?

Merci

[madefemere]

Bonjour,

Il faut mettre au format US avec la fonction Format (du genre) :

Code :

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

WHERE (((T_Jour.Date)>Format ([Formulaires]![F_tableauDeBordPhil]![Eti_MemoDateDeb];"mm/dd/yyyy")))

Attention au séparateur utilisé dans la fonction qui dépend du contexte (, ou ; selon).

Cordialement,

[philoeil]

Bonjour,

Il faut mettre au format US avec la fonction Format (du genre) :

Code :

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

WHERE (((T_Jour.Date)>Format ([Formulaires]![F_tableauDeBordPhil]![Eti_MemoDateDeb];"mm/dd/yyyy")))

Attention au séparateur utilisé dans la fonction qui dépend du contexte (, ou ; selon).

Cordialement,

Merci de votre aide mais quand je tape ce code Access transforme en
>Format([Formulaires]![F_tableauDeBordPhil]![Eti_MemoDateDeb];"mm/""dd""/""yyyy""")
puis à l'exécution erreur "cette syntaxe présente une expression trop complexe ou incorrect etc ..."

Comment entrer la syntaxe de ce code ?

merci

Par défaut la moins mauvaise solution que j'ai trouvé est la suivante :
dans mon formulaire j'ai rajouté une étiquette que j'ai nommé Eti2_DateUs

J'ai placé un évènement Après MAJ (qui convertit la date Fr en date US

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Txt_DateDeb_AfterUpdate()
Dim valfic As String
Dim dateUSvalfic As String
'Stop
  valfic = Me.Txt_DateDeb
    If valfic <> "" Then
    'conversion date francaise en date anglaise pour la req sql
  dateUSvalfic = Month(valfic) & "/" & Day(valfic) & "/" & Year(valfic)
Eti2_DateUs.Caption = dateUSvalfic
End If
End Sub

Puis dans ma requête j'ai insérer un critère qui filtre mon champs date :
>[Formulaires]![F_tableauDeBordPhil]![Eti2_DateUS].[caption]


Pour ma culture j'aurai bien aimé comprendre comment utiliser la fonction FORMAT

Code :

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

WHERE (((T_Jour.Date)>Format ([Formulaires]![F_tableauDeBordPhil]![Eti_MemoDateDeb];"mm/dd/yyyy")))

Merci à tous

[jimbolion]

philoeil

Dans une requête passée dans le VBA :

Code :

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

WHERE (((T_Jour.Date)>Format ([Formulaires]![F_tableauDeBordPhil]![Eti_MemoDateDeb];"mm/dd/yyyy")))

dans une requête stockée (eh oui une ineptie d'Access) sous cette forme :

Code :

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

WHERE (((T_Jour.Date)>Format ([Formulaires]![F_tableauDeBordPhil]![Eti_MemoDateDeb];"mm/jj/aaaa")))

JimboLion

[philoeil]

philoeil

Dans une requête passée dans le VBA :

Code :

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

WHERE (((T_Jour.Date)>Format ([Formulaires]![F_tableauDeBordPhil]![Eti_MemoDateDeb];"mm/dd/yyyy")))

dans une requête stockée (eh oui une ineptie d'Access) sous cette forme :

Code :

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

WHERE (((T_Jour.Date)>Format ([Formulaires]![F_tableauDeBordPhil]![Eti_MemoDateDeb];"mm/jj/aaaa")))

JimboLion

SUPER INFO !

MERCI MERCI

Impeccable !!!