Discussion :

[Gabrieel]

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

[marot_r]

Bonjour.

Quand on manipule les dates dans des chaînes, il faut mettre les # avant et après.

Ici un exemple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"DateIn<= #" & Format(dDtStk, "mm/dd/yyyy") & "#

A+

[Gabrieel]

Merci de ton retour rapide, c'est ce que j'avais fait avant mais sans résultat. j'ai néanmoins remis les diese pas de meilleur succès. bizarre, hein?

le code modifié ci-dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
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")

[Gabrieel]

Ok trouvé: erreur d'encodage la valeur ne correspond pas a la valeur déclarée en dim...dDtStk au lieu de dDtStck , bref quand on est crevé on prend du café ou on va se coucher!

merci d'avoir regarder néanmoins

Bien cordialement,

G