[Resolvido]Somar Casas Decimais Coluna Caixa De Listagem

Possuo um campo de nome TxtSomaColuna que soma uma coluna de uma caixa de listagem, porém ele não está somando as casas decimais .

Estou utilizando o código abaixo:

Private Sub SomaLista()

Dim soma As Single
Dim k As Integer

For k = 1 To Me.ListaMedProcessos.ListCount - 1
If Val(ListaMedProcessos.Column(11, k)) > 0 Then soma = soma + Val(ListaMedProcessos.Column(11, k))
Next k
Me.TxtSomaColuna = soma

End Sub

Preciso que a soma leve em consideração também as casas decimais e não apenas os números inteiros.

Boa tarde.

A função VAL() é usada para Texto, que mantém as casas decimais.
No seu caso como é numero ele mata a casa decimal.

Coloque a função Str() dentro do Val()

Exemplo:
Val(Str(ListaMedProcessos.Column(11, k)))

Holanda, boa tarde

Infelizmente não deu certo.

O seguinte erro apareceu:

Erro em tempo de execução 13:
Tipos incompatíveis

Boa noite

Tente assim :

Troque

Dim soma As Single

por

Dim soma As Double

Ou poste os dados se não resolver

Tira o Val()

If Val(ListaMedProcessos.Column(11, k)) > 0 Then soma = soma + IIF(Nz(ListaMedProcessos.Column(11, k),"") = "", 0, ListaMedProcessos.Column(11, k))

Holanda, agora deu certo.

Muito Obrigado.

Assis, obrigado também.