Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Filtrer sur une date

Filtrer sur une date

2 réponses
Avatar
Cyrille
Bonjour

j'utilise ce code sur un événement afterupdate sur un champs date

Dim strFiltre As String
strFiltre = ""

'Filtre sur Date d'échéance
If Not IsNull(Me.Echeance) Then
If strFiltre <> "" Then strFiltre = strFiltre & " AND "
strFiltre = strFiltre & "([DateEcheance]=#" & Me.Echeance & "#)"
End If

'affichage dans formulaire
Me.Filter = strFiltre
Me.FilterOn = True


mais le filtre ne fonction pas sur une date.
Je n'arrive pas à trouver l'erreur.
Pouvez vous m'aider??

Merci d'avance
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jessy Sempere [MVP]
Bonjour

Il y a de fortes chances que le problème vienne du format de ta date
qui doit être en français alors que dans le code, il faut un format
anglais...
Essais peut-être :
strFiltre = strFiltre & "([DateEcheance]=#" &
format(Me.Echeance,"mm/dd/yyyy" & "#)"

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"Cyrille" a écrit dans le message de
news:
Bonjour

j'utilise ce code sur un événement afterupdate sur un champs date

Dim strFiltre As String
strFiltre = ""

'Filtre sur Date d'échéance
If Not IsNull(Me.Echeance) Then
If strFiltre <> "" Then strFiltre = strFiltre & " AND "
strFiltre = strFiltre & "([DateEcheance]=#" & Me.Echeance & "#)"
End If

'affichage dans formulaire
Me.Filter = strFiltre
Me.FilterOn = True


mais le filtre ne fonction pas sur une date.
Je n'arrive pas à trouver l'erreur.
Pouvez vous m'aider??

Merci d'avance


Avatar
Cyrille
merci beaucoup, effectivement le problème venait bien du format de date
le code est donc pour ceux qui en ont besoin :

Dim strFiltre As String
strFiltre = ""
'Filtre sur Date d'échéance
If Not IsNull(Me.Echeance) Then
If strFiltre <> "" Then strFiltre = strFiltre & " AND "
strFiltre = strFiltre & "([DateEcheance]=#" & Format(Me.Echeance,
"mm/dd/yyyy") & "#)"
End If

'affichage dans formulaire
Me.Filter = strFiltre
Me.FilterOn = True


encore merci pour tout



Bonjour

Il y a de fortes chances que le problème vienne du format de ta date
qui doit être en français alors que dans le code, il faut un format
anglais...
Essais peut-être :
strFiltre = strFiltre & "([DateEcheance]=#" &
format(Me.Echeance,"mm/dd/yyyy" & "#)"

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"Cyrille" a écrit dans le message de
news:
Bonjour

j'utilise ce code sur un événement afterupdate sur un champs date

Dim strFiltre As String
strFiltre = ""

'Filtre sur Date d'échéance
If Not IsNull(Me.Echeance) Then
If strFiltre <> "" Then strFiltre = strFiltre & " AND "
strFiltre = strFiltre & "([DateEcheance]=#" & Me.Echeance & "#)"
End If

'affichage dans formulaire
Me.Filter = strFiltre
Me.FilterOn = True


mais le filtre ne fonction pas sur une date.
Je n'arrive pas à trouver l'erreur.
Pouvez vous m'aider??

Merci d'avance