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 19/3/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 : 10116
    Registrado : 04/11/2009

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  JPaulo em 19/3/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.]

    Ou ainda: Aqui (Novo)

    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 19/3/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 : 10116
    Registrado : 04/11/2009

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  JPaulo em 19/3/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.]

    Ou ainda: Aqui (Novo)

    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 : 3510
    Registrado : 06/11/2009

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  Assis em 31/1/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 : 3510
    Registrado : 06/11/2009

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  Assis em 1/2/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 : 272
    Registrado : 23/01/2017

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  thiagomcosta em 1/2/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 : 10116
    Registrado : 04/11/2009

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  JPaulo em 1/2/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.]

    Ou ainda: Aqui (Novo)

    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 : 3510
    Registrado : 06/11/2009

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  Assis em 1/2/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 : 10116
    Registrado : 04/11/2009

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  JPaulo em 1/2/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.]

    Ou ainda: Aqui (Novo)

    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 : 3510
    Registrado : 06/11/2009

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  Assis em 1/2/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 : 10116
    Registrado : 04/11/2009

    Re: [Resolvido]Aceitar apenas numero na InputBox

    Mensagem  JPaulo em 2/2/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.]

    Ou ainda: Aqui (Novo)

    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: 25/9/2018, 20:29