[Resolvido]Cancelar inclusão em subformulário com campo obrigatório

Olá pessoal!

Inseri no evento "Ao sair" do campo ID de um subformulario um código que obriga o seu preenchimento. Isso esta a funcionar perfeitamente. O que gostaria é que no mesmo código eu tivesse as opções de retornar ao campo ID e preenche-lo ou cancelar a nova inclusão retornando o foco para o registro acima.

Alguém sabe como fazer isso?


Obrigado!

Algo Assim:

Dim MSG as String

Msg = MsgBox("Cancela a inclusão?, vbExclamation + vbYesNo + vbDefaultButton2, "SysPDV")
If Msg = vbNo Then
Me.Undo
Exit Sub
Else
>>>> Aqui o codigo para caso deseje continuar
End If


Cumprimentos.

Olá Piloto!

Obrigado pela atenção!

Testei sua sugestão mas infelizmente não esta a cancelar a inclusão.

Penso que ao cancelar a inclusão o foco teria que ir para o registro anterior, porém, continua na nova linha.


Abraço!

Ola;

Amigão faça como o Pina lhe disse mas com este comando antes do ExitSub


Dim MSG as String
Msg = MsgBox("Cancela a inclusão?, vbExclamation + vbYesNo + vbDefaultButton2, "SysPDV")
If Msg = vbNo Then
Me.Undo
DoCmd.GoToRecord , , acPrevious
Exit Sub
Else
>>>> Aqui o codigo para caso deseje continuar
End If

Caro Piloto,

Consegui resolver o problema através da sua sugestão. Veja como ficou o código no meu projeto:

Dim MSG As String
If IsNull(Me.txtCodProd) Or Me.txtCodProd = "" Then
MSG = MsgBox("Você deve informar o agrotóxico. Deseja cancelar a inclusão?", vbExclamation + vbYesNo + vbDefaultButton2, "Aviso!")
If MSG = vbNo Then
Me.txtCodProd.SetFocus 'Move o foco para o controle
Else
Me.Undo
DoCmd.GoToRecord , , acFirst
Exit Sub
End If
End If

Obrigado por mais essa grande ajuda.

Abraço!

Olá JPaulo!

Acho que respondemos juntos. (riso)

Fiz o teste conforme voce postou e também funcionou no perfeito.

Obrigado!

Abraço e bons estudos.

Valeu, Obrigado pelo adendo Mestre JP...

Abraços.