MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Uma data não pode ser menor que a outra

    Compartilhe

    omarciopoli
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 15/09/2014

    Uma data não pode ser menor que a outra

    Mensagem  omarciopoli em Seg 22 Set 2014, 20:29

    Boa tarde, sou novo e estou estudando vba. Gostaria de comparar duas datas e caso a primeira seja maior que a ultima o cadastro emite uma mensagem. a data [Data_Entrada_Geo] não pode ser maior que [Data_Fim_Analise]. Alguém pode me ajudar?

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Uma data não pode ser menor que a outra

    Mensagem  toyebom em Seg 22 Set 2014, 20:54

    Em vez do aviso porque não restringes???

    Podes colocar no construtor e consulta do segundo campo tipo

    Critério: >=[Forms]![seuformulário]![seucampo1]

    Imagina que tens o formulário "frm", o campo data como "data1" e o campo que nºao pode ser inferior como "data2", nesse caso colocas >=[Forms]![frm]![data1]

    assim quando colocas a data no primeiro campo no segundo só aparece datas iguais ou pesteriores.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    Kebao10
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 16/07/2011

    Re: Uma data não pode ser menor que a outra

    Mensagem  Kebao10 em Seg 22 Set 2014, 21:22

    Caso deseje só a mensagem mesmo.
    Código:
    If Me.Data_Entrada_Geo > Me.Data_Fim_Analise Then
    MsgBox "A data X deve ser menor que Y!!!", vbCritical, "Aviso"
    End If

      Data/hora atual: Qui 08 Dez 2016, 00:07