Total d'une colonne de la datagrid

Bonjour l'Ami,

Cette fois, je tente d'apprendre comment calculer le total d'une colonne de la Datagrid,
cette colonne est remplie par des chiffres.

j'ai essayé sans y arriver. Aussi, je voulais faire apparaître ce total sur un lbl que j'ai identifié par lblKilos.caption

je sollicite votre aide.

Toujours, l'environnement de mon essai est :

VB6
DB est située dans MS Access 2003
la phrase de requête est SQL ( Ado )

la colonne est identifié par POIDSN

Merci d'avance

6 réponses

  1. Bonjour,

    votre datagrid est bien remplie par une requete sql pour un adodc, donc vous avez le champ poids. Creez un recordset avec cette requete, si ce n'est fait, parcourez le en additionnent le champ poids.

    A+
    0
    1. Bonjour l'Ami,

      En continuation de la question posée quelques jours avant, j'ai essayé le code ci dessous, mais sans résultat. C'est à dire, le total des KG de toutes les dates qui s'affiche. Alors que moi je cherche seulement les KG de la même date.

      Private Sub cmbDate_KeyPress(KeyAscii As Integer)
      If KeyAscii = 13 Then
      If cmbDateCond = "" Then
      MsgBox "Vous devrez selectionner une date ", vbCritical + vbMsgBoxRight, "Info !"
      cmbDateCond.SetFocus
      Exit Sub
      End If
      
      
      SQLs = "select sum ( KG ) as KG from TableauRecolte"
      
      If RS.State = adStateOpen Then RS.Close
      RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic
      
      If RS.EOF And RS.BOF Then
      
      MsgBox "A cette date rien n'a été fait", vbCritical + vbMsgBoxRight, "Info !"
      
      Else
      
      RS.MoveFirst
      
      TTotalKgEx = RS![KG]
       
      
      End If
      End If
      
      
      
      End Sub


      Déjà, les poids sont enregistrés dans la BD sous l'identifiant KG
      ce que je cherche :

      Une fois la date est sélectionnée, le total des kgs entrés, via plusieurs bons, dans cette même date.

      Merci d'avance l'Ami
      0
      1. Bonjour,

        a vous de mettre le nom de votre champ date.

        cmbDate ou cmbDateCond pour la date saisie ??????

        SQLs = "select sum ( KG ) as KG from TableauRecolte where date='" & cmbDateCond & "';"
        0
        1. Bonjour l'Ami,

          J'ai , avant, essayé de faire exécuter à l'application l'instruction voulue si la condition a la valeur vrai, mais sans résultat, c'est à dire ( SQLs="select sum (KG) as KG from TableauRecolte where DATE=" & cmbDateCond & "")

          même avec votre proposition en ajoutant à la fin le point-virgule (;), l'application ne me donne pas le résultat escompté.

          elle me renvoie le message suivant ( Erreur d'exécution '94' Utilisation non autorisé de Null )

          Alors que si, je laisse la requête sans imposer la condition de la date ( c'est à dire : SQLs="select sum ( KG) as KG from TableauRecolte")
          l'application me donne le TOTAL des KG

          A plus
          0
          1. Bonjour,

            C'est que vous avez un probleme soit avec le champ date, soit votre saisie
            0
            1. Bonjour l'Ami,

              Je n'arrive pas à bien concevoir un code selon lequel un dossier portant un numéro, et qui doit avoir au plus 33 enregistrements. Après on passe au dossier suivant.
              Aussi, si jamais, le nombre des enregistrement sont inférieur au 33, un message est renvoyer demandant la permission d'enregistrer toutes les données même si le nombre n'arrive pas à 33.

              Merci d'avance
              0