Total d'une colonne de la datagrid

mohalesage Messages postés 147 Date d'inscription   Statut Membre Dernière intervention   -  
mohalesage Messages postés 147 Date d'inscription   Statut Membre Dernière intervention   -
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



A voir également:

6 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
mohalesage Messages postés 147 Date d'inscription   Statut Membre Dernière intervention   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
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
mohalesage Messages postés 147 Date d'inscription   Statut Membre Dernière intervention   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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

C'est que vous avez un probleme soit avec le champ date, soit votre saisie
0
mohalesage Messages postés 147 Date d'inscription   Statut Membre Dernière intervention   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