Alternar entre forms abertos utilzando um menu expansível ao click do botão direito do Mouse

Abra o BD, abra de dois ou mais forms, deixe-os aberto.
No form clique com o botão direito do mouse, no menu que surgirá clique no nome de qualquer dos forms...

Para Aplicar a soluçao em Forms que comportam gráficos nativos do Access:

Código:

Private Sub Form_Click()
        'Cancela o evento padrão para o botão
        DoCmd.CancelEvent
        'Mostra o menu de atalho personalizado
        CommandBars(Barra).ShowPopup
End Sub

Private Sub Form_Close()
  Call FormsAbertos
End Sub


Private Sub Form_Load()
  Call FormsAbertos
End Sub

Private Sub Form_Open(Cancel As Integer)
  DoCmd.Maximize
End Sub


Enjoy!!!

*****************************************************************************************************************



Repositório de Exemplos Ms Access
Sala destinada à colocação de exemplos em Ms Access (Código aberto) de e para
todos os Utilizadores Cadastrados.
Não tirar duvidas nesta sala.

Link 2003

Parabéns, muito útil!

Obbrigado Top... Eu percebi que as vezes o Access, quando abre um form sobre o outro, e não deseja fechar o segundo, ele não oferece opções como o Alt Tnb do Windows.... ou mesmo as vezes quando vai fazer outra coisa no windows... o form fica por baixo de outro que por ventura esteja aberto, e mesmo se clicar no logo do access não resolve. Ai percebi que podia fazer algo com o exemplo de navegaçào por menus que eu havia postado tempos atras...

Cumprimentos.

Para aplicar o código em forms que comportam gráficos nativos do access:

Private Sub Form_Click()
        'Cancela o evento padrão para o botão
        DoCmd.CancelEvent
        'Mostra o menu de atalho personalizado
        CommandBars(Barra).ShowPopup
End Sub

Private Sub Form_Close()
   Call FormsAbertos
End Sub


Private Sub Form_Load()
   Call FormsAbertos
End Sub

Private Sub Form_Open(Cancel As Integer)
   DoCmd.Maximize
End Sub

Cumprimentos

As vezes tenho esse problema de um form por cima do outro, será muito util esse exemplo!!!

Muito obrigado!!!

Um detalhe que não está no exemplo... Ao fechar um form aberto este ainda fica aparecendo no menu, para resolver basta apenas no evento ao fechar do form chamar a função novamente: Call FormsAbertos.


Cumprimentos.