Bom Dia Amigos

 

Estou com o seguinte problema.Eu tenho que trabalhar com valores negativos e decimais e uso a sintaxe abaixo.

rscmdAux!TBPEC_ESTATUAL = CDbl("0" & rscmdAux!TBPEC_ESTATUAL) + str_Qtd

 

Neste caso da erro quando "rscmdAux!TBPEC_ESTATUAL" e negativo, pois o "CDBL" nao aceita numeros negativos.

 

Por outro lado eu posso usar o "Val" no lugar do "CDBL",pois este aceita numeros negativos mas nao reconhece a parte decimal.

rscmdAux!TBPEC_ESTATUAL = val(rscmdAux!TBPEC_ESTATUAL) + str_Qtd

 

O campo TBPEC_ESTATUAL, foi definido como real no BD.

 

Como resolver esse problema?

 

Obrigado a todos

Opa, td bom colega? O CDBL aceita valores negativos sim, se está dando algo errado talvez seja o parâmetro de como está sendo passado. Este tipo de campo "real" eu não conheço, seria campo tipo currency? Simples? Debugando como vem o valor do campo em questão? Qual o erro que acontece qdo passa na linha do CDBL?

Cara tentar usar o ccur no lugar do val, pois eu utilizo com uma soma de numeros positivo com negativo e não tem problema algum, inclusive eles estão em um label

 

ex:

LblTotalPedido.Caption = CCur(LblTotalPedido.Caption) + CCur(LblValTotal.Caption)
LblTotalpedido.caption=457,56

Lblvaltotal.caption=-100

lbltotalpedido.caption=357,56

Quando vc coloca o "0" na frente do rscmdAux!TBPEC_ESTATUAL, se este for negativo (-50,45) vc vai ficar com a expressão 0-50,45. Por isso que dá erro.