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.

    OLDRIVG
    OLDRIVG
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Código para referenciar duas datas. Empty [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 : 341
    Registrado : 12/01/2017

    [Resolvido]Código para referenciar duas datas. Empty 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.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 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 : 373
    Registrado : 20/07/2010

    [Resolvido]Código para referenciar duas datas. Empty 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 : 341
    Registrado : 12/01/2017

    [Resolvido]Código para referenciar duas datas. Empty 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: 25/5/2020, 01:39