[VB] Additionner un champ numerique ?

Additionner un champ numerique ? [VB] - VB/VBA/VBS - Programmation

Marsh Posté le 22-04-2002 à 15:57:57    

J'ai un Champ TOTAL dans ma BD qui sur ma feuille est dans un Textbox et je voudrais qu'au chargement de ma feuille il me les additionne tous et me mette le resultat dans un label ....comment on fait ?
 
merci d'avance


---------------
Mes mémoires de Retrogamer - Le Retroblog de Turk182! en livres - Suivez le blog sur Facebook
Reply

Marsh Posté le 22-04-2002 à 15:57:57   

Reply

Marsh Posté le 22-04-2002 à 16:01:58    

Tu fais CLng(Text1.Text) et ensuite tu additionne


---------------
La bave du crapaud n'empèche pas la caravane de passer .
Reply

Marsh Posté le 22-04-2002 à 16:21:15    

tu pourrais être plus precis plize...


---------------
Mes mémoires de Retrogamer - Le Retroblog de Turk182! en livres - Suivez le blog sur Facebook
Reply

Marsh Posté le 22-04-2002 à 16:33:32    

Ben tu les additionne en vb.
Puis après tu mets la somme dans une variable.
Enfin tu rafraichis le champs texte :
Dim Somme
Somme = champs1+champs2+....+champsn
(ou une boucle...)
 
Label1.Caption = "Ma somme = " & Somme
Label1.Refresh
 
C'est ça ?

Reply

Marsh Posté le 22-04-2002 à 16:36:56    

speed18 a écrit a écrit :

Ben tu les additionne en vb.
Puis après tu mets la somme dans une variable.
Enfin tu rafraichis le champs texte :
Dim Somme
Somme = champs1+champs2+....+champsn
(ou une boucle...)
 
Label1.Caption = "Ma somme = " & Somme
Label1.Refresh
 
C'est ça ?  




 
Non ca marche pas...par contre j'ai trouvé plus simple :
 
Set rts = db.OpenRecordset("SELECT sum(salTOTAL1) FROM contabilidad" )
rts.MoveLast
LabelTotal.Caption = rts(0)
 
voila...merci quand même !!!


---------------
Mes mémoires de Retrogamer - Le Retroblog de Turk182! en livres - Suivez le blog sur Facebook
Reply

Marsh Posté le 22-04-2002 à 16:42:03    

yes, core mieux...
Par contre, tu peux additioner en vb, heureusement que ça marche...
;-)

Reply

Marsh Posté le 22-04-2002 à 17:46:21    

Peut etre a t il obtenu une concatenation de chaines parce qu'il n'a pas converti ...
Faire Dim Somme As UnType (Long par ex) permet d'eviter ces surprises ... et de programmer un peu plus proprement ;)


---------------
FAQ fclc++ - FAQ C++ - C++ FAQ Lite
Reply

Marsh Posté le 22-04-2002 à 18:26:10    

HelloWorld a écrit a écrit :

Peut etre a t il obtenu une concatenation de chaines parce qu'il n'a pas converti ...
Faire Dim Somme As UnType (Long par ex) permet d'eviter ces surprises ... et de programmer un peu plus proprement ;)  




 
Ben j'avais bien declare ma variable AS LONG et ca ne marchait pas car sur ma feuille il me mettait 0 pourtant je faisais MOVENEXT mais rien a faire...alors qu'avec le SQL c'est nickel !!!


---------------
Mes mémoires de Retrogamer - Le Retroblog de Turk182! en livres - Suivez le blog sur Facebook
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed