Pb avec Dsum

Version imprimable

Pb avec Dsum

Bonjour à tous,

J'essaie de faire la somme de [Nature] par [Matr].
Mais il m'indique une erreur au niveau du Dsum

Habiler

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Function MetiersLourds(Matr As Integer, dteDate As Date, dteFin As Date, Fonction As Integer, Nature As Integer) As Integer
 
    Dim Date50 As Date
    Dim Date55 As Date
    Dim totabs As Integer
    'Recherche la date correspondante dans l'années en cours.
 
    Date50 = DateAdd("y", 50, [dteDate])
    Date55 = DateAdd("y", 55, [dteDate])
 
    totabs = DSum([Nature], "Decisions", "[Matr]" = [Matr])
 
    ' Détermine si cette date est déjà passée.
    If Fonction = 1101 Or Fonction = 1102 Or Fonction = 1103 Or Fonction = 1210 Then
        MetiersLourds = 1
    Else
        MetiersLourds = totabs
    End If
End Function

11/09/2017, 12h10
Jean-Philippe André

Salut,

la fonction DSum attendant des valeurs de type

Code:

DSum(Champ,Table,Criteres)

Or Nature est un entier d'apres ton code...

De plus, tu utilises des variables de type date sans les mettre en application ensuite.

Bref, c'est un peu brouillon et difficile de te dire d'ou vient l'erreur.

Dis nous de quelle table et champs il question, pour nous aider un peu stp :)

:cristal:

En fait j'ai une table decisions avec comme champs entre autres [Matr], [Nature],[Debut],[Fin]

Mon but est de trouver le nombre total de mois Datediff("m",[Debut],[Fin]) par nature et par mois.

Mais il y d'autres critères qui entreront dans la course par après, mais si je pouvais deja résoudre ce problème.

Habiler
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Function ML(Matr As Long, Nature As String, debut As Date, fin As Date, fonction As String) As String Dim totAbs As Integer Dim totMois As Integer totMois = Nz(DateDiff("m", [debut], [fin])) totAbs = Nz(DSum((DateDiff("m", [debut], [fin])), "Decisions", "[Nature]= " & Nature And "[Matr]= " & Matr)) If fonction = 1210 Or fonction = 1101 Then ML = totMois Else ML = totAbs End If End Function

Bonjour,

J'ai essayé ceci mais cela ne marche pas non plus.
Il me donne un nombre sorti d'ou je ne sais ou

Habiler

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function ML(Matr As Long, Nature As String, debut As Date, fin As Date, fonction As Long) As String
 
  Dim totAbs As Long
  Dim totMois As Integer
 
   totMois = Nz(DateDiff("m", [debut], [fin]))
 
   totAbs = DSum("DateDiff('m', [debut], [fin])", "Decisions", "'[Matr]= ' & 'Matr' And '[Nature]= ' & 'Nature'")
 
    If fonction = 1210 Or fonction = 1101 Then
        ML = totMois
    Else
        ML = totAbs
    End If
 
End Function

12/09/2017, 14h23
Jean-Philippe André

Salut,

ca part un peu dans tous les sens ton code la :D

Code:

totAbs = DSum("DateDiff('m', [debut], [fin])", "Decisions", "[Matr]=" & Matr & " And [Nature]= '" & Nature & "'")
12/09/2017, 20h38
HABILER

Bonjour,

Le probleme c'est que j'ai le total par periode "DateDiff('m', [debut], [fin])" alors que par je voudrais la totalite des periode par [NATURE] et par [Matr].

Bonne soirée

Habiler
13/09/2017, 10h56
Jean-Philippe André

Ce qui n'est pas facile, c'est que
- tu donnes les infos au compte gouttes
- tu n'as pas donné les infos sur la structure de ta table
- tu n'as pas donné d'exemple concret sur lequel on peut s'appuyer pour te donner la solution

:cristal:

Bonjour j'ai rajouter une private fct mais il m'indique une erreur too few parameters error 3061 au niveau de

Code:

SumDateDiff(Matr, Nature)

Code:

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
 
Function ML(Matr As Long, Nature As String, debut As Date, fin As Date, fonction As Long, Pourcent As Long) As Variant
    Dim totAbs As Long
    Dim totMois As Long
    Dim stockAbstype As Long
 
    If debut = fin Then
        totMois = 1
    Else
        totMois = SumDateDiff(Matr, Nature)
        If Nature = 31 Then
            If Pourcent = 80 Then
                ML = totMois / 5
            Else
                Pourcent = 50
                ML = totMois / 2
            End If
 
            stockAbstype = ML
            If stockAbstype = 4 Then
                ML = "Exhausted"
            End If
        End If
    End If
End Function
 
Private Function SumDateDiff(Matr, Nature) As Long
 
    Dim rs As DAO.Recordset
 
    Set rs = DBEngine(0)(0).OpenRecordset("Select debut, fin From Decisions " & _
                    "Where Matr =" & Matr & " And Nature = '" & Nature & "'")
    With rs
        If Not (.EOF And .BOF) Then .MoveFirst
        While Not .EOF
            SumDateDiff = SumDateDiff + DateDiff("m", Nz(.Fields("debut"), 0), Nz(.Fields("fin"), 0))
            .MoveNext
        Wend
        .Close
    End With
    Set rs = Nothing
End Function