TextBox = Sum(Colonne de Datagrid)

Salut à Tous!

je revien vers vous avec une nouvelle question toute Bête.

Je voudrais savoir si il est possible d'afficher dans un textbox la somme d'une colonne d'un datagrid. Se textBox doit se mettre à jour en a la réactualisation du datagrid.

A+
Bernard

salut
oui tu peut afficher dans un textbox le sum des colones d'une datagrid mais par cete methode

Code:

---

1 2	Me.Text1.Text = (Me.DataGrid1.Columns.Count)

---

me=ta forme
text1= le textbox
datagrid= la datagrid

bonne chance ;)

Salut Kajol

Merci pour ta réponse mais je ne veut pas conter le nombre de colonne de mon datagrid, mais faire la somme des valeurs contenues dans une colonne.

A+
Bernard

Salut

Je n'ai pas le SQL tout frais en tête mais je sais que c'est via une requête SQL que tu arrivera à faire la somme sur un champ particulier d'une table. Tu peux jeter un coup d'oeil sur les articles que tu trouveras ici.

Bonsoir à toi,
Au faite, tu peux le faire en appliquant ce petit bout de code :

Code:

---

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

Dim Somme,i As Integer   'Si le DataSource de ton Datagrid est un controle Adodc fait comme suivant :   Adodc1.Refresh Adodc1.Recordset.MoveFirst Somme = 0 For i = 0 To Adodc1.Recordset.Recordcount 'La propriétés Fields sert à determiner le champs désiré (0 pour le premier champs de ta table,1 pour le 2éme...etc) Somme = Somme + Adodc1.Recordset.Fields(0) Adodc1.Recordset.MoveNext Next i Text1.text = Somme   '****************************** 'Sinon tu peux avoir les données directement depuis ton Recordset si tu le souhaite avec presque la même manière   Datagrid1.Refresh Recordset1.MoveFirst Somme = 0 For i = 0 To Recordset1.Recordcount 'La propriétés Fields sert à determiner le champs désiré (0 pour le premier champs de ta table,1 pour le 2éme...etc) Somme = Somme + Recordset1.Fields(0) Recordset1.MoveNext Next i Text1.text = Somme

---

Tu peux aussi le faire en utilisant tout simplement une requête SQL comme l'exemple suivant :

Code:

---

1 2 3 4 5 6 7

Private Sub Form_Load() Dim base As Database Dim t As Recordset Set base = OpenDatabase("Y:\bd.mdb") Set t = base.OpenRecordset("select sum(champ1) as Somme from Table1") Text1.Text = t.Fields(0) End Sub

---

Y'a d'autres méthodes, mais je pense que c'est suffisant :)
Voilà ;)

Salut à Tous :merci:

Je sais que c'est possible par une requette SQL, je voulais simplement savoir si il avait une méthode plus direct.
Apparament Non.
Mais se n'est pas grave je vais tester la solution de NiGHtyWolf (Juste pour le plaisir).:marteau:

A+
Bernard

Me revoilou !!!

J'ais testé, J'ais apprécié, J'ais adopté !
Re :merci:

Mais juste pour info j'ais fait 2 p'tites modifs de rien du tout :

Code:

---

1 2 3

For i = 0 To Recordset1.Recordcount Devient : For i = 0 To Recordset1.Recordcount - 1

---

Puis pour revenir sur le premier enregistrement :

Code:

---

1 2	Text1.text = Somme Recordset1.MoveFirst

---

:merci: je vous adore :hola: (Enfin .... )

A+