SQL critère heure + 2 heures ?

Version imprimable

01/10/2005, 10h13
samlepiratepaddy

SQL critère heure + 2 heures ?

Slt,
Mon problème est le suivant !
J'ai dans ma T_RendezVous
un champ Date (format Date, abrégé, masque saisie 00/00/00;0; )
Un champ Heure (Format Heure, abrégé, masque saisie 00:00;0;_)

Je veux batir une requete qui retrace les enregistrements correspondant à un date récupérée dans le formulaire qui sont entre l'heure correspondante a cette enregistrement les deux heures suivantes !

Mon problème est que j'ai chercher via une requte avec l'interface sur le champ heure mais surprise, quand je le transforme l'heure en jour d'avoir

Code:

Format$([T_RendezVous].[HeureRendezVous],'Long Date')

Citation:

Samedi 30 Décembre 1899

Hargthhhhhhhhh!
Comment vais-je faire pour faire comprendre a cette requete que je veux les enregistrements du jour de la DateRendezVous qui sont Entre HeureRendezVous et HeureRendezVous +2 !!!!
La date ne correspond pas !
Je comprend pourquoi car en fait quand on rentre une heure ce n'est en fait qu'une date,complet qui est filtrée ou plutot masquée et on note juste l'heure !
Donc tous les enregsitrements fait de cette façon ont en réalité Samedi 30 Décembre 1899 comme date ! :?
Aurai t-il fallut que je note une date complète dans ma table pour retrouver :
01/10/2005;10:00:00 et enfin pouvoir faire en critère requete, un truc du genre :

Citation:

=DateComplèteRendezVous + 0,08333 (qui est l'équivalence de 2 heures! (1jour/24heures*2))

Trou noir ! 8O
Ou alors comment batir ma requete avec ce que j'ai actuellement, parce que je vois vraiment pas comment faire ??!!??
Merci d'avance
01/10/2005, 10h16
Tofalu

Regarde du coté de la fonction DateAdd

Houp's
je passe par VBA car avec l'interface des requetes ?
Code:

1 2 3 4 5 Private Sub HeureRendezVous_AfterUpdate() If DateAnd("hh", 1, [HeureRendezVous])Then MsgBox "ATTENTION il y a déja un rdv dans l'heure qui suit !" End If End Sub
Mais le souci :
Elle ne me montre pas le msg !
Ps: j'ai un enregistrement test prévu pour cela !
HeureRendezVous = 10:00:00
HeureRendezVous = 11:00:00
Et il faut arriver a lui faire comprendre que c'est sur le jour saisi dans le formulaire qu'il faut qu'il fasse sa requete !
d'ou
Code:

1 2 3 4 5 6 Private Sub HeureRendezVous_AfterUpdate() Dim SqlHeure As Integer If (SqlHeure = "SELECT T_RendezVous.DateRendezVous T_RendezVous.HeureRendezVous Where (DateAnd("hh", 1, [HeureRendezVous]))") then MsgBox "ATTENTION il y a déja un rdv dans l'heure qui suit !" End If End Sub
Mais la syntaxe est peut etre une horreur mais je ne vois pas comment la réctifier ???
ça coince a ("hh", du DateAnd??? demande de : ou ) ??
Haiaiaiaiai, quand on connait pas VBA on rame !!
Le pire c'est qu'il faudra aussi pour avant l'heure !!
Quelqu'un a une idée de ce qui cloche?
Merci

Salut, :)

il te faut créer 1 recordset, dans le style:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub HeureRendezVous_AfterUpdate() 
Dim SqlHeure As String
Dim rs As DAO.RecordSet 
 
SqlHeure = "Select * From T_RendezVous Where Salarié=" & Chr(34) & Me!Salarié & Chr(34) & " And [DateRendezVous]=" & FDate(Me!Jour) & " And [HeureRendezVous] <= " & Chr(35) & Me!HeureRendezVous & Chr(35) & " And DateAdd("h",2,[HeureRendezVous])  > " & Chr(35) & Me!HeureRendezVous & Chr(35)
 
set rs=CurrentDb.OpenRecordset(sql1, dbOpenSnapshot)
 
If Not(rs.eof) then  's'il y a 1 rdv entre l'heure choisi et  +2 alors 
MsgBox "ATTENTION il y a déja un rdv dans l'heure qui suit !" 
End If 
 
rs.Close
 
End Sub

ou FDate formate la date:

Code:

1
2
3
Public Function FDate(p As Date) As String
FDate = Chr(35) & Format(p, "m-d-yy") & Chr(35)  ' Date us 
End Function

Tu peux aussi utiliser la fonction DLookup à voir dans l'aide Access.

N'hésite pas à me recontacter !

:wink:

Slt user :wink: :P

j'ai essayé

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub HeureRendezVous_AfterUpdate()
Dim SqlHeure As String
Dim rs As DAO.Recordset
 
SqlHeure = "Select * From T_RendezVous Where T_RendezVous.IdSalariéPrévuPour=" & Chr(34) & Me!IdSalariéPrévuPour & Chr(34) & " And [DateRendezVous]=" & T_RendezVous.DateRendezVous(Me!DateRendezVous) & " And [HeureRendezVous] <= " & Chr(35) & Me!HeureRendezVous & Chr(35) & " And DateAdd("h",2,[HeureRendezVous])  > " & Chr(35) & Me!HeureRendezVous & Chr(35)
 
Set rs = CurrentDb.OpenRecordset(sql1, dbOpenSnapshot)
 
If Not (rs.EOF) Then 's'il y a 1 rdv entre l'heure choisi et  +2 alors
MsgBox "ATTENTION il y a déja un rdv dans l'heure qui suit !"
End If
 
rs.Close
 
End Sub

Mais j'ai toujours a la construction

Citation:

Attendu fin d'instruction

Citation:

("h",2,...)

puis a l'execution

Citation:

Erreur de syntaxe

vu ce que tu m'a pondu je rame durdur !!
t'as une idée???

03/10/2005, 08h43
random

daterendezvous +(2/24)
03/10/2005, 08h47
pc75

Bonjour,

De mémoire, il me semble que dans une clause where, les dates doivent être au format mm/dd/yyyy