SQL critère heure + 2 heures ?

**samlepiratepaddy** · 01/10/2005, 10h13

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 :

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

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

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 :

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

Trou noir !

Ou alors comment batir ma requete avec ce que j'ai actuellement, parce que je vois vraiment pas comment faire ??!!??
Merci d'avance

**Tofalu** · 01/10/2005, 10h16

Regarde du coté de la fonction DateAdd

**samlepiratepaddy** · 01/10/2005, 11h30

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

Code :

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

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 :

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

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

**User** · 01/10/2005, 16h00

Salut,

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

Code :

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

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 :

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

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 !

**samlepiratepaddy** · 01/10/2005, 19h41

Slt user

j'ai essayé

Code :

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

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