Discussion :

[choubak]

Bonjour,

J'applique un filtre a un etat via du code VBA, j'ai une variable Filtre en string et je lui donne ma chaine de caractere,

Probleme, j'ai un filtre avec une date et je dois appliquer la fonction format sur la date mais comment puis je faire pour gerer les doubles quotes.

Code :

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

Filtre = " [" & LstChoixChamps & "] = " & LstChoixValeur & " and [Date] <= " & Format(Date, "dd/mm/yyyy") & ""

Lorsque mon filtre va s'appliquer il faut que Date et le format soit encadrer de double quote mais VBA pense que c'est des delimiteurs de chaines

Comment faire?

Si vous avez une idée merci de me répondre

[Janny]

Salut !!

il faut que tu encadres ta date avec des dièzes :

Code :

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

Filtre = " [" & LstChoixChamps & "] = " & LstChoixValeur & " and [Date] <= #" & Format(Date, "dd/mm/yyyy") & "#"

[choubak]

Non j'ai déja essayer, ça ne marche pas

pour que ça filtre, Access doit voire la chaine comme ceci

Code :

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

[Date] >= Format("12/06/2007", "jj/mm/aaaa")

Si on met pas les double quote,ça ne marche pas. Mais VBA veut pas inclure les " dans ma chaine.

Je pense qu'il y a un caractere à placer avant les " pour qu'il les prnnent comme un caractere quelconque.

[Invité]

Bonjour

Est-ce que [Date] est un nom de champs, si c'est le cas essaye avec un autre nom, il se peut qu'Access n'aime pas, c'est un mot réservé.

Et est-ce que ce champ est bien au format date ?

Starec

[choubak]

J'ai changer le nom de mon champ et de ma variable

Quand je met ça, j'obtient rien du tout (état vide)

Code :

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

Filtre = " [" & LstChoixChamps & "] LIKE ""*" & LstChoixValeur & "*"" and [DateMouv] >= #" & Format(Date_mouvement, "dd/mm/yyyy") & "#"

et quand je met ça, j'obtient un état filtrer mais pas avec les dates

Code :

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

Filtre = " [" & LstChoixChamps & "] LIKE ""*" & LstChoixValeur & "*"" and [DateMouv] >= " & Format(Date_mouvement, "dd/mm/yyyy") & ""

je comprend vraiment pas ce qui se passe

[choubak]

j'ai réussi en faisant

Code :

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

Filtre = " [" & LstChoixChamps & "] LIKE ""*" & LstChoixValeur & "*"" and [DateMouv] >= " & CLng(Me.Date_mouvement) & ""

si quelqu'un peut m'expliquer?
ce serait sympa

[Janny]

[DateMouv] est bien au même format que dd/mm/yyyy ???

Je sais qu'access n'aime pas les date en français, il faut les mettre au format anglais et quand il compare avec ta base (où les dates sont ezn français) il fait la conversion tous seul, le problème vient peut être de là alors essaye :

Code :

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

Filtre = " [" & LstChoixChamps & "] LIKE ""*" & LstChoixValeur & "*"" and [DateMouv] >= #" & Format(Date_mouvement, "mm/dd/yyyy") & "#"

[choubak]

Bien vu janny, ça marche avec ta méthode.

Je suis un perdue, j'ai déjà eu se problème en plus

Gros merci à vous 2

Bonne journée