Discussion :

[eddy37fr]

bonjour a tous,

J'essai de gerer les chevauchements de dates. j'ai visite plusieurs forums et trouver differentes solutions mais je suis incapable de les faire fonctionner (je suis tres limite en vba). Alors c'est tres simple, je crois:

j'ai un table "tblGESTION" avec GestionNo, OutilID, DateSortie et DateRetour,
et le formulaire qui va avec "frmGestion" avec txtGestionNo, txtOutilID, txtDateSortie et txtDateRetour

je voudrais tout simplement creer une alerte lorsque j'entre les dates de sortie et de retour pour un outil (sur nouvel enregistrement ou modification enregistrement existant) si l'interval de dates chevauche un autre interval de dates pour ce meme outil. Du genre "cet interval chevauche un interval deja existant pour cet outil".

Voici un des codes a partir duquel j'ai tente de travailler mais en vain:

Code :

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

1
2
3
4
SELECT  *
FROM    reservation
WHERE   (date_debut, date_fin) overlaps (:datedebut, :datefin)
;

c'est surtout que je ne sais pas quoi en faire dans un code vba. Ca vient de http://www.developpez.net/forums/sho...d.php?t=293580

Alors si quelqu'un peut m'aider.

merci

[marot_r]

Je ne sais pas le faire en SQL pur mais voici une fonction VBA qui devrait résoubdre ton problème. À mettre dans un module

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
public function ExisteRecouvrementPeriode(prmClefOutil as long, prmDateDebut as date, prmDateFin as date) as boolean
 
  dim result as boolean
  dim compteIntersection
 
  dim critere as string
 
  'On va regarder pour l'outil courant
  critere = "[ClefOutil]=" & prmClefOutil
  critere = critere & " and ("
 
 'La periode commence-t-elle dans une période existante
  critere = critere & "#" & format$(prmDateDebut,"yyyy/mm/dd") & "# between [date_debut] and [date_fin]"
 
  critere=critere & " or "
 
 'La periode finit-elle dans une période existante
  critere = critere & "#" & format$(prmDateFin,"yyyy/mm/dd") & "# between [date_debut] and [date_fin]"
 
  critere=critere & " or "
 
 'La periode englobe-t-elle dans une période existante ?
  critere = critere & "[date_debut] between #" & format$(prmDateDebut,"yyyy/mm/dd") & " and #" & format$(prmDateFin,"yyyy/mm/dd") & "#"
 
  critere=critere & " or "
 
  critere = critere & "[date_fin] between #" & format$(prmDateDebut,"yyyy/mm/dd") & " and #" & format$(prmDateFin,"yyyy/mm/dd") & "#"
 
  'Ferme la parenthèse du and
   critere = critere & ")"
 
  compteIntersection=DCount("[TaClefReservation]", "Reservation", critere)
 
  if compteIntersection<>0 then
      result=true
    else
      result=false
  end if
 
  ExisteRecouvrementPeriode=result
 
end function

Il faudra probalement que tu adapte ClefOutil à tes besoins.

A+

[philben]

bonjour,

je me demandais si on ne pouvait pas résoudre le problème ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
SELECT
 COUNT(OutilId) AS Compte
FROM
 tblGESTION
WHERE
 DateSortie<=#MaNouvelleDateDeRETOUR#
 AND 
  DateRetour>=#MaNouvelleDateDeSORTIE# 
 AND OutilId=MonCodeOUTILEnCours

si la requête retourne 0 alors aucun chevauchement de période


A vérifier...

Philippe