Discussion :

[zzoohh]

Bonjour,

Je suis en train de developper une application et j'ai besoin d'aide pour une requete de date:
Je m'explique
Dans ma base access il a des données et je veux requeter un champs date + heure.

Code :

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

1
2
3
4
5
6
7
8
9
10
  'si date et horaire saisis

    ElseIf DateSelect <> "" And PlageHeure <> 0 And Recherche = "" Or Recherche = "Mot(s) recherché(s)" Then

        req = "SELECT Mail.Groupe, Mail.Expediteur, Mail.Destinataire, Mail.Sujet, Mail.DateHeure, Mail.NomPieceJointe FROM Mail " & _

              "WHERE (Mail.DateHeure >= #" & Format(DateSelect & " " & PlageHeure, "dd/mm/yyyy hh:n:s") & "#) " & _

              "AND (Mail.DateHeure < #" & Format(DateSelect + 1, "c") & "#);"

J'ai une autre requete qui fais la meme chose sans l'heure et tout va trés bien mais des que je saisi l'heure ça ne fonctionne pas

Quelqu'un a une idée ?
Merci.

[ProgElecT]

Non verifié, mais essai en passant une variable

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim MeDateHeure As Date
Dim req As String
 
' ******* sa j'en suis sûr **********
MeDateHeure = Now
MeDateHeure = DateAdd("h", 1, MeDateHeure) 'ajout d'une heure
MeDateHeure = DateAdd("d", 1, MeDateHeure) 'ajout de 1 jour
'*****************************
 
'A essayé
req = "SELECT Mail.Groupe, Mail.Expediteur, Mail.Destinataire, Mail.Sujet, Mail.DateHeure, Mail.NomPieceJointe FROM Mail " & _
"WHERE Mail.DateHeure >= #" & MeDateHeure & "#;"

[zzoohh]

Merci pour ton code, il fonctionne

Bonne journée