SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Carola en Lunes 24 de Febrero de 2003, 01:57

Título: Re: ayuda
Publicado por: Carola en Lunes 24 de Febrero de 2003, 01:57
hola
como puedo arreglarlo  para que no me de error si no se entra información en los inputbox. Yo se muy poco, apenas estoy aprediendo y espero que me ayuden.

------------------------------------------------------
Private Sub Command1_Click()
Dim cantidad As Integer
Dim articulos As String
Dim precio As Integer
Dim total As Integer

cantidad = InputBox("Intruduzca la Cantidad", "Introducir")
List1.AddItem cantidad
articulos = InputBox("Intruduzca el Artículo", "Introducir")
List2.AddItem articulos
precio = InputBox("Intruduzca el Precio", "Introducir")
List3.AddItem precio

total = (cantidad * precio)
List4.AddItem total


Text1.Text = Val(Text1.Text) + Val(total)

End Sub
Título: ayuda
Publicado por: J.M.Movilla en Lunes 24 de Febrero de 2003, 20:30
Hola, Carola:

La verdad es que el método que utilizas para inputar los valores no es muy ortodoxo, que digamos; pero tampoco tiene por qué darte errores... Para evitarlos, rectifícalos así:

cantidad = InputBox("Intruduzca la Cantidad", "Introducir")
cantidad = cantidad + 0
List1.AddItem cantidad
articulos = InputBox("Intruduzca el Artículo", "Introducir")
articulos = articulos + " "
List2.AddItem articulos
precio = InputBox("Intruduzca el Precio", "Introducir")
precio = precio + 0
List3.AddItem precio

total = (cantidad * precio)
List4.AddItem total


Text1.Text = Val(Text1.Text) + Val(total)

Espero que con esos detallitos no te quede ningún campo vacío...

Saludos