[Resolvido]Data Inicial (Nunca < Final)

Convidado 29/6/2015, 11:05

Convidado: Convidado

Mensagem nº1

[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** 29/6/2015, 11:28

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013

Mensagem nº2

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

Convidado 29/6/2015, 12:32

Convidado

Convidado: Convidado

Mensagem nº3

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** 29/6/2015, 12:44

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013

Mensagem nº4

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