|
|
Postada em 30/05/2007 18:19 hs
Pessoal, tenho uma caixa de texto com valor total. Exemplo: 100,00. Como faço pra mandar esse valor pro banco de dados com valor negativo. Ex: -100,00 ABraços Vanderlei Lamazale |
|
|
|
|
|
|
|
Postada em 30/05/2007 19:08 hs
Olá amigo, voce pode fazer de 2 formas :
1a.) Simplesmente qdo for enviar para o BD multiplicar por -1, ex.: txt = Format(CCur(txt) * -1, "#0.00")
2a.) Pode criar uma função que permite automaticamente qdo sair da caixa de texto vc deixar positiva (+) ou negativa (-), ex :
Private Sub Text1_LostFocus()
Text1.Text = MudarSinal(Text1.Text, "-") 'Se colocar (-) ficar negativo, Se colocar (+) ficará positiva mesmo q o valor seja negativo.
End Sub
Private Function MudarSinal(txt, Sinal) As String
If IsNumeric(txt) Then
If Sinal = "-" Then
txt = Format(CCur(txt) * -1, "#0.00")
Else
txt = Format(Abs(txt), "#0.00")
End If
End If
MudarSinal = txt
End Function
Qquer coisa é só chamar, t+
Alexandre Costa
ArtSoftSystems
Skype:artsoftsystems
MSN:alexandre.artsoft@hotmail.com
artsoftsystems@uol.com.br
|
|
|
|
|
|
Postada em 01/06/2007 11:32 hs
No momento que você estiver gravando os dados no banco, multiplique esse valor por -1 ex:seubanco!seucampo=100,00 * -1Isso se você estiver certo que esse campo sempre terá número positivo basta usar o comando acima, agora apenas para garantir sempre o valor negativo você poderia usar o ifif text1.text > 0 then seubanco!seucampo=text1.text * -1else seubanco!seucampo=text1.textendifÉ isso, qualquer coisa posta ai
Abraço e que DEUS te abençõe, espero poder ter te ajudado 
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
|
|
|
|
|
