Bonjour,

je dois faire une boucle sur une table et determiner le stock a une journée donnée ça marche quand je calcul moi meme
Code : Sélectionner tout - Visualiser dans une fenêtre à part
?DCount("[CHASSIS]", "rCalculStockage_RBL_TGC", "DateIn<=#12/03/2017# and DateOut>=#12/03/2017#")  + DCount("[CHASSIS]", "rCalculStockage_RBL_TGC", "DateIn<=#12/03/2017# and DateOut>=0")
mais quand je met le principe avec une variable date , ça ne marche plus (le stock est 0 pour toute les dates)
merci de votre aide

Voici mon 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
16
17
18
19
20
21
Public Function CalculDelaiSurstockage(ByVal dDeb As Date, ByVal dFin As Date) As Long
'Le surstockage c'est quand pendant un jour le stock est > 5000
'pour ça on va se baser sur la table stockage qui aggrege le pve et le zuvi de la periode analyésée et on va se demander pour chaque date de debut de periode
'jusq'a la date de periode de fin combien il y a eu de stockage
'ce par une boucle
 
Dim sNb As Long 'les nombres de jours de stockage
Dim dDtStk As Date 'Date de stockage de considération
 
dDtStck = dDeb
Debug.Print dDtStck
 
Do Until dDtStck = dFin
Debug.Print DCount("[CHASSIS]", "rCalculStockage_RBL_TGC", "DateIn<= " & Format(dDtStk, "mm/dd/yyyy") & "  and DateOut>= " & Format(dDtStk, "mm/dd/yyyy") & "") _
                    + DCount("[CHASSIS]", "rCalculStockage_RBL_TGC", "DateIn<= " & Format(dDtStk, "mm/dd/yyyy") & "  and DateOut>=0")
dDtStck = dDtStck + 1
Debug.Print dDtStck
 
Loop
 
End Function
et le resultat que ça donne:
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
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
59
60
61
62
63
?CalculDelaiSurstockage(#12/01/2017#,#12/31/2017#) 
01/12/2017 
 0 
02/12/2017 
 0 
03/12/2017 
 0 
04/12/2017 
 0 
05/12/2017 
 0 
06/12/2017 
 0 
07/12/2017 
 0 
08/12/2017 
 0 
09/12/2017 
 0 
10/12/2017 
 0 
11/12/2017 
 0 
12/12/2017 
 0 
13/12/2017 
 0 
14/12/2017 
 0 
15/12/2017 
 0 
16/12/2017 
 0 
17/12/2017 
 0 
18/12/2017 
 0 
19/12/2017 
 0 
20/12/2017 
 0 
21/12/2017 
 0 
22/12/2017 
 0 
23/12/2017 
 0 
24/12/2017 
 0 
25/12/2017 
 0 
26/12/2017 
 0 
27/12/2017 
 0 
28/12/2017 
 0 
29/12/2017 
 0 
30/12/2017 
 0 
31/12/2017 
 0