Som maken van kolom uit listbox in tabbesturingselement)

[ddjelle]

Hallo,

Ik ben aan het proberen om een som te maken van een Kolom uit een listbox.

Formulier : frmVerbruik
Listbox: lstSelectieMars
Veld waar de som in moet komen: txtSomMars
Kolom waarvan de som gemaakt moet worden: 4

Uiteindelijk zou het de bedoeling zijn om in hetzelfde te doen in het tabbesturingselement link van de listbox.
Extra info:
Naam tabbesturingselement: tabbesturing
Naam van de tab zelf: Mars
Listbox op de tab: lstSelectieMarsInBox
Veld voor de som op de tab: txtSelectieMarsInBox

Ik weet dat er een soort loop moet gemaakt worden maar geraak er niet uit.
Mijn gedachte was in de richting van:
=Som(Me!lstSelectieMars.Column(4,x)
En dan elke rij laten aflopen en optellen maar het lukt me niet.
Misschien iemand een idee?

Alvast bedankt

 

[MitchelRijs]

tja, jouw idee

het is toch geen excel?

is snap niet helemaal wat je bedoelt..

maar ik denk nu dat je 2 dingen bij elkaar wilt optellen?

als je me het project stuur kijk ik wel even

 

[huijb]

Verplaatst naar VBA sectie.

 

[snb]

de som van alle elementen in lijstvak lstSelectieMarsInBox:

for j=1 to lstSelectieMarsInBox.listcount
  c0=c0 +lstSelectieMarsInBox.list(j,4)
next

de som van alle geselecteerde elementen in lijstvak lstSelectieMarsInBox

for j=1 to lstSelectieMarsInBox.listcount
  if lstSelectieMarsInBox.selected(j) then c0=c0 +lstSelectieMarsInBox.list(j,4)
next