Filtre VBA, problemme avec double quote

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:

---

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

Salut !!

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

Code:

---

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

---

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

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

Code:

---

[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.

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

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

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

Code:

---

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:

---

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

---

je comprend vraiment pas ce qui se passe

j'ai réussi en faisant

Code:

---

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

---

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

[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:

---

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

---

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

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

Gros merci à vous 2

Bonne journée