Discussion :

[HABILER]

Bonjour à tous,

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

Habiler

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

[Jean-Philippe André]

Salut,

la fonction DSum attendant des valeurs de type

Code :

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

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

[HABILER]

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 :

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

[HABILER]

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 :

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

[Jean-Philippe André]

Salut,

ca part un peu dans tous les sens ton code la

Code :

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

totAbs = DSum("DateDiff('m', [debut], [fin])", "Decisions", "[Matr]=" & Matr & " And [Nature]= '" & Nature & "'")

[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

[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

[HABILER]

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

Code :

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

SumDateDiff(Matr, Nature)

.

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