Totaliser les montants
ANDRE
-
WhiteFang Messages postés 2063 Statut Membre -
WhiteFang Messages postés 2063 Statut Membre -
Bonjour tout le monde
Je suis novice. J'ai un fichier texte qui contient une serie de données: Alain(Nom),Manoukian(Prenom),250(Montant cotisation)
Sylvie,Bernadette,126
Alain,Trobard,75
...
Dans mon formulaire VB, j'ai crée 3 textbox pour afficher chacun de ces datas. Quand je clique sur Next,il va m'afficher la 2eme ligne. Maintenant, je voudrai ajouter un textbox pour afficher le total des Montants de Cotisation. Comment écrire cette ligne ?
Merci beaucoup
Je suis novice. J'ai un fichier texte qui contient une serie de données: Alain(Nom),Manoukian(Prenom),250(Montant cotisation)
Sylvie,Bernadette,126
Alain,Trobard,75
...
Dans mon formulaire VB, j'ai crée 3 textbox pour afficher chacun de ces datas. Quand je clique sur Next,il va m'afficher la 2eme ligne. Maintenant, je voudrai ajouter un textbox pour afficher le total des Montants de Cotisation. Comment écrire cette ligne ?
Merci beaucoup
A voir également:
- Totaliser les montants
- Est-ce que les PC sur agando-shop.com sont montés ? ✓ - Forum Matériel & Système
- Monter les pokemon au niveaux 100 dans pokemon platine - Forum DS
- Comment monter les grades zombie sur black ops 2 ✓ - Forum PS3
- Comment deplacer les rocher sur le mont couroné dans pokemon per - Forum DS
- Voici pourquoi les agents de bord vous disent bonjour quand vous montez dans l'avion - et ce n'est pas par politesse ! - Guide
7 réponses
;-)
Il faut que tu fasses une boucle sur ton fichiers texte (jusqu'à EOF), que tu récupères le montant de ta cotisation dans une variable en faisant une addition...
Ou en temps réel dans ta form à chaque next...
;-)
Il faut que tu fasses une boucle sur ton fichiers texte (jusqu'à EOF), que tu récupères le montant de ta cotisation dans une variable en faisant une addition...
Ou en temps réel dans ta form à chaque next...
;-)
;-))))))))))))) 'tention, chui un garçon, moaaaa....
Maintenant, met plutôt un exemple de ton code, je te le modifierai ici (pour avoir le nom du fichier, par exemple)....
Maintenant, met plutôt un exemple de ton code, je te le modifierai ici (pour avoir le nom du fichier, par exemple)....
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
;-)
Data1.Recordset.MoveLast
TxtMont.text=total(data1.recordset.record!Mont)
'TxtMont est le textbox à afficher le montant total
'Mont est le champ à attribut au montant de la cotisation
-----------------------------------------------------------------
;-)
Dim X, Montant, Total
Total = 0
For X= 1 to Data1.RecordSet.RecordCount
Montant = Data1.RecordSet.Record!Mont
Total = Total + Montant
Data1.RecordSet.MoveNext
Next
TxtMont.Text = Total
;-)
Data1.Recordset.MoveLast
TxtMont.text=total(data1.recordset.record!Mont)
'TxtMont est le textbox à afficher le montant total
'Mont est le champ à attribut au montant de la cotisation
-----------------------------------------------------------------
;-)
Dim X, Montant, Total
Total = 0
For X= 1 to Data1.RecordSet.RecordCount
Montant = Data1.RecordSet.Record!Mont
Total = Total + Montant
Data1.RecordSet.MoveNext
Next
TxtMont.Text = Total
;-)
Cher ami,
Tes bien,j'en suis très content. Ca marche, c'est très formidable. Je Vous remercie infiniment. Mais, Pourriez vous m'aider encore un tout petit peu. Supposons que dans le fichier txt il y a un champ Sexe,M (pour Homme), F (pour femme). Dans ce cas, comment ecrire pour trier les datas si je clique la case à cocher M, il va me trier tous les personnes M. C'est faisable ?
Par ex: Private sub Form_Load
select case Sexe
case M: if val(Checkbox1)="M"
then Data1.RecordSet!M
Case F:if val(Checkbox2="F"
then Data1.Recordset!F
end select
end sub
Tes bien,j'en suis très content. Ca marche, c'est très formidable. Je Vous remercie infiniment. Mais, Pourriez vous m'aider encore un tout petit peu. Supposons que dans le fichier txt il y a un champ Sexe,M (pour Homme), F (pour femme). Dans ce cas, comment ecrire pour trier les datas si je clique la case à cocher M, il va me trier tous les personnes M. C'est faisable ?
Par ex: Private sub Form_Load
select case Sexe
case M: if val(Checkbox1)="M"
then Data1.RecordSet!M
Case F:if val(Checkbox2="F"
then Data1.Recordset!F
end select
end sub
;-)
Le mieux serait de rajouter des zones de texte, une pour les Hommes, une pour les femmes, avec bien sûr une pour le total... Et le champ qui s'appelle "Sexe" dans Data1...
On part du principe qu'il y a 3 zones de texte :
Txt_TotalH
Txt_TotalF
Txt_TotalMont
Et on part du principe de ce sont des cases d'option (pas des cases à cocher), donc avec 1 case d'option "H" (homme) et une case d'option "F" (femme)... de noms Co_H et Co_F (une case d'option est exclusive, donc, une seule aura la valeur "True"...
----
Dim X, Montant, Total, TotalH, TotalF
Total = 0
TotalH = 0
TotalF = 0
For X= 1 to Data1.RecordSet.RecordCount
Montant = Data1.RecordSet.Record!Mont
Select Case Me.Co_H.Value
Case = True
If Data1.RecordSet.Record!Sexe = "M" Then TotalH = TotalH + Montant
Case Else
If Data1.RecordSet.Record!Sexe = "F" Then TotalF = TotalF + Montant
End Select
Total = Total + Montant
Data1.RecordSet.MoveNext
Next
Txt_Mont.Text = Total
Txt_TotalH.Text = TotalH
Txt_TotalF.Text = TotalF
Le mieux serait de rajouter des zones de texte, une pour les Hommes, une pour les femmes, avec bien sûr une pour le total... Et le champ qui s'appelle "Sexe" dans Data1...
On part du principe qu'il y a 3 zones de texte :
Txt_TotalH
Txt_TotalF
Txt_TotalMont
Et on part du principe de ce sont des cases d'option (pas des cases à cocher), donc avec 1 case d'option "H" (homme) et une case d'option "F" (femme)... de noms Co_H et Co_F (une case d'option est exclusive, donc, une seule aura la valeur "True"...
----
Dim X, Montant, Total, TotalH, TotalF
Total = 0
TotalH = 0
TotalF = 0
For X= 1 to Data1.RecordSet.RecordCount
Montant = Data1.RecordSet.Record!Mont
Select Case Me.Co_H.Value
Case = True
If Data1.RecordSet.Record!Sexe = "M" Then TotalH = TotalH + Montant
Case Else
If Data1.RecordSet.Record!Sexe = "F" Then TotalF = TotalF + Montant
End Select
Total = Total + Montant
Data1.RecordSet.MoveNext
Next
Txt_Mont.Text = Total
Txt_TotalH.Text = TotalH
Txt_TotalF.Text = TotalF
MERCI DE M'AVOIR REPONDU. COMME JE SUIS UN DEBUTANT, POURRIEZ VOUS ME DONNER UN EXEMPLE EN M'ECRIVANT QUELQUES LIGNES DE PROGRAMMATION,SI CA NE VOUS GENE PAS. MERCI INFINIMENT!