[AC-2010] Calculs de colonnes dans des zones de liste

[Serod]

Bonjour à tous !

Je dois créer un état imprimable faisant un résumé d'un liste de matériel.

Le matériel est entre autre caractérisé par un prix d'achat et ses quantités en stock.

J'ai donc une zone de liste avec tout le matériel et je veux une seconde zone de liste "total" où total = quantité * prixAchat.

quantité est de type numérique et prixAchat est de type monétaire.

J'ai tenté de faire:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Report_Load()
 
i = 0
While (i < Me.lb_listeMateriel.ListCount)
Me.lb_listeMateriel.Selected(i) = True
qte = Me.lb_listeMateriel.Column(3, i)
pa = Me.lb_listeMateriel.Column(4, i)
total = qte * pa
Me.lb_total.AddItem (total)
i = i + 1
Wend
End Sub

Mais la listbox lb_total reste vierge et le module VBA me dit que
total = vide.
qte = "STO_QUANTITE"
PA = "ART_PRIXACHAT"
L'erreur est erreur 13 incompatibilité de type
Comment faire pour afficher les prix totaux de chaque matériel?


Merci de votre aide

[jpcheck]

Hello,

tout bon programmeur se doit de déclarer les variables qu'il utilise en début de fonction/procédure

Dans ce que je lis, tu tentes de multiplier des chaînes de caractères entre elles, est-ce voulu ?

[Serod]

En quoi je tente de multiplier des chaines de caractères entre elles?

Je débute en VBA, j'essaye de faire au mieux...

En tout cas le problème est réglé. Pour cela j'ai été dans les propriétés de la listbox lb_listeMateriel et j'ai lié la colonne 4 (à la place de la 1) et j'ai bien tout les totaux dans la lisbox lb_total.

Par soucis de rigueur, pourriez vous m'exposer votre façon de procéder?

Autre question, dès que je veux additionner toutes les lignes de la listbox lb_total Access "A rencontré un problème et doit fermer..."
Comment faire?

J'ai fait un

Code :

1
2
3
4
5
6
7
8
 
i = 0
While(i < Me.lb_total.listcount)
Me.lb_total.Selected(i) = True
//tb_total est une textbox qui devrait contenir le résultat
Me.tb_total = Me.tb_total + Me.lb_total.Value
i = i + 1
Wend

Merci pour toute aide apportée.