[Resolvido]Duvida, comparando 2 campos data

Olá senhores estou aqui novamente para pedir uma pequena ajuda...

Tenho um formulário e nesse tenho 2 campos data chamados data_inicio e encerramento.
Pois bem, preciso fazer com que o campo encerramento compare a data digitada com a data do campo data_inicio. Se a data de encerramento for posterior a data digitada no campo data_inicio OK, pula para outro campo, senão ele mostra uma menssagem na tela, cancela aquela data, limpa o campo e coloca o foco no campo encerramento.

meu problema somente é: ele nao esta colocando o foco no campo encerramento e sim pulando para o proximo, onde estou errando?

código:


If encerramento < Data_Inicio Then
MsgBox "ERRO - Data de Encerramento anterior a Data de Inicio!!!", vbCritical, "Violação do Sistema"
DoCmd.CancelEvent
Me.Undo
encerramento.SetFocus
End If

PS: estou usando o Access2007.

Obrigado;
David

Como bom membro deste fórum, já leu outros temas para aprender sem duplicar as dúvidas e já terá encontrado alertas para nomear os controlos diferente dos campos.
Suponho, por isso, que se terá distraído e terá nomeado o controlo igual ao campo e o Access não sabe se se está a referir ao campo ou ao controlo.

Salve amigo Harysohn tudo bem...

Então segui sua dica e mesmo assim não colocou o foco no campo encerramento, pulando para o proximo campo...

Veja se o campo está como bloqueado ....

Pior é que não esta bloqueado...

Observe

http://dl.dropbox.com/u/26441349/DavidCtba_19_08_11.rar

Olhei seu exemplo, renomeei o fonte para os nomes que vc usou, mas no seu exemplo gerou um erro dizendo: metodo dou membro de dados nao encontrado...

no meu projeto tenho os campos (pedido, data_inicio, encerramento, obs) nessa ordem....
ai no evento apos atualizar do campo "encerramento" eu coloquei o codigo acima citado, para que ele nao deixe continuar sem antes corrigir a data...


PS: e eu que achei que essa duvida iria ser facil

Algo voce esta fazendo errado.. no exemplo que postei esta funcionando corretamente....
Envie o teu...

Saudações

Bom dia Harysohn...

Então, abaixo segue o código que estou usando no evento "apos atualizar" do campo "encerramento", em teoria ele teria que avisar o usuario que a data esta errada, limpar o campo e deixar o foco no campo encerramento.... mas na pratica, a unica coisa que ele esta fazendo é passar o foco para o campo seguinte que seria o campo "OBS"...

código:

Private Sub encerramento_AfterUpdate()

If encerramento < Data_Inicio Then

MsgBox "ERRO - Data de Encerramento anterior a Data de Inicio!!!", vbCritical, "Violação do Sistema"
DoCmd.CancelEvent
Me.Undo
Me.encerramento.SetFocus

End If

End Sub

PS: meus campos sao indexados em sequencia para que o usuario possa usar a tecla "enter" ou "tab" como preferir...

Olá

Vc esta usando o evento "após atualizar". Troque para o evento "Antes de atualizar" e use o argumento cancel

Private Sub encerramento_BeforeUpdate(Cancel As Integer)
If encerramento < Data_Inicio Then
MsgBox "ERRO - Data de Encerramento anterior a Data de Inicio!!!", vbCritical, "Violação do Sistema"
cancel= true
end if
End Sub

Sucesso!

Olá Avelino, usei a sua dica, "cancel=true" mas ele nao limpava o campo, então testei os comandos "DoCmd.CancelEvent e Me.Undo" no lugar do "cancel=true" e funcionou, obrigado pela luz, eu estava trabalhando no evento errado

agora coloquei o codigo abaixo citado no evento "antes de atualizar" e esta tudo OK!

código:

If encerramento < Data_Inicio Then
MsgBox "ERRO - Data de Encerramento anterior a Data de Inicio!!!", vbCritical, "Violação do Sistema"
DoCmd.CancelEvent
Me.Undo
End If

Obrigado a todos pela força

abraço
David...