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]Código para referenciar duas datas.

    Compartilhe
    OLDRIVG
    OLDRIVG
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 317
    Registrado : 20/07/2010

    [Resolvido]Código para referenciar duas datas.

    Mensagem  OLDRIVG em 7/12/2018, 11:36

    Prezados, bom dia.

    Qual o código para criar uma condição em um campo Data na qual o usuário somente poderá digitar uma data entre 01012013 e a data atual.

    Tentei com o código
    Me.DataRecebimento1 >= #01/01/2013# And Me.DataRecebimento1 <= Date, mas não funcionou, deu erro de compilação.

    Se alguém tiver alguma sugestão, agradeço.
    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 247
    Registrado : 12/01/2017

    Re: [Resolvido]Código para referenciar duas datas.

    Mensagem  thiagonsilvaa em 7/12/2018, 11:46

    Bom dia !
    Uma dica seria criar um campo texto no qual informará a data e no evento "antes de atualizar" inserir o código:
    Código:
    If campotexto.Value < #1/1/2013# Then
        MsgBox "Erro, a data não pode ser menor que 01/01/2013"
        DoCmd.CancelEvent
        Exit Sub
             else
        msgbox "A data está de acordo !"
    End If

    Teste e retorne.
    Abraços.
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/11/2016

    Re: [Resolvido]Código para referenciar duas datas.

    Mensagem  IvanJr. em 7/12/2018, 11:53

    Uma alternativa seria usar a regra de validação do campo, que fica na guia dados da folha de propriedades do mesmo. Copie e cole nele
    Código:
    >=#01/01/2013# E <=Data()

    E bem abaixo, texto de validação, coloque a mensagem a ser exibida caso a data informada não esteja dentro do intervalo de validação
    OLDRIVG
    OLDRIVG
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 317
    Registrado : 20/07/2010

    Re: [Resolvido]Código para referenciar duas datas.

    Mensagem  OLDRIVG em 7/12/2018, 12:38

    Bom dia, senhores.


    ThiagoSilvaa, obrigado pela a atenção e ajuda. Funcionou. Fiz da forma abaixo:


    If Me.DataDocumento.value >= #1/1/2013# And Me.DataDocumento.value <= Date Then


    IvanJr.

    Agradeço-lhe, também, pela a atenção e a ajuda. A sua sugestão (a qual somente visualizei quando estava a responder este tópico) também funcionou. É bom termos opções de escolha.

    Agradecido a ambos.
    avatar
    thiagonsilvaa
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 247
    Registrado : 12/01/2017

    Re: [Resolvido]Código para referenciar duas datas.

    Mensagem  thiagonsilvaa em 7/12/2018, 12:57

    O fórum agradece pelo retorno !
    Abraços.

      Data/hora atual: 26/3/2019, 15:01