Programación General > Visual Basic 6.0 e inferiores

 Re: ayuda

(1/1)

Carola:
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

J.M.Movilla:
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

Navegación

[0] Índice de Mensajes