Duvida No Txtmatrix

[Sami]

Estou trabalhando com (.TextMatrix) para aleitura dos campos.

Quando clico no botão salvar para mostrar a soma do valor da compra não aparece no text box as casas decimais depois da virgula.

O que devo fazer?

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

'Função Calcular Dados:

Private Sub CalcularDados()

With mshItens

Dim i, qtd As Integer

Dim valor As Double

For i = 1 To mshItens.Rows - 1

qtd = qtd + Val(.TextMatrix(i, 2))

valor = valor + Val(.TextMatrix(i, 3))

Next

End With

txtTotalQtd = qtd

txtTotal = valor

End Sub

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

'Botão Salvar

Private Sub cmdSalvar_Click()

Sql = "SELECT id, produto, valor FROM produto"

Call CalcularDados

End Sub

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

Obrigado

Samira

[kuroi]

o erro é na hora de declarar:

Dim i as Integer, qtd As Double

esse seria o correto.

pois variaveis do tipo Integer só suportam numeros inteiros, não guardam casas decimais.

[Graymalkin]

Na verdade o problema está na utilização da função Val() com valores com vírgula. Para Val() interpretar corretamente deveria ser o ponto ao invés da vírgula. Então, no seu caso o melhor seria utilizar a função CDbl().

Abraços,

Graymalkin