Discussion :

[CHARLI BONGO]

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 :

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

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

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

Code :

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

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

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

D'avance merci

[f-leb]

bonsoir,

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

un exemple ici.

[Thierry_PALLIER]

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

Code :

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

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 :

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

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+