Boa tarde amigos, estou prescisando de uma forcinha, já tem um bom tempo que eu estou aprendendo vb6 só com as apostilas e dicas aqui do vbweb, mas o problema é o seguinte:

Não consigo somar os valores veja:

 

  Private Function BuscaMe()
Txt_ValorUnidade.Text = Bc!valor     'Busca a mercadoria e o valor , correspondente'
Lbl_descricao.Caption = Bc!descriçao

End Function

Public Function Calcula()
Dim Total As Currency              'multiplica a quantidade da mercadoria pelo valor'
If Txt_Quantidade.Text <> "" Then
    Total = (Val(Txt_Quantidade.Text)) * Val(Txt_ValorUnidade.Text)
   
Txt_subTotal.Text = Total
End If
End Function

Private Sub Txt_Quantidade_LostFocus()
Calcula
Soma

End Sub

 

Public Sub Soma()
Dim Total As Currency  ' soma o subtotal + o total = achar o valor da compra'
If Txt_subTotal.Text <> "" And Txt_ValorTotal.Text = "" Then
   Txt_ValorTotal.Text = Val(Txt_subTotal.Text)
 ElseIf Txt_ValorTotal.Text <> "" Then
        Txt_ValorTotal.Text = Val(Txt_ValorTotal.Text) + Txt_subTotal.Text
        Txt_subTotal.Text = ""
       
       End If
o problema é que na tabela está nesse formato R$ 8,00 ai da o erro

mas se tiver nesse formato 8 ou 8,00 ai da certo será que alguem poderia ajudar um pricipiante.

desde já muito obrigado.

ps.

vejo sempre falando para encerrar o tropico e eu ainda não endendi como faz isso, me desculpe a iguinorancia.

O Seu problema está em declarar os valores o Val não é o indicado apra operação matemáticas, veja as conversões indicadas.

 

Lembrando que todos textbox são tratados como texto

 

CCur  -> Converte para Moeda Corrente ex: CCur( "153.20") ' resultado 153,2

CDbl  -> Converte para Double ex: CDbl("153.20") 'Resultado 153,2

CInt  -> Converte para valores inteiros ex: CInt("153.20") 'resultado 153

 

o ideal mesmo é você declarar variaveis para assumirem os valores dos textbox, EX:

 

Public Function Calcula()
Dim Total As Currency, Quant As Integer, VUnit As Currency  
If Txt_Quantidade.Text <> "" Then 

Quant  =  Txt_Quantidade.Text

VUnit =  Txt_ValorUnidade.Text
Total =  Quant  *  VUnit
Txt_subTotal.Text = Total
End If
End Function

 

Public Function Calcula()
Dim Total As Currency, Quant As Integer, Vunit As Currency
If Txt_Quantidade.Text <> "" Then
   Quant = Txt_Quantidade.Text
   Vunit = Txt_ValorUnidade.Text
   Total = Quant * Vunit
Txt_subTotal.Text = Total
End If
End Function

 

Ainda não conseguir, quando faço o teste ele aponta para Vunit = txt_valorUnidade.text

será q o erro é porque na tabela está R$  no campo valor 

não sei qual o problema mas acredito que o valor estreja sendo exibido errado.

 

como o valor em txt_valorunidade está aparecendo.

 

pois pra mim deu certo

 

 os unicos testes que ocasionaram erro foram

 

R 8,00

$ 8,00

R$_8,00

R$ 8 00

 

R$ 8,00 funciona sem problemas