Ajuda: Campo calculável em form vba Excel

[EvertonLaranjeir]

Boa Tarde Pessoal!

Estou com um projeto no excel, utilizando forms do vba (gravando em bd do access) e estou com uma dificuldade:

Em um dos forms, são imputados valores, e gostaria que a soma deste valores fosse calculado e apresentando em outro campo. Porém, gostaria que isso fosse visualizável antes de se gravar os registros.

No exemplo, seria +- assim:

Campo 1: txtQTD_SERVICO - 100

Campo 2: txtQTD_MATERIAL - 50

campo 3: txtQTD_RECIBO - 10

Campo 4: mostrar resultado da soma dos campos 1, 2, 3

Criei uma função, executável através de um botão....Porém, os valores não somam. Eles concatenam no campo 4 todos os resultados, apresentando um valor assim: 1005010.

Alguem pode me ajudar?

Obrigado

Segue a função que estou usando

Function somar()

TextBox1 = Format(Val(txtQTD_SERVICO)) + Format(Val(txtQTD_MATERIAL)) + Format(Val(txtQTD_RECIBO))


End Function




***Comando que chama a função

Private Sub CommandButton1_Click()

         Call somar

End Sub

Obrigado

[prygp]

Olá Everton,

Fiz um teste com o código abaixo, não sei se é a melhor forma, mas funcionou... : )

Quando sai do último campo ele calcula o total

Private Sub txtQTD_RECIBO_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    servico = Val(txtQTD_SERVICO)
    material = Val(txtQTD_MATERIAL)
    recibo = Val(txtQTD_RECIBO)

    txtTotal = Val(servico + material + recibo)

End Sub