DUDA CON CODIGO PARA VALIDAR

[CARRY-ON]

Tengo este codigo que no permite el ingreso de letras pero quiero adaptarlo , para que de un aviso cuando se ingresa una carcter que no sea numero  puse un msgbox despues del then peor no funciona por que muestra el mensjae siempre aunque ingrese un numero

Código [Seleccionar] Expandir

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then GoTo 1
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
1: ''

End Sub


[Nakp]

no seria el evento change?

salu2

[CARRY-ON]

QUE NO ENTIENDO LO que DIJISTE ESE CODIGO ME FUNCIONA PERO quiero AGREGAR UN MENSAJE no se si me explike bieen o no?

[cassiani]

 Posiblemente no cerraste el bloque IF despues de agregar el msgbox.

Código (vb) [Seleccionar] Expandir

Private Sub Text1_KeyPress(KeyAscii As Integer)
'Este procedimiento permite que se incerten, solo las teclas deseadas usando la Ascii.

    If KeyAscii <> 8 Then 'Verifica si se presionó las teclas de direcciones.
        If KeyAscii < 48 Or KeyAscii > 57 Then
                KeyAscii = 0
                MsgBox "Intentas introducir caracteres no deseados", vbCritical, "Caracter no válido"
        End If
    End If
End Sub

[zXxOsirisxXz]

solo tenias k agregar un "and" luego de Ascii = 0, y poner "MsgBox" pero weno. ia te dieron otra respuesta.

Espero k souciones tu problema.

bye.