[Resolvido]Botão Cancelar - Voltar ao Campo de Foco

Boa noite. Solicito uma ajuda pra uma tarefa que creio ser simples porém não consigo resolver.

Dim Cancelar As String

Cancelar = MsgBox("CANCELAR DIGITAÇÃO?", vbYesNo, "Atenção")

If Cancelar = vbYes Then
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Me.FILIAL.SetFocus

Else

' Voltar ao campo que recebeu foco antes de clicar no botão cancelar

End If

Explicando: Preciso que ao clicar no botão cancelar e NÂO confirmar este cancelamento, o cursor volte ao campo ao qual o usuário estava antes de clicar no botão cancelar. Ou seja, o último campo em foco.
Já experimentei e sem sucesso:

Me.Undo
DoCmd.cancelEvent
Cancel = true

Todos retornam ao formulário mas não foca no campo ao qual o usuário estava antes de clicar em cancelar.

Desde já agradeço.

Leandro.

Posta o exemplo pra gente ver amigo.
Abç.

Dim Cancelar As String

Cancelar = MsgBox("CANCELAR DIGITAÇÃO?", vbYesNo, "Atenção")

If Cancelar = vbYes Then
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Me.FILIAL.SetFocus

Else

' Voltar ao campo que recebeu foco antes de clicar no botão cancelar

End If

Amigo para melhor entendimento seria melhor o banco de dados,assim seria mais fácil e meais rapido atende-lo.
Cumprimentos.

Olha, pensei em um modo (meio gambiarra) mas acredito que tenha forma mais "profissional" de fazer isso.

Primeiro criar uma variável

Código:

Dim focoanterior As String

Depois em todos os campos ao perder foco rodar esse código:

Código:

focoanterior = Me.ActiveControl.Name

Ai no botão você colocaria assim:

Código:

Dim Cancelar As String

Cancelar = MsgBox("CANCELAR DIGITAÇÃO?", vbYesNo, "Atenção")

If Cancelar = vbYes Then
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Me.FILIAL.SetFocus
Else
    If Not Trim(focoanterior & "") = vbNullString Then
        Me(focoanterior).SetFocus
    End If

End If

Aqui funcionou, mas acho que deve ficar meio trabalhoso fazer isso em todos os campos.

boa tarde Kaynan e Igornovais. Desde já agradeço a atenção.

Kaynan, tentei publicar o projeto, mas como possui varias tabelas vinculadas e o formulário possui várias referências, acabei me enrolando em separar e deixar funcional para que pudesse avaliar.

Igornovais, sua solução funcionou, mas como mesmo disse, daria bastante trabalho preparar a tal "gambiarra" em cada form e em seus campos. Mas gostei da manobra pois acabei aprendendo uma instrução. Obrigado.

depois de muito pesquisar, consegui achar a solução:

Screen.PreviousControl.SetFocus

o código ficou:

Código:



Dim Cancelar As String

Cancelar = MsgBox("CANCELAR DIGITAÇÃO?", vbYesNo, "Atenção")

If Cancelar = vbYes Then
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Me.FILIAL.SetFocus

Else

Screen.PreviousControl.SetFocus ' Voltar ao campo que recebeu foco antes de clicar no botão cancelar

End If



Olhando dá até raiva...rs mas não há conquista sem luta não é.....

Mais uma vez obrigado.

Leandro.

É isso ai amigo,sucesso.