comment faire une somme sur vba access

Question

SAlut tout le monde!
Je suis d&#233;butant access vba et je voudrais savoir comment faire une somme des &#233;l&#233;ments d'une table dans vba voila mon code mais il me signale des erreurs sur ma requete sql:
Private Sub statsperRCN_Click()
Dim SQL As String
    SQL = "SELECT * FROM [classementideal] WHERE (((classementideal.ann&#233;emois)>=200509));"
    SQL = SQL & ";"


    &#201;tiquette1 = DSum("[Sommedefiability hours]", "[Classementideal]", SQL)
    DoCmd.OpenForm "formulaire1", acNormal



End Sub

Please help!!!!

Molenn · Answer

Ta requête SQL pose pb, déjà, plusieurs points :

SQL = SQL & ";"
Pourquoi rajouter un ";" à la fin ? Il ne sert à rien.

SQL = "SELECT * FROM [classementideal] WHERE (((classementideal.annéemois)>=200509));"
Idem, le ";" à la fin ? Je suppose que c'est parce que tu as crées la requête à partir de l'assistant d'Access, et comme dans les objets, il colle toujours un ";" à la fin ... amis il n'est pas utile (d'un autre côté, je ne suis pas sûr que cela pose pb, mais bon, si ça ne sert à rien ^^)

Ensuite, dans ta table "classementideal", le champ "annéemois" est de quel format ? Numérique ? Date/Heure ? Texte ?

Numérique, normalement ton format est bon.
Texte, il faut que 200509 soit entre double cotte pour obtenir une requête du type
SQL = "SELECT * FROM [classementideal] WHERE (classementideal.annéemois >= "200509")"
Date/heure, il faut que 200509 soit entre "#", mais je ne pense pas que ce soit cela, ton champ ne comportant pas les jours.

Molenn

penny05 · Answer

Merci de ta r&#233;ponse.
Mais mon champ ann&#233;emois est en num&#233;rique quand je lance la somme sans la requete ca marche mais il ya un probl&#232;me dans l'expression de la requete que je ne comprends abolument pas je te montre le code qui est corrig&#233; apr&#233;s les explications:

Private Sub statsperRCN_Click()
Dim SQL As String
Dim rs As Object
Set rs = Me.Recordset.Clone
    SQL = "SELECT * FROM [classementideal] WHERE (((classementideal.ann&#233;emois)>=200509))"
    sommeh = DSum("[SommeDeFiability hours]", "classementideal", SQL)
    DoCmd.OpenForm "formulaire1", acNormal


End Sub

Que dois je faire ??? Merci d'avance

cs_jperre · Answer

Tout celà est bien compliqué, j'aurais écrit :
Dim rs As Recordset
Set rs=CurrentDB.OpenRecordset("SELECT Sum([Fiability hours]) FROM classementideal WHERE annéemois>=200509;",dbOpenSnapshot)
If Not rs.EOF Then
   rs.MoveFirst
   Docmd.OpenForm "formulaire1", acNormal'La source du formulaire1 doit être la chaîne SQL du recordset
Else
   Beep
   MsgBox "Pas de données dans la table classementideal!...", vbCritical,"Pas de données"
End If
rs.Close
Bon courage!...

penny05 · Answer

merci mais j'ai r&#233;ussi a trouver il a fallu que je d&#233;finisse sql as currency ou double pour que ca marche !!
surement trop de nmbre &#224; sommer je pense??

Comment faire une somme sur vba access

4 réponses

Discussions similaires