Discussion :

[bok2000]

Bonsoir,

J'ai un formulaire pour la saisie des déplacements des agents où je saisis la date de départ et la date d'arrivée, je veux contrôler ces deux dates pour qu'elles ne chevauchent pas avec les dates antérieurs.

Expemple:
je veux que si je saisis 05/12/2007 comme date départ et que j'ai déjà un autre déplacement pour le même agent dont la date de départ est le 01/12/2007 et la date d'arrivée est le 10/12/2007, un message d'arrêt doit apparaître.

Merci

[LedZeppII]

Bonsoir,

Cette requête retourne la période (DateDeb->DateFin) dans laquelle se trouve la date testée, pour un agent donné.

Code sql :

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

1
2
3
4
PARAMETERS VerifDate DateTime, VerifCodeAgent Long;
SELECT DateDeb, DateFin
FROM tblPeriodes
WHERE (((CodeAgent)=[VerifCodeAgent]) AND (([verifDate]) Between [DateDeb] And [DateFin]));

Si elle ne renvoie rien -> pas de problème.
Si elle retourne des données -> problème.

Les paramètres peuvent être remplacés par des contrôles de formulaire.

Code sql :

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

1
2
3
4
5
PARAMETERS [Formulaires]![MonForm]![DateDeb] DateTime, [Formulaires]![MonForm]![CodeAgent] Long;
SELECT DateDeb, DateFin
FROM tblPeriodes
WHERE (((CodeAgent)=[Formulaires]![MonForm]![CodeAgent])
   AND (([Formulaires]![MonForm]![DateDeb]) Between [DateDeb] And [DateFin]) );

A+

[bok2000]

Merci pour la réponse...

Mais quel est le code à mettre dans la propriété "Avant MAJ" du contrôle "date_départ" du formulaire pour que lors de la saisie de la date de départ d'un agent et que la requête ci-dessus revoie un enregistrement : un message d'avertissement soit affiché.

[LedZeppII]

Bonjour,

voila un exemple :

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
Private Sub date_départ_Exit(Cancel As Integer)
Dim strSQL As String, strDateDep As String
Dim db As DAO.Database, rs As DAO.Recordset
 
strDateDep = Format(Nz(Me.date_départ), "mm/dd/yyyy")
If strDateDep = "" Then
   ' Rien à tester
   Exit Sub
End If
 
' Crée code SQL de la requête
strSQL = "SELECT DateDeb, DateFin " & _
"FROM tblPeriodes " & _
"WHERE (((CodeAgent)=" & Nz(Me.codeAgent, "0") & ") " & _
"   AND (#" & strDateDep & "# BETWEEN [DateDeb] AND [DateFin]));"
 
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
 
' Si valeurs retournées annuler événement et msg erreur
If rs.RecordCount > 0 Then
   Cancel = True
   MsgBox rs!DateDeb & "<-->" & rs!DateFin, , "Chevauchement"
End If
 
End Sub

Précisions :
J'ai une table tblPeriodes (CodeAgent, DateDeb, DateFin) et sur le fomulaire j'ai les contrôles codeAgent, date_départ, date_retour.
Il te faut donc remplacer les noms de champs, table, contrôles par les tiens.

A+

[bok2000]

C'est Parfait, merci infiniment LedZeppII...