[Resolvido]soma desconto

Boa tarde colegas. estou com dificuldade em somar o desconto  estou.

Código:

Function descontoDaLista()
   'SOMAR DESCONTO DA LISTA
Dim desconto As Currency, d As Integer
 On Error GoTo Trata_Erro
  
  For d = 1 To Me.listaDeVendas.ListCount - 1
desconto = desconto + Me.listaDeVendas.Column(4, d)
Next d
Me.txtDescontoAbaixo = desconto
Trata_Erro:
MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"

End Function


o erro está gerando 0- eu busquei sobre esse erro e não encontrei
esta dando outros problemas ,mas de primeiro não consigo resolver o problema gerado

uma sugestão :

porque criar uma função, voce pode criar uma sub
e o desconto declare como double e tente rodar

sub descontoDaLista()
'SOMAR DESCONTO DA LISTA
Dim desconto As double, d As Integer
On Error GoTo Trata_Erro

For d = 1 To Me.listaDeVendas.ListCount - 1
desconto = desconto + Me.listaDeVendas.Column(4, d)
Next d
Me.txtDescontoAbaixo = desconto
Trata_Erro:
MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"

End sub

Nois , essa é uma das questões .
 uma delas é essa gera o mesmo erro
 ele pode somar , mas o erro é gerado, e como já fiz outras vesses de ocultar o erro  la na frente começa a  puxar 4 erros seguido.

posta uma parte do bd

quando declara um "for" entende-se que para ele ir avançado para outras linhas no entanto ele "Grava" e para
não entendi o porque do uso

For d = 1 To Me.listaDeVendas.ListCount - 1
desconto = desconto + Me.listaDeVendas.Column(4, d)
Next d
Me.txtDescontoAbaixo = desconto

a soma resolvi, mas gerando o mesmo erro que estou buscando o que significa mas nada

Mata o erro assim então

on error resume next


não é a melhor solução mas ja resolve

nois,  o medo é  se outra pagina puxar o código desse, porque quando criei os campo total e subtotal e o botão remover tanto ele voltou com erro. Vu refazer diferente para ver ...

estou passando mal nesse sistema, o problema é que ele não quer remover item so remove se eu adicionar desconto, o total não é subtraído sendo que o comando adicionar é do mesmo formato do remover

fica difícil de te ajudar sem postar nada

Não está acontecendo nenhum erro.

O problema é que não tem tratamento no código impedindo o código de seguir para a parte que mostraria o erro (se ele existisse).

Em resumo: cadê o exit sub antes de trata_erro?

crysostomo, a dica que dei resolveu?

Boa noite Dasmasceno.
Eu estava fazendo pela depuração, mas não exibiu nenhum erro ou não ter entendido como usar.
Como o problema é formatação e o problema estava no campo do Desconto entendi que o campo não podia ficar vazio se não dava erro de formatação, mas mesmo assim nao entendi o porque deste peoblema então fiz  o seguinte;
Quando faço a busca de preços ele já coloca o campo Me.txtDesconto="0,00" para não ficar  vazio.
Mas mesmo assim continuo preocupado lá na frente não dar problema.

crysostomo, me refiro a caixa de mensagem mostrando o erro 0.

Colocou o exit sub antes do trata_erro?

No momento estou fora do computador.quando mexer de novo eu te falo pois troquei alguns códigos.