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....