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 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58
| Dim db As Database
Dim RecordTournee As DAO.Recordset
Dim rst As DAO.Recordset ' Tournee As DAO.Field
Dim sSQL As String
Dim w_it1 As Integer
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 rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
w_it1 = 0
Dim strCritere As String
If No_Tournee <> 0 Then
rst.MoveFirst
strCritere = "Tournee like " & Chr(34) & No_Tournee & Chr(34)
rst.FindFirst strCritere
Do Until w_it1 = 1
If Not rst.NoMatch And Not rst.EOF Then
If Date1 >= rst![datedebutmodif] And Date1 <= rst![DateFinModif] Then
HDeb = rst![HeureDebTravail]
HArr = rst![HeureFinTravail]
TCH = rst![TChargement]
TDCh = rst![TDechargement]
Forms!FrmChauffeur!SfrmFiche![TCharge].Value = rst![TChargement]
Forms!FrmChauffeur!SfrmFiche![FldHeureDeb].Value = rst![HeureDebTravail]
Forms!FrmChauffeur!SfrmFiche![FldHeureArr].Value = rst![HeureFinTravail]
Forms!FrmChauffeur!SfrmFiche![TdeCharge].Value = rst![TDechargement]
w_it1 = 1
Else
rst.MoveNext
End If
Else
w_it1 = 1
End If
Loop
End If
rst.Close |
Partager