MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    Fazer campo Txt aceitar só números no Access e VB

    mmx
    mmx
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 10/01/2013

    Fazer campo Txt aceitar só números no Access e VB Empty Fazer campo Txt aceitar só números no Access e VB

    Mensagem  mmx em 18/5/2013, 05:35

    Tanto pela minha necessidade quanto pela de vocês companheiros, estou postando esse código para auxiliar no nosso trabalho é muito útil principalmente para campos de CPF e CNPJ ou demais que você não pode por máscara.

    Verifique no KeyPress da Text Box se o KeyAscii é um tipo válido. Se não for, zere-o que assim ele será cancelado.

    Private Sub txtCampo_KeyPress(KeyAscii As Integer)
    If Not IsNumeric(CHR$(KeyAscii)) Then
    ' Não é número
    KeyAscii = 0
    End If
    End Sub


    O KeyAscii volta o código Asc, o CHR$ transforma ele no seu valor real, assim você pode verificá-lo.

    Espero ter ajudado,

    Créditos para o colega (Julay)


    Última edição por mmx em 20/5/2013, 16:24, editado 1 vez(es) (Razão : Resolvido)
    fsouza32
    fsouza32
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 22/01/2013

    Fazer campo Txt aceitar só números no Access e VB Empty Re: Fazer campo Txt aceitar só números no Access e VB

    Mensagem  fsouza32 em 3/2/2016, 12:47

    Muito bom, só que impede o uso do Backsapce!
    Tem como liberar o backspace?
    Valeu
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4234
    Registrado : 06/11/2009

    Fazer campo Txt aceitar só números no Access e VB Empty Re: Fazer campo Txt aceitar só números no Access e VB

    Mensagem  Assis em 3/2/2016, 14:51

    Boa tarde

    No Key Press


    Private Sub Comp_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
    Case 8, 44, 48 To 57 ' {Backspace}, {,}, {0} a {9}, aceita estes caracteres. ' Continua
    Case 46 ' {.}, troca ponto por virgula.
    KeyAscii = 44 ' {,}
    Case Else
    KeyAscii = 0 ' Demais teclas, não aceita.
    End Select
    End Sub


    .................................................................................
    *** Só sei que nada sei ***
    fsouza32
    fsouza32
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 22/01/2013

    Fazer campo Txt aceitar só números no Access e VB Empty Re: Fazer campo Txt aceitar só números no Access e VB

    Mensagem  fsouza32 em 3/2/2016, 16:05

    ótimo! Funcionou
    Obrigado Assis!!! cheers

      Data/hora atual: 3/12/2020, 10:27