Bonjour à tous,
j'essaie de creer une requqte et ensuite de me positionner selon le numéro de la tournée et ensuite de tester si ma date entrée est entre deux dates, ça ne marche pas
voilà ce que j'ai fait...

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
 
Dim RecordTournee As DAO.Recordset
Dim sSQL As String
 
Set db = CurrentDb
 
sSQL = "SELECT Tournee.Tournee, TblTourDetail.DateDebutModif, TblTourDetail.DateFinModif, Tournee.Groupe, Tournee.Km, TblTourDetail.HeureDebTravail, TblTourDetail.HeureFinTravail, TblTourDetail.EnVigueur, TblTourDetail.TChargement, TblTourDetail.TDechargement FROM Tournee LEFT JOIN TblTourDetail ON Tournee.Tournee = TblTourDetail.TourNumber ORDER BY Tournee.Tournee;"
 
 Set RecordTournee = db.OpenRecordset(sSQL, dbOpenDynaset)
 
If No_Tournee <> 0 Then
Do Until RecordTournee.EOF
RecordTournee.FindFirst "Tournee.Tournee ='" & No_Tournee & "'"  
If Date1 >= RecordTournee![DateDebutModif] And Date1 <= RecordTournee![DateFinModif] Then
 
 
HDeb = RecordTournee![HeureDebTravail]
HArr = RecordTournee![HeureFinTravail]
TCH = RecordTournee![TChargement]
TDCh = RecordTournee![TDechargement]
 
Else
 
 
    RecordTournee.MoveNext
 
    End If
 
Loop
End If
el code s'exécute jusqu'à

Do Until RecordTournee.EOF

et après cela sort de la procédure, pourtant je vois la variable du champ No_Tournee, le chiffre 5..

et mon but est qu'il se positionne au niveau de la tournée 5, ensuite test des bornes dates, et si ce n'est pas rempli,
prochain enregistrement avec la tournée 5, et retest des bornes dates et ainsi de suite
jusqu'à ce qu'il trouve le bon enregistrement...

merci pour votre aide

Pascal