Passer en paramètre une date dans une réquète en VBA

Salut à tous . s'il vous plait , comment passe t-on en paramètre une date dans une réquète en VBA.

Zone de texte : date_saisie

passage de paramètre

EXEMPLE

Code:

---

sql = sql & " WHERE table_commande.date_commande < date_saisie "

---

Si c'etait du texte , on aurait écrit :

Code:

---

sql = sql & " WHERE table_commande.date_commande < ' " & date_saisie & "' "

---

Dans le cas d'une date comment peut-on écrit ce code

D'avance merci

bonsoir,

un peu de lecture:
Quel format de date utiliser pour les requêtes, les calculs VBA, ...

un exemple ici.

Bonjour
User a fait une fonction très pratique qui renvoie la date au format américain ,avec les # :

Code:

---

1 2 3

Public Function FDateUs(d As Date) As String FDateUs = Chr(35) & CDate(Format(d, "mm/dd/yyyy")) & Chr(35) ' Date format us End Function

---

Et dans ta procédure:

Code:

---

1 2 3

Dim depart As String depart = FDateUs(Forms!MonFormulaire!depart) sql = sql & " WHERE table_commande.date_commande < " & depart & "

---

Je viens de voir que la discution était résolue, mais cette fonction est tellement pratique !
A+