Total d'une colonne de la datagrid

mohalesage Messages postés 162 Statut Membre -  
mohalesage Messages postés 162 Statut Membre -
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. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
  2. mohalesage Messages postés 162 Statut Membre 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
  3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
  4. mohalesage Messages postés 162 Statut Membre 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
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    C'est que vous avez un probleme soit avec le champ date, soit votre saisie
    0
  7. mohalesage Messages postés 162 Statut Membre 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