requete avec un champs date

Le
Yogui
Bonjour,
dans un formulaire j'utilise un champs texte pour faire des recherches dans
un query. je veux utiliser le meme champs pour faire des recherches de date
ou de texte

cela fonctionne quand j'utilise du texte, mais je ne trouve pas comment
faire avec une date. mon probleme se trouve au case 9

merci de votre aide, je ne vois pas comment je peux régler ce problème
*******************
Private Sub Command50_Click()
Dim REQ1, REQ2, REQ3, REQ4, REQ5
Dim MYDATE As Date
Select Case Combo6
Case 1
REQ3 = "WHERE (((table_commande.container) Like '*" &
[Form]![CHERCHE_TEXTE] & "*')) "
Case 2
REQ3 = "WHERE (((table_commande.[REFERENCE NUMBER]) Like '*" &
[Form]![CHERCHE_TEXTE] & "*')) "

Case 3
REQ3 = "WHERE (((table_commande.DESCRIPTION) Like '*" &
[Form]![CHERCHE_TEXTE] & "*')) "

Case 4
REQ3 = "WHERE (((table_commande.[MEMO-INSTRUCTION]) Like '*" &
[Form]![CHERCHE_TEXTE] & "*')) "

Case 9
MYDATE = DateValue(CHERCHE_TEXTE)
REQ3 = "WHERE (((table_commande.[JOB DATE])< '*" & MYDATE & "*')) "


End Select

REQ1 = "SELECT TABLE_COMMANDE.* "
REQ2 = "FROM table_commande "
REQ4 = "ORDER BY TABLE_COMMANDE.[DATE-COMMANDE-RECU] DESC;"
REQ5 = REQ1 + REQ2 + REQ3 + REQ4
Me.RecordSource = REQ5

End Sub
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
yop75
Le #6149981
=?Utf-8?B?WW9ndWk=?= news::

Bonjour,
dans un formulaire j'utilise un champs texte pour faire des recherches
dans un query. je veux utiliser le meme champs pour faire des
recherches de date ou de texte

cela fonctionne quand j'utilise du texte, mais je ne trouve pas
comment faire avec une date. mon probleme se trouve au case 9

merci de votre aide, je ne vois pas comment je peux régler ce
problème *******************
Private Sub Command50_Click()
Dim REQ1, REQ2, REQ3, REQ4, REQ5
Dim MYDATE As Date
Select Case Combo6
Case 1
REQ3 = "WHERE (((table_commande.container) Like '*" &
[Form]![CHERCHE_TEXTE] & "*')) "
Case 2
REQ3 = "WHERE (((table_commande.[REFERENCE NUMBER]) Like '*" &
[Form]![CHERCHE_TEXTE] & "*')) "

Case 3
REQ3 = "WHERE (((table_commande.DESCRIPTION) Like '*" &
[Form]![CHERCHE_TEXTE] & "*')) "

Case 4
REQ3 = "WHERE (((table_commande.[MEMO-INSTRUCTION]) Like '*" &
[Form]![CHERCHE_TEXTE] & "*')) "

Case 9
MYDATE = DateValue(CHERCHE_TEXTE)
REQ3 = "WHERE (((table_commande.[JOB DATE])< '*" & MYDATE & "*'))
"


End Select

REQ1 = "SELECT TABLE_COMMANDE.* "
REQ2 = "FROM table_commande "
REQ4 = "ORDER BY TABLE_COMMANDE.[DATE-COMMANDE-RECU] DESC;"
REQ5 = REQ1 + REQ2 + REQ3 + REQ4
Me.RecordSource = REQ5

End Sub




Peut être tout bètement le format de saisie est il la source du problème
: As tu essayé "jj/mm/aaaa" ?

Eric
Le #6149971
Bonjour,

Essaies:

MyDate=Format(DateValue(CHERCHE_TEXTE),"#mm/dd/yyyy#")
REQ3 = "WHERE table_commande.[JOB DATE]<" & MYDATE

PS: pour RQ5 il est préférable d'utiliser l'opérateur &
REQ5 = REQ1 & REQ2 & REQ3 & REQ4

...
cela fonctionne quand j'utilise du texte, mais je ne trouve pas comment
faire avec une date. mon probleme se trouve au case 9

Case 9
MYDATE = DateValue(CHERCHE_TEXTE)
REQ3 = "WHERE (((table_commande.[JOB DATE])< '*" & MYDATE & "*')) "


End Select

REQ1 = "SELECT TABLE_COMMANDE.* "
REQ2 = "FROM table_commande "
REQ4 = "ORDER BY TABLE_COMMANDE.[DATE-COMMANDE-RECU] DESC;"
REQ5 = REQ1 + REQ2 + REQ3 + REQ4
Me.RecordSource = REQ5

End Sub



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Publicité
Poster une réponse
Anonyme