MaximoAccess

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

Obrigado

Administração do MaximoAccess


Participe do fórum, é rápido e fácil

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

    [Resolvido]InputBox personalizada

    Krauss
    Krauss
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 247
    Registrado : 23/12/2011

    [Resolvido]InputBox personalizada Empty [Resolvido]InputBox personalizada

    Mensagem  Krauss em 16/12/2020, 02:07

    Boa noite meus caros!!

    Não consegui resolver meu problema com os tópicos encontrados sobre o assunto. Tentei adaptar todos.

    Em uma InputBox sempre aparece os botões "OK" e "Cancelar". Existe alguma forma de configurar para que o campo dela seja no formato data (de preferência com aquele calendário de seleção) e que os botões ela sigam critérios?

    Tipo, se o usuário clicar em "Cancelar" o sistema fecha o form e se clicar no "OK", mas o campo da data estiver em branco ou a data informada for maior que a atual, ele exiba uma MsgBox "Preenchimento obrigatório" e continue com a InputBox, ou seja, ou o suário preenche corretamente ou fecha?

    Obrigado!


    .................................................................................
    Trabalho com Access 2013

    "A dúvida é o princípio da sabedoria"
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 371
    Registrado : 28/10/2010

    [Resolvido]InputBox personalizada Empty Re: [Resolvido]InputBox personalizada

    Mensagem  zcarloslopes em 16/12/2020, 09:56

    Bom dia Krauss,

    Veja se o exemplo vai de encontro ao pretendido.
    Anexos
    [Resolvido]InputBox personalizada AttachmentInputBox.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (15 Kb) Baixado 18 vez(es)
    Krauss
    Krauss
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 247
    Registrado : 23/12/2011

    [Resolvido]InputBox personalizada Empty Re: [Resolvido]InputBox personalizada

    Mensagem  Krauss em 16/12/2020, 17:06

    Boa tarde Carlos,

    Cara, perfeito, exatamente isso, ficou show!!

    Só me tira uma dúvida por favor? Essa "strM" na expressão, por acaso é uma variável que guarda o valor informado? Eu poderia usar outro nome tipo "testeExemplo" ou tenho que manter o "str" sempre, tipo "strX".. "strZ"?


    .................................................................................
    Trabalho com Access 2013

    "A dúvida é o princípio da sabedoria"
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 371
    Registrado : 28/10/2010

    [Resolvido]InputBox personalizada Empty Re: [Resolvido]InputBox personalizada

    Mensagem  zcarloslopes em 17/12/2020, 08:35

    Bom dia Krauss,

    Sim, pode alterar a variável "strM" para o nome que quiser desde que não seja para palavras que o access use. Caso mude para outro nome, não esqueça de mudar também sempre que a variável é chamada.

    O str... no início da variável costuma ser usado quando se declara uma variável como String.
    Krauss
    Krauss
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 247
    Registrado : 23/12/2011

    [Resolvido]InputBox personalizada Empty Re: [Resolvido]InputBox personalizada

    Mensagem  Krauss em 17/12/2020, 17:02

    Boa tarde Carlos!

    Muito obrigado pela ajuda e pelo esclarecimento, foi de grande valia!

    Abs


    .................................................................................
    Trabalho com Access 2013

    "A dúvida é o princípio da sabedoria"

      Data/hora atual: 27/1/2021, 19:27