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
- Dofus monter les niveaux facilements ✓ - Forum Jeux vidéo
- Sur quelle bloc les araignées ne peuvent pas monter ✓ - Forum Minecraft
- Livreur refuse de monter les escaliers - Forum Consommation & Internet
- Comment dans les sims 3 faire monter les sims dans leur appartement ? - Forum Jeux vidéo
- Est-ce que les PC sur agando-shop.com sont montés ? ✓ - Forum Matériel & Système
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!