canal visual basic .net

Recursos Visual Basic.NET, VB.NET, Manuales de programación, Tutoriales, Foros de programación, Comunidad de programadores

Usuarios activos:  134

Foros de programación, recursos, tutoriales, sistemas operativos...

Bienvenido a la zona de foros. Participa en alguno de nuestros foros: Foros de visual basic, foros de visual basic.net foros de Crystal reports, foros de C++ - C# , foros de Java, foros de PHP, foros de ASP.net. Seguro que hay un foro que te servirá de gran utilidad y si no lo encuentras avísanos y crearemos uno nuevo.
 

Retroceder   Foro > Canal Visual Basic > Visual Basic 6.0
 
LinkBack Herramientas Buscar en Tema Desplegado
  #1 (permalink)  
Antiguo 01-Jul-2009, 20:10
Junior Member
Iniciad@
 
Fecha de Ingreso: 01-July-2009
Mensajes: 4
Predeterminado Error 6 Desbordamiento

Hola Gente soy nuevo en esto y tengo el siguiente problema. Cree un formulario para carga de datos en una planilla Excel, uno de los textbox tiene una formula de división que toma valores de otros dos textbox y siempre me da como resultado Error 6 en tiempo de ejecución, Debordamiento.
A la misma formula le cambio el signo de división “/” por cualquier otro (*;+;-)y funciona perfectamente. Abajo les detallo los intentos efectuados con igual resultado.

Les agradezco toda ayuda….

Intento 1:
TextBox7 = Val (Texbox2) / Val (TextBox2)

Intento2:
Dim D As Long
Dim E As Long
Dim F As Long
D = Val(TextBox5)
E = Val(TextBox2)
F = CLng(D) / CLng(E)
TextBox7 = F

Intento3:
Dim D As String
Dim E As String
Dim F As String
D = Val(TextBox5)
E = Val(TextBox2)
F = D / E
TextBox7 = F
Responder Citando
  #2 (permalink)  
Antiguo 02-Jul-2009, 01:41
Avatar de seba123neo
Moderador
Guru
 
Fecha de Ingreso: 19-October-2006
Ubicación: Argentina
Mensajes: 2.785
Predeterminado

Hola, cuando te tira el error ¿que valores estas dividiendo?

saludos.
__________________
Todos somos ignorantes;lo que pasa es que no todos ignoramos las mismas cosas - Albert Einstein
Responder Citando
  #3 (permalink)  
Antiguo 02-Jul-2009, 14:38
Junior Member
Iniciad@
 
Fecha de Ingreso: 01-July-2009
Mensajes: 4
Predeterminado

Hola Seba,
Respondiendo a tu pregunta, son importes, valores enterros. Ej: 2000 / 1000. El objetivo es sacar sobre un monto total un valor unitario.
Responder Citando
  #4 (permalink)  
Antiguo 02-Jul-2009, 18:13
Avatar de HAL9000
Senior Member
Expert@
 
Fecha de Ingreso: 23-February-2009
Ubicación: Spain
Mensajes: 306
Predeterminado

Seguramente estás dividiendo por 0. O no permites que se introduzca un 0 en el TextBox que sea denominador o bien chequeas antes el valor y si no es 0 divides, y si lo es retornas 0 o un mensaje de error, por ejemplo.
Saludos.
__________________
La doctrina en cuestión es la siguiente: no es deseable creer una proposición cuando no existe fundamento para suponer que sea cierta. [Bertrand Russell]
Responder Citando
  #5 (permalink)  
Antiguo 02-Jul-2009, 20:30
Junior Member
Iniciad@
 
Fecha de Ingreso: 01-July-2009
Mensajes: 4
Post

Hola HAL9000, El error cualquiera sea el valo que asigne. Por ejemplo 2 / 1
Responder Citando
  #6 (permalink)  
Antiguo 02-Jul-2009, 21:25
Junior Member
Iniciad@
 
Fecha de Ingreso: 01-July-2009
Mensajes: 4
Smile

HAL,
Tenías razón. Me recomendaron que comience con:
If Val (TextBox2) = 0 Then Exit Sub
y funcionó a la perfección.
Muchas Gracias
Responder Citando
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder mensajes
No puedes subir archivos adjuntos
No puedes editar tus mensajes

Los Códigos BB están Activado
Las Caritas están Activado
[IMG] está Activado
El Código HTML está Desactivado
Trackbacks are Activado
Pingbacks are Activado
Refbacks are Activado



La franja horaria es GMT +2. Ahora son las 23:14.


Visual Studio .VisualBasic.net .ADO.NET .ASP.NET .Framework .Crystal report
[Visual Basic .NET · Información legal · Condiciones de uso · Publicidad · Contacto · RSS novedades Foro · Inicio]
Un sitio web de Internelia (Ontecnia) © Copyright 2010 canalvisualbasic.net. Todos los derechos reservados