MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


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.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


3 participantes

    [Resolvido]Data Limite

    avatar
    jayder
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 11/09/2015

    [Resolvido]Data Limite Empty [Resolvido]Data Limite

    Mensagem  jayder 14/9/2015, 13:30

    Bom dia.

    Gostaria de saber como faço para que o campo data de um formulário não seja preenchido com data posterior ao dia do preenchimento.

    Ou seja, se hoje, dia 14/09/2015, ao ser preenchido o formulário, o usuário só coloque data até hoje(14/09/2015), caso seja preenchido com data posterior(15 - 16 - 17.../09/2015), retorne uma mensagem de alerta para ele.

    Obrigado
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Data Limite Empty Re: [Resolvido]Data Limite

    Mensagem  Silvio 14/9/2015, 13:44

    Bom dia....

    Há várias maneiras de se fazer isso.

    No evento após atualizar do campo data.

    if date <> now then
    msgbox( "Entre apenas com a data atual"), vbcritical, me caption
    me.campodata.setfocus
    end if


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 800
    Registrado : 30/08/2010

    [Resolvido]Data Limite Empty Re: [Resolvido]Data Limite

    Mensagem  gilberlanio 14/9/2015, 13:47

    Tente colocar isso no evento ao sair do seu campo data:

    If seucampodata > Date Then
    MsgBox ("Digite um data menor ou igual a data de hoje")

    End If


    avatar
    jayder
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 11/09/2015

    [Resolvido]Data Limite Empty Re: [Resolvido]Data Limite

    Mensagem  jayder 14/9/2015, 13:50

    Obrigado, meu nobres.
    Problema resolvido.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Data Limite Empty Re: [Resolvido]Data Limite

    Mensagem  Silvio 14/9/2015, 13:52

    O fórum agradece o retorno.
    Sucesso a ti.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Conteúdo patrocinado


    [Resolvido]Data Limite Empty Re: [Resolvido]Data Limite

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/5/2024, 08:31