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 2010, 01: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 : 9805
    Registrado : 04/11/2009

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  JPaulo em Sex 19 Mar 2010, 09: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 2010, 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 : 9805
    Registrado : 04/11/2009

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  JPaulo em Sex 19 Mar 2010, 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 : 3382
    Registrado : 06/11/2009

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  Assis em Qua 31 Jan 2018, 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.


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

    Respeito às Regras 100%

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

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  Assis em Qui 01 Fev 2018, 13:39

    Up


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

    Respeito às Regras 100%

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

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  thiagomcosta em Qui 01 Fev 2018, 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 : 9805
    Registrado : 04/11/2009

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  JPaulo em Qui 01 Fev 2018, 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 : 3382
    Registrado : 06/11/2009

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  Assis em Qui 01 Fev 2018, 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 : 9805
    Registrado : 04/11/2009

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  JPaulo em Qui 01 Fev 2018, 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 : 3382
    Registrado : 06/11/2009

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  Assis em Qui 01 Fev 2018, 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 : 9805
    Registrado : 04/11/2009

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  JPaulo em Sex 02 Fev 2018, 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: Qui 24 Maio 2018, 22:41