Amigos,

tenho uma caixa de listagem que lista valores do tipo:

789
5464
754

o que eu preciso é somar esses valores e jogar em textbox...

eu conheça essa função que conta os itens da lista e joga o valor na textbox, só que eu preciso somar.

Dim lngItens2 As Long
lngItens2 = LISTacesso.ListCount
acessosocup = lngItens2

assim

caixa de listagem exiba os valores

120
123
12

precisaria que a textbox exibisse o total 255. a função que conheça ela contaria e informaria 3.

obrigado

Caro Wagner,

Creio que a forma mais simples para isso é vc, após converter em textbox, criar uma consulta e, nesta consulta, vc pode tanto contar como somar.

Sem mais,

Andreson
andreson.r@globo.com

Os objetos Caixa de listagem e Caixa de combinação tem a propriedade Origem da linha (ou RowSource), que vem a ser uma consulta ou lista de valores. Se esta propriedade se referenciar a uma tabela ou consulta, pode-se criar um recordset a partir dela, e então, percorrendo os registros deste recordset, calcular o que for necessário. Por exemplo, num evento qualquer de um formulário, para somar os valores apresentados, basta fazer assim:

dim rst as recordset
dim soma as long
Set rst = currentdb.openrecordset(Me.Lista.RowSource)
with rst
do while not .eof
soma = soma + ![campo a ser somado]
.movenext
loop

ou, usando a notação de colunas, de acordo com a caixa de listagem:

...
do while not rst.eof
soma = soma + rst([número_da_coluna_de acordo_com_a_caixa_de_listagem])
rst.movenext
loop

ou ainda, para os preguiçosos:

soma = Dsum("campo_a_somar",Me.Lista.Rowsource)

E para contar a quantidade de registros de uma caixa de listagem.....

Vc poderia me ajudar ?

Para contar, o enfoque é o mesmo. Em vez de somar um valor qualquer, somamos 1 para cada
registro:

dim rst as recordset
dim contar as long
Set rst = currentdb.openrecordset(Me.Lista.RowSource)
with rst
do while not .eof
contar = contar + 1
.movenext
loop

ou, usando a propriedade recordcount do recordset:

Set rst = currentdb.openrecordset(Me.Lista.RowSource)
with rst
if not .eof then
.movelast ' necessário para que recordcount aponte para o último
contar = .recordcount
set rst = nothing

ou ...:

soma = DCount("*",Me.Lista.Rowsource)

--------------------

Roberto

Amigos

obrigado pela atenção, com a função que tem no site do carlos eu consegui.

grande abraço