MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]caixa de texto somente numero

    Compartilhe
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 331
    Registrado : 05/03/2017

    [Resolvido]caixa de texto somente numero

    Mensagem  fazerbem em 25/9/2018, 19:44

    Ola, como posso fazer om que uma caixa de texto aceite somente numeros ou somente letras ?

    Grato
    avatar
    Thel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 19/06/2012

    Re: [Resolvido]caixa de texto somente numero

    Mensagem  Thel em 25/9/2018, 20:09

    Olá!

    1. PARA ACEITAR SOMENTE NÚMEROS: No evento 'Ao Pressionar Tecla' da tua caixa de texto digite:

    Código:
    Private Sub TuaCaixaDeTexto_KeyPress(KeyAscii As Integer)

    'TECLAS LIBERADAS:
    ' TODOS OS NÚMEROS ;
    ' BACKSPACE;
    ' TAB;
    ' ENTER;
    ' ESC;
    ' ESPAÇO;
    ' DELETE.


    Select Case KeyAscii

    Case 48 To 57, 8, 9, 11, 13, 27, 32, 127
    KeyAscii = KeyAscii
    Case Else
    MsgBox "SOMENTE NÚMERO É PERMITIDO NESTE CAMPO!", vbCritical, "ERRO"
    KeyAscii = 0
    End Select

    End Sub



    2. PARA ACEITAR SOMENTE LETRAS (SEM ACENTO): No evento 'Ao Pressionar Tecla' da tua caixa de texto digite:

    Código:
    Private Sub TuaCaixaDeTexto_KeyPress(KeyAscii As Integer)

    ' TECLAS LIBERADAS:
    ' TODAS AS LETRAS MAIÚSCULAS, SEM ACENTO;
    ' TODAS AS LETRAS MINÚSCULAS, SEM ACENTO;
    ' BACKSPACE;
    ' TAB;
    ' ENTER;
    ' ESC;
    ' ESPAÇO;
    ' DELETE.

    Select Case KeyAscii

    Case 65 To 90, 97 To 122, 8, 9, 11, 13, 27, 32, 127
    KeyAscii = KeyAscii
    Case Else
    MsgBox "SOMENTE LETRA, SEM ACENTO, É PERMITIDA NESTE CAMPO!", vbCritical, "ERRO"
    KeyAscii = 0

    End Select
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 331
    Registrado : 05/03/2017

    Re: [Resolvido]caixa de texto somente numero

    Mensagem  fazerbem em 25/9/2018, 21:49

    Muito Obrigado, funcionou certinho.

    Andre
    avatar
    Thel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 19/06/2012

    Re: [Resolvido]caixa de texto somente numero

    Mensagem  Thel em 25/9/2018, 21:52

    Disponha!

    Very Happy Very Happy

      Data/hora atual: 26/3/2019, 02:59