Access - Solo permitir Numeros o Letra en un campo de texto

Sub EsNumero(Tecla As Control)

Dim x: If Tecla.Text <> ")" Then x = Len(Tecla.Text) + x

If Not IsNumeric(Tecla.Text) Then

MsgBox "solo numeros"

Tecla = Left(Tecla.Text, x - 1)

Tecla.SelStart = Len(Tecla)

End If

End Sub

EsNumero elTxtCampo

Private Sub Nombre_de_cliente_KeyPress(KeyAscii As Integer)

Dim NroCar As Integer

NroCar = 255

If InStr("ABCDEFGHIJKLMNÑOPQRSTUVWXYZ abcdefghijklmnñopqrstuvwxyz", Chr(KeyAscii)) = 0 And KeyAscii <> 8 Then KeyAscii = 0

If Len(Nombre.Text) >= NroCar And Nombre.SelStart = 0 Then Exit Sub

If Len(Nombre.Text) >= NroCar And KeyAscii <> 8 Then KeyAscii = 0

End Sub

Private Sub Fecha_KeyPress(KeyAscii As Integer)

Dim NroCar As Integer

NroCar = 11

If InStr("0123456789/-", Chr(KeyAscii)) = 0 And KeyAscii <> 8 Then KeyAscii = 0

If Len(Fecha.Text) >= NroCar And Fecha.SelStart = 0 Then

Exit Sub

If Len(Fecha.Text) >= NroCar And KeyAscii <> 8 Then KeyAscii = 0

End Sub

Private Sub Cantidad_jugado_KeyPress(KeyAscii As Integer)

Dim NroCar As Integer

NroCar = 9

If InStr("0123456789", Chr(KeyAscii)) = 0 And KeyAscii <> 8 Then KeyAscii = 0

If Len(Cantidad_jugado.Text) >= NroCar And Cantidad_jugado.SelStart = 0 Then Exit Sub

If Len(Cantidad_jugado.Text) >= NroCar And KeyAscii <> 8 Then KeyAscii = 0

End Sub