[Resolvido]Dúvida sobre POP up e Barra de Ferramentas

Boas novas,
Estou com uma pulga atrás da orelha, não consegui entender até agora o por que disto.

Quando tenho um formulário em Pop-Up o access simplesmente desativa todos os botões de acesso rápido na ribbons, e também os botões que eu criei como filtrar ou ordenar, ou desfazer ou refazer não funcionam...

Erro: 2046: O comando ou a ação 'Desfazer' não está disponível agora.
Erro: 2046: O comando ou a ação 'Re-fazer' não está disponível agora.
Erro: 2046: O comando ou a ação 'ClassificaçãoCrescente' não está disponível agora.
Erro: 2046: O comando ou a ação 'ClassificaçãoDecrescente' não está disponível agora.

qualquer botão é desativado passivamente pelo Access e até agora eu não entendo o porque?

Quando você aperta o botão direito do mouse em cima de algo, o access libera no momento em que o menu está aberto, mas quando o menu fecha la se volta a desativar tudo de novo...

Alguém já tem uma solução para isto? estou de cabelo em pé aqui e não entendo por que cargas d'água fizeram isto...

Access 2010, 32bits (accdb) usando módulo para ocultar a janela do access.

Banco Anexado...

Provavelmente tenha algum código que esteja interferindo ou algum processo de filtragem. Até testei aqui para ver e não me ocorreu isso.

Bom dia amigos.
Com permissão do grande criquio,

Após o tratamente se erro dos botões, ponha esta linha:

DoCmd.GoToControl Screen.PreviousControl.Name

Desculpe a falta de inteligencia, mas é exatamente a onde?

Código:

Private Sub cmdSortDescending_Click()
On Error GoTo cmdSortDescending_Click_Error

    DoCmd.RunCommand acCmdSortDescending

Exit_cmdSortDescending_Click:

    Exit Sub

cmdSortDescending_Click_Error:

    Select Case Err.Number
    Case 0
    Case 2046 Or 2501
        Resume Next
    Case Else
        MsgBox Err.Number & ": " & Err.Description

    End Select

        Resume Exit_cmdSortDescending_Click

End Sub

?

O código do botão desfazer:
----------------------------------------------------------------------------
On Error GoTo cmdUndo_Click_Error

DoCmd.GoToControl Screen.PreviousControl.Name 'Essa linha, nesse local

DoCmd.RunCommand acCmdUndo

Exit_cmdUndo_Click:

Exit Sub

cmdUndo_Click_Error:

Select Case Err.Number
Case 0
Case 2046 Or 2501
Resume Next
Case Else
MsgBox Err.Number & ": " & Err.Description

End Select

Resume Exit_cmdUndo_Click
----------------------------------------------------------------------------


Isso em cada botão...

Desculpa a demora na resposta, é que eu só trabalho das 8:00 às 13:00

Marcelo perfeito! o código está funcionando que é uma beleza!

Obrigado!

Ótimo, grato pelo retorno, mas não esqueça de clicar no resolvido.