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

    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?
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 869
    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.
    avatar
    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: Ter 26 Set 2017, 10:17