Cuando Trabajo con Dinero.??

[(RTT)Blackhawk]

Cuando a un campo le ingreso dinero .. en que lo tengo que poner ???? long , currenci , integer ?????



help pls...

[Eternal Idol]

Hablas de Visual Basic, no? Supongo que Currency seria lo mas correcto si es el caso.

[(RTT)Blackhawk]

si visual basic 6...

Lo deje en currency y no me resulta...


Private Sub Command1_Click()
On Error GoTo Error:

With Tabla ' Con la variable tabla hacer ...
.AddNew ' abrimos la tabla en modo de nuevo registro

!FechaI = 0
!valorI = 0
!ValorITO = 0
!Clase = 1
!FechaG = Text1.Text
!Tintas = Text2.Text
!Hojas = Text4.Text
!Cajas = Text5.Text
!Arriendos = Text6.Text
!Dvd = Text3.Text
!ValorGTO = Val(Text2.Text + Text3.Text + Text4.Text + Text5.Text + Text6.Text)


.Update ' grabamos el registro
End With ' terminamos el ciclo
Text1.SetFocus ' damos el foco al text1
' llamamos a la funcion Limpiar del Modulo Modulos para limpiar los texts
Exit Sub
Error:
MsgBox "Error : " & Err.Description
Resume Next
End Sub



Ese es el codigo de lo que estoy haciendo el problema es que SI ingreso en tintas por ejemplo 13.000 despues el ValorGTO me sale 130000000 ... PQ ??? !!! voy a llorar....

[Eternal Idol]

Poniendo 13.000 en el segundo textbox esto me da 13, mira.

http://www.c0d3rz.com.ar/files/dinero.zip

No se puden poner attachments en el foro??

[Avelar]

Porque no está sumando los valores de los TextBox sino concatenándolos. Convierte el .text de cada TextBox a número.

Saludos

[Eternal Idol]

Tenes razon; confusiones garantizadas en un lenguaje como este

[(RTT)Blackhawk]

osea seria solo cambiar el .text por .num ?????

no entendi que te cambiar ????


gracias por la ayuuda...

[Eternal Idol]

Tenes que reemplazarlo por esto:

ValorGTO = Int(Text2.Text) + Int(Text3.Text) + Int(Text4.Text) + Int(Text5.Text) + Int(Text6.Text)

[(RTT)Blackhawk]

FUNCIONO !!!! GRACIAS MAESTROS::!!!!!


MMUY AGRDECIDO !!!

[Eternal Idol]

De nadas y me alegro