[Resolvido]Codigo campos data

Boa tarde a todos,

Tenho um formulário com um campo DtPedido e outro campo no mesmo formulário DtSuspensa

O que eu desejava era colocar um código no formulario, em que o utilizador para suspender um ordem Serviço no campo DtSuspensa, seria obrigado a colocar a data referente ao mês e Ano do campo Dtpedido. O dia DO MÊS pode ser superior e nunca inferior á DtPedido.


Obrigado

Boa noite,
Já pensou se a DtPedido for 30-4-2018?
Pense nas limitações que impõe

Se tiver que ser suspensa, tem de ser no dia 30/04/2018, se não for suspensa neste dia já não pode ser suspensa no sistema, tem de ficar em aberto
Tudo isto tem haver com as contagem mensais de ordens pedidas e ordens executada etc. etc.no caso da data 30/05/2018 quando contar as pedidas irá aparecer também as suspensas do referido mês, estas contagem são todas retiradas das datas pedidas; executadas; suspensas e anuladas

Bom dia
No acontecimento AoSair do controlo TxtDtSuspensa coloque

if isdate(TxtDtSuspensa) then
if TxtDtSuspensa>DateSerial(Year(DtPedido), Month(DtPedido ) + 1, 0) then
txtDtSuspensa=null
msgbox "A data não é válida."
docmd.cancelevent
end if
end if

Boa tarde, antes de mais obrigado.

O código está a trabalhar mas, tem um senão.

se por acaso a data do pedido for 25/05/2018 e por qualquer motivo o utilizador colocar no campo txtDtSuspensa 15/05/2018 o código aceita.

o pretendido é que não aceite o dia (15), mas sim o dia igual a 25/05/2018 ou superior até 31/05/2018.

e porquê,... porque no sistema tenho um campo que conta os dias entre a txtDtsupensa e a txtDtInicio da Obra. (DtInicio é um campo que existe no BD)

Não sei se o código está correto, mas está trabalhar como desejado se não for assim corrija-me

Obrigado

Private Sub DtSuspensa_Exit(Cancel As Integer)
If IsDate(DtSuspensa) Then
If DtSuspensa > DateSerial(Year(DtPedido), Month(DtPedido) + 1, 0) Then
DtSuspensa = Null
MsgBox "A data não é valida."
DoCmd.CancelEvent
End If
End If

If IsDate(DtSuspensa) And IsDate(DtPedido) Then
If DtSuspensa < DtPedido Then
DtSuspensa = Null
MsgBox "A data não é valida."
DoCmd.CancelEvent
End If
End If

End Sub

Tinha-me esquecido que DtSuspensa não podia ser anterior
O seu código está certo

Para ser mais simples,
if isdate(TxtDtSuspensa) and isdate(TxtDtPedido) then
if TxtDtSuspensa>DateSerial(Year(DtPedido), Month(DtPedido ) + 1, 0) or TxtDtSuspensatxtDtSuspensa=null
msgbox "A data não é válida."
docmd.cancelevent
end if
end if

Muito Obrigado

Muito Obrigado esqueceu-me o resolvido