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
    avatar
    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
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10437
    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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    avatar
    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.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10437
    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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3760
    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 ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3760
    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 ***
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 333
    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.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10437
    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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3760
    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.






    Obrigado


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10437
    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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3760
    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.



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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10437
    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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...

      Data/hora atual: 25/3/2019, 04:19