Discussion :

[GRIMPMASTER]

Bonjour,
je suis face a un problème que je n'arrive pas à résoudre sur une requête de tri de données ,voici la requête:

Code :

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

Ts2.Open "select * from RPT where [tbl1] like '" & Combo4.Text & "' and [tbl2]  between  #" & Format(Dte1.VALUE, "mm/dd/yyyy") & "#" & " and  #" & Format(Dte2.VALUE, "mm/dd/yyyy") & "#", Tn, 0, 2

je veux que le cycle du 24heures soit du 08H00 de :dte1 à 08H00 de dte2.
Merci d'avance de votre aide.

[ProgElecT]

Salut

Si le contenu de ta colonne tbl2 est du style date et heure (31/01/2016 08:00:00)
Un exemple avec des variables Date

Code :

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

1
2
3
4
5
Dim DateDebut As Date, Dte1 As Date, Dte2 As Date
DateDebut = Format("31/01/2016", "mm/dd/yyyy")
Dte1 = DateDebut & " " & "08:00:00"
Dte2 = DateAdd("d", 1, DateDebut) & " " & "08:00:00"
Text1.Text = Dte1 & vbCrLf & Dte2

Pour toi tu pourrais essayer cela

Code :

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

1
2
3
4
5
6
Dim DateDebut As Date, Dte1 As Date, Dte2 As Date
DateDebut = Format(Dte1.Value, "mm/dd/yyyy")
Dte1 = DateDebut & " " & "08:00:00"
Dte2 = DateAdd("d", 1, DateDebut) & " " & "08:00:00" ' ajout d'un jour soit 24 heures
Ts2.Open "select * from RPT where [tbl1] like '" & Combo4.Text & _
        "' and [tbl2]  between #" & Dte1 & "#" & " and #" & Dte2 & "#", Tn, 0, 2

Du coup ton Dte2.VALUE (DTPicker ou MonthView) n'est pas nécessaire.