MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


    [Resolvido]Data Inicial (Nunca < Final)

    avatar
    Convidado
    Convidado


    [Resolvido]Data Inicial (Nunca < Final) Empty [Resolvido]Data Inicial (Nunca < Final)

    Mensagem  Convidado 29/6/2015, 11:05

    boas tenho um form com 2 campo de Data - Inicial e Final neste caso pretendia que a Data inicial nunca fosse maior que a final, ou seja - exemplo :
    01-06-2016 = 30-06-2015
    Pretendia que o bd desse o retorno numa mensagem de alerta que a Data Inicial é Superior a Data Final.
    Obrigado
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    [Resolvido]Data Inicial (Nunca < Final) Empty Re: [Resolvido]Data Inicial (Nunca < Final)

    Mensagem  Alvaro Teixeira 29/6/2015, 11:28

    Olá Marco, tente assim

    If campoDataInicial > campoDataFinal then
    Msgbox "verifique"
    Exit sub
    End If

    Abraço
    avatar
    Convidado
    Convidado


    [Resolvido]Data Inicial (Nunca < Final) Empty Re: [Resolvido]Data Inicial (Nunca < Final)

    Mensagem  Convidado 29/6/2015, 12:32

    boas

    antes demais agradecer a resposta !
    Coloquei em um botão que tenho para filtrar as datas :

    If IsNull(Me.dtInicial) Or IsNull(Me.dtFinal) Then
    If campoDtInicial > campoDtFinal Then
    Exit Sub
    End If
    MsgBox "Verifique as Data"
    Exit Sub
    End If
    Me.ListaBaixas.ColumnHeads = False
    Me.ListaBaixas.RowSource = "Cons_OrigemLinha-ListaBaixa"
    Me.ListaBaixas.Requery


    Sendo que se a Data Inicial for mais "alta", este não filtra nada, mas não da nenhuma mensagem.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    [Resolvido]Data Inicial (Nunca < Final) Empty Re: [Resolvido]Data Inicial (Nunca < Final)

    Mensagem  Alvaro Teixeira 29/6/2015, 12:44

    Olá , teste assim:

    Código:
    If IsNull(Me.dtInicial) Or IsNull(Me.dtFinal) Then
    Exit Sub
    End If

    If me.dtInicial > me.dtFinal then
    MsgBox "Verifique as Data"
    Exit Sub
    End If


    Abraço
    avatar
    Convidado
    Convidado


    [Resolvido]Data Inicial (Nunca < Final) Empty Re: [Resolvido]Data Inicial (Nunca < Final)

    Mensagem  Convidado 29/6/2015, 16:31

    Obrigado. Em pleno . . . Abraço
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    [Resolvido]Data Inicial (Nunca < Final) Empty Re: [Resolvido]Data Inicial (Nunca < Final)

    Mensagem  Alvaro Teixeira 29/6/2015, 19:23

    Olá Marco, obrigado pelo retorno Wink
    Os utilizadores do fórum agradecem.
    Abraço

    Conteúdo patrocinado


    [Resolvido]Data Inicial (Nunca < Final) Empty Re: [Resolvido]Data Inicial (Nunca < Final)

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 23:28