Visual Basic - echadle un vistazo a este codigo

Life is soft - evento anual de software empresarial
 
Vista:

echadle un vistazo a este codigo

Publicado por pepe zafra (3 intervenciones) el 22/10/2005 12:29:24
Quiero arreglar esta rutinilla para que al pulsar el botón Cancel termine dicho programa:




Lbl1:

x = InputBox("Nº de obras que certificó el pasado mes", "PLAVIFOM")

If Not IsNumeric(x) Then

MsgBox "Debe introducir un número entero", 16, " ¡Atención!"

GoTo Lbl1:

End If
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:echadle un vistazo a este codigo

Publicado por Gustavo (181 intervenciones) el 22/10/2005 20:57:47
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
x = InputBox("Nº de obras que certificó el pasado mes", "PLAVIFOM")

If Not IsNumeric(x) Then
MsgBox "Debe introducir un número entero", 16, " ¡Atención!"
Cancel = True
End If

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar