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]Comparação entre datas

    Compartilhe

    Rosalvo Risso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 21/05/2015

    [Resolvido]Comparação entre datas

    Mensagem  Rosalvo Risso em 5/6/2018, 16:39

    Boa tarde a todos!
    Eis o meu problema:

    If Me.DiaPag < Me.DataNota Then
    Me.Pular = False 'Campo Sim/Não'
    Else
    If MsgBox("Pular dia ?", vbYesNo,) = vbYes Then
    Me.Pular = True
    End If
    End If

    O que acontece: Quando o Campo diaPag é Menor que o DataNota o campo Pular é negativo. Se maior ou igual teria que aparecer a mensagem para escolher Sim ou Não.
    Mas isso só acontece quando o campo DiaPag é maior que o DataNota. Quando os campos contém a mesma data não é mostrada mensagem alguma. Alguém poderia por favor me dizer onde está o erro?

    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

    Re: [Resolvido]Comparação entre datas

    Mensagem  CassioFabre em 5/6/2018, 17:11

    Boa tarde,

    Código:
       If Me.DiaPag < Me.DataNota Then
            Me.pular = False 'Campo Sim/Não'
        Else
            If MsgBox("Pular dia?", vbQuestion + vbYesNo, "Pular") = vbYes Then
                Me.pular = True
            End If
        End If

    Abraço.

    Rosalvo Risso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 21/05/2015

    Comparação entre datas

    Mensagem  Rosalvo Risso em 5/6/2018, 17:48

    Olá Cassio, Boa Tarde.
    Agradeço muito a sua atenção.

    Quanto ao código o problema persiste, pois quando as datas são iguais não recebo a mensagem se desejo "pular" ou não. Isso somente acontece quando o campo diapag é maior que o datanota.
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 793
    Registrado : 01/03/2014

    Re: [Resolvido]Comparação entre datas

    Mensagem  Celso Roberto em 5/6/2018, 17:53

    Olá..

    Teste

    If Me.DiaPag < Me.DataNota Then
    Me.pular = False 'Campo Sim/Não'
    ElseIf Me.DiaPag >= Me.DataNota Then
    If MsgBox("Pular dia?", vbQuestion + vbYesNo, "Pular") = vbYes Then
    Me.pular = True
    End If
    End If

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

    Re: [Resolvido]Comparação entre datas

    Mensagem  CassioFabre em 5/6/2018, 18:07

    Boa tarde,

    Veja o modelo. Preenche os campos da forma dd/MM/YYYY e aperte o botão.
    Anexos
    Database2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (23 Kb) Baixado 10 vez(es)


    .................................................................................
    Só não tem código pra morte!

    Rosalvo Risso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 21/05/2015

    Comparação entre datas

    Mensagem  Rosalvo Risso em 5/6/2018, 20:24

    O que acontece agora. No exemplo que você me enviou todas as opções enviam mensagem. O que não deveria. Apenas se fossem maior ou igual a DataNota.
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

    Re: [Resolvido]Comparação entre datas

    Mensagem  CassioFabre em 5/6/2018, 20:52

    Amigo, você está fazendo algo errado aí. Aqui está funcionando perfeitamente. Teste para a seguinte situação:

    DiaPag: 05/05/2018
    DataNota: 06/06/2018
    Deixe a caixa de seleção MARCADA e aperte o botão. Veja se vai desmarcar sem aviso algum.

    Depois mude o DiaPag para 06/06/2018 e aperte o botão.


    .................................................................................
    Só não tem código pra morte!
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 793
    Registrado : 01/03/2014

    Re: [Resolvido]Comparação entre datas

    Mensagem  Celso Roberto em 5/6/2018, 21:11

    olá...

    Dentro do seu projeto pode haver necessidade de formatar data.
    O exemplo do Cassiofabre funciona na perfeição.

    Teste formatando as datas

    If Format(Me.DiaPag, "mm/dd/yyyy") < Format(Me.DataNota, "mm/dd/yyyy") Then
    Me.pular = False 'Campo Sim/Não'
    Else
    If MsgBox("Pular dia?", vbQuestion + vbYesNo, "Pular") = vbYes Then
    Me.pular = True
    End If
    End If

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    Rosalvo Risso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 21/05/2015

    Comparação entre datas

    Mensagem  Rosalvo Risso em 6/6/2018, 03:53

    Agora funcionou. Era isso mesmo.

    Muito obrigado Cassio e Celso. Me ajudaram muito. Só tenho a agradecer.
    Valeu!!!!
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

    Re: [Resolvido]Comparação entre datas

    Mensagem  CassioFabre em 6/6/2018, 11:01

    Bom dia,

    Amigo, o caso da comparação precisar ser formatada significa que estava trabalhando com datas em tabelas (seja diretamente pegando a data da tabela ou através de formulários acoplados). Faltou essa informação na sua pergunta.

    Mas que bom que deu certo.


    .................................................................................
    Só não tem código pra morte!

    Rosalvo Risso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 21/05/2015

    Comparação entre datas

    Mensagem  Rosalvo Risso em 6/6/2018, 14:52

    Ok, Cassio.
    Informação importante do qual eu não sabia. Muito obrigado mais uma vez. Grande Abraço!!!!

    Rosalvo Risso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 21/05/2015

    Comparação entre datas

    Mensagem  Rosalvo Risso em 6/6/2018, 14:54

    Valeu!!!

      Data/hora atual: 21/7/2018, 14:53