Listbox sum of columnt (thread702-673191) 1

[Grey0ne]

Hi,
I do have a question how to make a sum in textbox on form with listbox by a column,
in these thread found an advice but its not working for me somehow
listbox name is lstOrders, column for which sum is needed is 6, textboxname - tboListSum

in source code of textbox - tboListSum=sumListboxColumn([lstOrders];6)
and the function is the same as in old thread -
Public Function sumListboxColumn(lstbox As Control, columnNumber As Integer) As Integer
On Error GoTo Err_sumListboxColumn
Dim counter As Integer
Dim total As Integer
total = 0
For counter = 0 To lstbox.ListCount - 1
total = total + lstbox.Column(columnNumber, counter)
Next counter
Exit_sumListboxColumn:
sumListboxColumn = total
Exit Function
Err_sumListboxColumn:
MsgBox Err.Description
Resume Exit_sumListboxColumn
End Function

Can anyone explain me why its not working? got a #Name? error...

 

[TheAceMan1]

How are ya Grey0ne . . .
[ol][li]Replace lstbox with Me!lstOrders and sumListboxColumn with Me!tboListSum[/li]
[li]Check the Name property of the above controls to be sure.[/li][/ol]

See Ya! . . . . . .

 

[PHV]

Have you tried this as ControlSource ?
=sumListboxColumn([lstOrders];6)

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Grey0ne]

2PHV
yeap, but when trying to open form i do get this error
Invalid Use or Null

When click on Ok (the only available button) receive a 0 in textbox

2TheAceMan1
in here?
tboListSum=sumListboxColumn([lstOrders];6)?
nope, Name property is the same, but still #Name? err

 

[PHV]

You may try the following in your function:
total = total + Nz(lstbox.Column(columnNumber, counter), 0)

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Grey0ne]

PHV
thanks, helped, now at least i know it wasn't summing anything, got a "0" )

ok, question is if a rowsorce columns as follows
Tellimus(number); Klient(text); Maksja(text); Kuupaev(date); Pank(text); Kokku(currency)
and i want sum for "kokku" column - it is a 6 one?
and if itis a currency do i need to change anything in the VBA code?

 

[Grey0ne]

because i dont understand what it is summarizing then, if it gets a "0" as a rezult

 

[PHV]

Here the column numbers:[tt]
Tellimus; Klient; Maksja; Kuupaev; Pank; Kokku
0 1 2 3 4 [!]5[/!][/tt]

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Grey0ne]

THANKS!