[Resolvido]Caixa de Mensagem

Boa tarde,

Sou novo por aqui e estou necessitando de uma ajuda de vocês, o problema é o seguinte: eu tenho um Form Principal e dentro tenho um subformulário, eu quero que quando o usuário atualizar a data de início no sub me apareça uma caixa de mensagem alertando o usuário. A condição para esta mensagem é que se a data que ele estiver preenchendo for menor ou igual a última data de registro do campo DataTermino ele avise.
Na tabela eu tenho os seguintes campos: DataInicio, DataTermino

Eu tentei o seguinte código:


Private Sub DataInicio_AfterUpdate()
Dim Inicio As String
Dim Termino As String

Inicio = Foms![BIM]![FinalidadeLicença subformulário].Form![DataInicio]
Termino = DMax([DataTermino], "PM_Bim")

If Incio <= Termino Then
Msgbox("Já existe Bim neste Período", vbOKCancel) As VbMsgBoxResult
End If

Obrigado.

Olá e seja bem-vindo

Veja a síntese

If DataInicio > DataTermino Then
MsgBox "Data Inicial não pode ser maior que Data actual!", vbExclamation, "Erro"

End If

vieirasoft,

Oi amigo valeu pela resposta, mas só que eu preciso pesquisar na tabela o último resgistro do campo DataTermino e aí sim fazer a comparação, por isso usei o DMax, mas não sei onde estou errando.

Atenção que está a trabalhar com datas, logo não é String e faça uso da função Nz se existir Nulos;

Private Sub DataInicio_AfterUpdate()
Dim Inicio As Date
Dim Termino As Date

Inicio = Me.DataInicio
Termino = Nz(DMax("[DataTermino]", "PM_Bim"), 0)

If Incio <= Termino Then
Msgbox "Já existe Bim neste Período", vbCritical
DoCmd.CancelEvent
Else
Exit Sub
End If
End Sub

Dim vX As Variant
vX = DLookup("[DataTermino]", "Tabela", "[ID] = " & Me.ID)
'....
If vX < DataTermino Then
MsgBox "Data Inicial não pode ser maior que Data atual!", vbExclamation, "Erro"
Else
DoCmd.CancelEvent
End If

VEJA SE DA CERTO.... EU NÃO TESTEI ...

Pelos vistos o Mestre já deu a resposta. Ia postar com uma instrução select max para obter o último registo na tabela. Obrigado Mestre pela sua intervenção.

Olá testei as funções, mas só que quando eu atualizo a data, não acontece nada, entrei no vba e marquei as linhas pra ver se o código estava sendo executado mais não está. Nã estou entendendo o que está havendo.
Coloquei a função no evento após atualizar do Controle e nada.

Obrigado,

posta o bd pra gente dar uma olhada!

Pessoal, me desculpem minha falta de atenção!!! o problema é que eu estava usando um fom calendário pra atualizar a data inicial, e deste jeito não estava funcionando.
Agora preciso de uma outra coisa, tem como colocar uma condição na função Dmax que vá no Form Principal buscar a chave primária da tabela e comparar.

Termino = Nz(DMax("[DataTermino]", "PM_Bim","[CampoChave]=" & Forms!SeuFormulario!CampoChave), 0)

Vlw. JPaulo,
o meu código está assim depois da sua dica:

Private Sub DataInicio_AfterUpdate()
Dim Inicio As Date
Dim Termino As Date

Termino = Nz(DMax("[DataTermino]", "PM_Bim", "[CPF]=" & Forms!BIM!CPF), 0)
Inicio = Me.DataInicio
If Inicio <= Termino Then
Msgbox "Já existe Bim neste Período", vbCritical
DoCmd.CancelEvent
Else
Exit Sub
End If
End Sub

Mas agora está dando tipos de dados incompatíveis!!!

Provavelmente esse campo CPF é texto, então terá de levar aspas simples;

Private Sub DataInicio_AfterUpdate()
Dim Inicio As Date
Dim Termino As Date

Termino = Nz(DMax("[DataTermino]", "PM_Bim", "[CPF]='" & Forms!BIM!CPF & "'"), 0)
Inicio = Me.DataInicio
If Inicio <= Termino Then
MsgBox "Já existe Bim neste Período", vbCritical
DoCmd.CancelEvent
Else
Exit Sub
End If
End Sub

Cara,

Que árvore que você me quebrou agora, deu certinho!!
Muito obrigado mesmo...

Eduardo

Valew pelo retorno o forum agradece.

Só faltou o [Resolvido].