Discussion: Pb avec Dsum

  1. #1
    Membre régulier
    Inscrit en
    janvier 2009
    Messages
    217
    Détails du profil
    Informations forums :
    Inscription : janvier 2009
    Messages : 217
    Points : 79
    Points
    79

    Par défaut 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 : 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

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Inscrit en
    juillet 2007
    Messages
    12 319
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : Canada

    Informations professionnelles :
    Activité : Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2007
    Messages : 12 319
    Points : 27 141
    Points
    27 141

    Par défaut

    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

    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Membre régulier
    Inscrit en
    janvier 2009
    Messages
    217
    Détails du profil
    Informations forums :
    Inscription : janvier 2009
    Messages : 217
    Points : 79
    Points
    79

    Par défaut

    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

  4. #4
    Membre régulier
    Inscrit en
    janvier 2009
    Messages
    217
    Détails du profil
    Informations forums :
    Inscription : janvier 2009
    Messages : 217
    Points : 79
    Points
    79

    Par défaut

    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

  5. #5
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Inscrit en
    juillet 2007
    Messages
    12 319
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : Canada

    Informations professionnelles :
    Activité : Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2007
    Messages : 12 319
    Points : 27 141
    Points
    27 141

    Par défaut

    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 & "'")
    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  6. #6
    Membre régulier
    Inscrit en
    janvier 2009
    Messages
    217
    Détails du profil
    Informations forums :
    Inscription : janvier 2009
    Messages : 217
    Points : 79
    Points
    79

    Par défaut

    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

  7. #7
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Inscrit en
    juillet 2007
    Messages
    12 319
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : Canada

    Informations professionnelles :
    Activité : Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2007
    Messages : 12 319
    Points : 27 141
    Points
    27 141

    Par défaut

    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

    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  8. #8
    Membre régulier
    Inscrit en
    janvier 2009
    Messages
    217
    Détails du profil
    Informations forums :
    Inscription : janvier 2009
    Messages : 217
    Points : 79
    Points
    79

    Par défaut

    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

Discussions similaires

  1. Problème avec DSum
    Par Mouvii dans le forum VBA Access
    Réponses: 2
    Dernier message: 02/05/2016, 12h21
  2. Réponses: 7
    Dernier message: 26/02/2013, 18h18
  3. Probleme de critère avec DSum
    Par rere02 dans le forum IHM
    Réponses: 4
    Dernier message: 26/03/2010, 11h36
  4. [AC-2000] Réaliser un cumul avec DSum
    Par Dragi dans le forum Requêtes et SQL.
    Réponses: 2
    Dernier message: 27/04/2009, 12h01
  5. Cumuls mensuels par requête (même avec DSUM)
    Par jlfprofoto dans le forum Requêtes et SQL.
    Réponses: 19
    Dernier message: 21/08/2007, 17h31

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo