Error que hace que se salga del programa

Juan
24 de Mayo del 2006
Tengo un programa de facturacion hecho por mi.
El unico error que hay es que cuando el usuario introduce una letra donde hay que poner un numero, se sale del programa.Quisiera saber como puedo hacer para que salga el error pero que no se salga del programa gracias.

jhon
24 de Mayo del 2006
Pos tienes q tomar el codigo del error y derivarlo a una rutina q lo maneje ese capitulo se llama "Manejo de errores"

Puedes hacer algo como esto:

On error goto xManejo

'codigo:
xxxxxxxxxxxxxx
xxxxxxxxxxxx
xxxxxxxxxxxxx

exit sub

xManejo:
if err=13 then
msgbox "Se ingresó una letra"
end if

Existe abundante documentación sobre esto, saludos y suerte

Rosa
24 de Mayo del 2006
Hola, otra cosa que puedes hacer es validar que sólo se ingresen números al momento de digitarlos, para eso puedes usar el evento keypress de la caja de texto y llamar a esta función pública.

\'En un módulo .bas
Public Function ValidaNumeros(KeyAscii As Integer)

ValidaNumeros = KeyAscii

Select Case KeyAscii
Case vbKey0 To vbKey9, vbKeyReturn, 8
Case Else
ValidaNumeros = 0
End Select


End Function



\'En la caja de texto
Private Sub txtMeses_KeyPress(KeyAscii As Integer)

KeyAscii = ValidaNumeros(KeyAscii)

End Sub

Lo que también tienes que tomar en cuenta es que se puede copiar y pegar con el menú contextual cualquier cadena y ahi no se va a ejecutar el evento keypress, ahi si puedes usar un manejador de errores, o de lo contrario deshabilitar el menú contextual usando APIs