Respuesta a: Dudas de Access

#9100

Felipe
Participante

<span style=”color: #444444; font-family: Lato; font-size: 14px;”>Mientras hacia el ejercicio de control de flujos del numero factorial, se me presento un detalle en la ejecución del programa, no me corre el elseif que me controlaba el error de no coinciden los tipos, porque cuando ingreso el texto no me sale el texto que debería salir si no el error que del programa por si acaso aquí están mis lineas de código</span>

 

Sub uso_while()

 

Dim numero As Integer, contador As Integer, resultado As Integer

 

numero = InputBox(“Ingrese el numero que desea calcular “)

 

contador = numero – 1

 

resultado = numero

 

On Error GoTo mietiqueta

While contador > 1

 

resultado = resultado * contador

 

contador = contador – 1

 

 

Wend

 

 

MsgBox (“El factorial de el numero ” & numero & ” es ” & resultado)

 

Exit Sub

 

mietiqueta:

 

If Err.Number = 6 Then

 

MsgBox (“Has ingresado un numero demasiado grande.”)

 

ElseIf Err.Number = 13 Then

 

MsgBox (“Has ingresado un texto”)

 

Resume 0

End If

 

 

End Sub