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