Discussion :

[davleo]

Bonjour à tous,
J'ai un table avec plusieurs champs dont un champs Date/heure (Entrée le).
je tente de faire une requête avec un recherche par date, J'ai donc fait un contrôle TextBox au format Date (MaDate).
Dans ma requête dans critère dans le champs (Entrée le) j'ai indiqué [MaDate] mais voila peu importe la date rien n'apparaît, j'ai finalement trouvé qu'il recherche la date et heure exact .
Donc comment faire pour que la requête prenne en compte seulement la date et ne tienne pas compte de l'heure.
Merci d'avance

[marot_r]

Bonjour.

Tu peux le faire de plusieurs façons :

1. Supprime l'heure de la date par calcul d'une nouvelle date
   

   Code :

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

   DateSerial(year([TaTable].[TonChampDate]); month([TaTable].[TonChampDate]); Day([TaTable].[TonChampDate])) = [TaDateCherchee]

2. Comparaison texte entre 2 dates formatées de la même façon
   

   Code :

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

   Format([TaTable].[TonChampDate]; "aaaa\-mm\-jj") = format([TaDateCherchee]; "aaaa\-mm\-jj")

3. Supprime la partie heure de la date. Les dates sont stockées comme des réels où la partie entière indique le nombre de jours depuis une date de référence et la partie décimales le nombre de centièmes de seconde depuis 00:00:00.
   

   Code :

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

   int([TaTable].[TonChampDate])= int([TaDateCherchee])

4. Ajoute un intervalle d'heures au critères
   

   Code :

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

   [TaTable].[TonChampDate] between [TaDateCherche] and [TaDateCherche]+timeserial(23; 59; 59)

5. Trouve le lendemain
   

   Code :

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

   [TaTable].[TonChampDate] >= [TaDateCherche]

   et

   Code :

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

   [TaTable].[TonChampDate] < DateAdd("j"; 1; [TaDateCherche])

Ma préférée est la solution 1.

A+

[davleo]

Ok j'ai juste pour être sur je met bien cela dans mon WHERE dans ma requete pas dans mon code VBA? car cela ne fonctionne pas pour toutes les méthodes.
Merci

Code :

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

1
2
3
SELECT DT_Historique.EmployeeName, DT_Historique.EmployeeLocation, DT_Historique.TimeIN
FROM DT_Historique
WHERE Format(DT_Historique.TimeIN; "aaaa\-mm\-jj") = format([Madate]; "aaaa\-mm\-jj");

[davleo]

Merci Marot_r j'ai finalement compris que ton code était en access pour le SQL je devais passer en mode anglais et donc remplacer les ; par des , et la date de aaaa-mm-jj à yyyy-mm-dd
Le tout fonctionne donc encore merci, voici le code pour ceux qui auraient le même problème

Code sql :

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

1
2
3
SELECT DT_Historique.EmployeeName, DT_Historique.EmployeeLocation, DT_Historique.TimeIN
FROM DT_Historique
WHERE (Format(DT_Historique.TimeIN, 'yyyy-mm-dd') = Format([Madate], 'yyyy-mm-dd'));

[marot_r]

Pour info, si on tape dans l'éditeur de requête (mais pas en SQL) il faut le taper en français avec les séparateurs ";" et Access fait la traduction en anglais pour le SQL.

A+