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]Aceitar apenas numero na InputBox

    Compartilhe

    LUIZF
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 13/01/2010

    Aceitar apenas numero na InputBox

    Mensagem  LUIZF em Sex 19 Mar - 1:31

    Boa noite a todos,

    Tenho abaixo codigo para abrir InputBox, onde e digitado NUMERO para abrir um formulario, o que preciso e que a (inputBox) aceite apenas Numeros e nao letras.

    Agradeço desde ja.

    Abraços


    Case vbKeyF4
    Dim resposta As Variant
    resposta = InputBox("Informe o numero do recibo ", "Baixar Recibo")
    If resposta <> "" Then
    DoCmd.OpenForm "BaixaRecibo", , , "Cod=" & resposta
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9776
    Registrado : 04/11/2009

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  JPaulo em Sex 19 Mar - 9:27

    Bom dia Luiz;

    Dim resposta As Variant
    resposta = InputBox("Informe o numero do recibo ", "Baixar Recibo")
    Do
    If Not IsNumeric(resposta) And resposta <> "" Then
    MsgBox "Não é permitido Letras, digite novamente...", vbCritical
    resposta = InputBox("Informe o numero do recibo ", "Baixar Recibo")
    Else
    DoCmd.OpenForm "BaixaRecibo", , , "Cod=" & resposta
    Exit Do
    End If
    Loop


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    LUIZF
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 13/01/2010

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  LUIZF em Sex 19 Mar - 16:29

    Ola JPaulo, tudo bem.

    Testei aqui e funcionou perfeitamente.

    Mais uma vez grato pela ajuda.

    Abraços.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9776
    Registrado : 04/11/2009

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  JPaulo em Sex 19 Mar - 23:50

    Valew Luiz, precisando de novo dê um grito.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  Assis em Qua 31 Jan - 12:10

    Bom dia JPaulo

    Parabéns pelo exemplo, funciona.

    E para aprimorar: como colocar nesta inputbox, uma máscara de introdução do tipo "123-456-789 "

    NContribuinte = InputBox("Qual é o Nº de Contribuinte ?", "Contribuinte")


    Obrigado


    PS - Número de contribuinte informa que só são permitido números, mas se insistir acaba aceitando texto.
    Anexos
    Mascara Inputbox Assis.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (826 Kb) Baixado 6 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  Assis em Qui 1 Fev - 13:39

    Up


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 258
    Registrado : 23/01/2017

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  thiagomcosta em Qui 1 Fev - 15:13

    Até onde eu sei InputBox não aceita máscara de entrada.
    Uma solução seria criar um formulário para entrada da informação ao invés do utilizar um inputbox.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9776
    Registrado : 04/11/2009

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  JPaulo em Qui 1 Fev - 16:46

    Nativo do MsAccess não existe mesmo.

    Podemos usar a imaginação e ir para além dos limites do Access;

    Veja se serve, ao digitar algo não existente na combobox "Cliente";
    Download


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  Assis em Qui 1 Fev - 18:40

    Boa Noite JPaulo

    O Nº de contribuinte só grava os 3 primeiros Nºs digitados, digitei 9.


    [Você precisa estar registrado e conectado para ver esta imagem.]



    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9776
    Registrado : 04/11/2009

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  JPaulo em Qui 1 Fev - 19:03

    Temos de usar a imaginação.

    Utilize o Replace no insert tal como está acima.

    Estou no smartphone, não dá para ver agora.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  Assis em Qui 1 Fev - 19:22

    Obrigado JPaulo

    Resolvi

    + 1 maneira de fazer Nestum.

    [Você precisa estar registrado e conectado para ver esta imagem.]


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9776
    Registrado : 04/11/2009

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  JPaulo em Sex 2 Fev - 10:53

    Fico feliz.

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Qua 21 Fev - 15:06