SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado 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
-
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