1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| While saveduree > (capajour(rsChargeOF.Fields("date_fin").Value, rsChargeOF.Fields("Code_secteur").Value) - jetonheure + TimeValue("08:00"))
saveduree = saveduree - capajour(rsChargeOF.Fields("date_fin").Value, rsChargeOF.Fields("Code_secteur").Value)
rsChargeOF.Edit
rsChargeOF.Fields("date_fin").Value = (rsChargeOF.Fields("date_fin").Value) + 1
rsChargeOF.Update
Wend
Private Function capajour(date1 As Date, secteur As String) As Integer
Dim rscapa As Recordset
Set rscapa = bdTest.OpenRecordset("SELECT Capacite_heure From Capacité WHERE ((Capacité.Date_capacite)=#" & date1 & "#) AND ((Capacité.Code_Secteur)='" & secteur & "');", dbOpenDynaset)
capajour = rscapa.Fields("capacite_heure").Value
rscapa.Close
End Function |