OnlyNumbers. Permitir sólo la entrada de números en un cuadro de texto

Pregunta

¿Qué código debería utilizar para que un cuadro de texto sólo permita la entrada de números o el separador de miles o el separador decimal (además del retroceso, el enter y el tabulador, claro)?

Respuesta

Puedes utilizar el siguiente procedimiento y llamarlo desde el evento Al presionar una tecla (KeyPress) del cuadro de texto. Es importante que utilices exactamente ese evento, pues aunque hay otros dos eventos de pulsación de teclas, el efecto no sería el mismo. Para llamarlo lo harías de esta manera

Call OnlyNumbers(KeyAscii)

Codigo

'--------------------------------------------------------
'
' OnlyNumbers
'
' Código escrito originalmente por Juan M Afán de Ribera.
' Estás autorizado a utilizarlo dentro de una aplicación
' siempre que esta nota de autor permanezca inalterada.
' En el caso de querer publicarlo en una página Web,
' por favor, contactar con el autor en
'
'     accessvba@ya.com
'
' Este código se brinda por cortesía de
' Juan M. Afán de Ribera
'
Sub OnlyNumbers(KeyAscii As Integer)
    ' si no es un número entre el 0 y el 9
    ' o es un punto o una coma
    If Not Chr(KeyAscii) Like "[0-9,.]" Then
        Select Case KeyAscii
            ' si es un retroceso, enter o tabulación
            Case vbKeyBack, vbKeyReturn, vbKeyTab
            ' no se hace nada
            Case Else
                ' si no, se anula el caracter
                ' introducido
                KeyAscii = 0
                Beep
        End Select
    End If
End Sub
'---------------------------------------------------------

Créditos

con el fin de dar a conocer el trabajo de uno de los más grandes en el mundo de Access en español, y tras solicitar su permiso, replico este artículo de Juan M Afán de Ribera. Todos los derechos y autoría corresponden a él. Access & VBA FAQ – OnlyNumbers. Permitir sólo la entrada de números en un cuadro de texto (archive.org)