Bonjour, je dois développer un bout de code en vb6 dans mon stage pour faire de l'ordonnancement.
J'ai un souci avec le recordset, je vous explique:

Chaque tache a effectuer est divisée en charges qui sont a effectuer sur des secteurs bien precis. Je cherche en fait savoir en combien de jour sera effectué la tache suivant les capacités des secteurs. Mais le souci c'est que pour une date, il ne me trouve pas d'enregistrement, alors que les capacités des secteurs sont bien tous présent dans la base. Cependant, j'ai remarquer que ce souci se produisait toujours lorsque l'on passait à un nouveau mois de l'année.

Voici le code:

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
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

Voila si quelqu'un a une idée à ce petit problème merci d'avance