[Resolvido]Utilização do CommandBar para AbrirForm constante da lista.

Amigos, neste codigo carrego um subMenu com os nome dos Forms abertos no sistema...

Código:

Sub FormsAbertos()
Dim I As Integer
Dim cmdBar  As CommandBar
Dim mnu    As CommandBarButton

Call VerificaForms
    delAtalho 'Apaga a barra de comando anterior caso ela exista

    Set cmdBar = CommandBars.Add _
      (Name:=Barra, position:=msoBarPopup, Temporary:=True)
     
    For I = 0 To Count - 1
        Set mnu = cmdBar.Controls.Add(Type:=msoControlButton)
        With mnu
            .Caption = NomeForm(I)
            .OnAction = "FormAberto(" & NomeForm(I) & ")"
            .FaceId = 1987
        End With
    Next I
End Sub

Function FormAbertoFrmForms()
Forms!FrmForms.SetFocus
End Function


Observe que aqui: .OnAction = "FormAberto(" & NomeForm(I) & ")" >>> Fica gravado a ação executada para cada botão na barra de menus (neste caso o nome de uma funçào)

Supondo que tenho 2 forms abertos no momento: Form1 e Form2

Eu teria que ter uma função no módulo para cada form, Exemplo:

Function FormAbertoForm2()
Forms!Form1.SetFocus
End Function

Function FormAbertoForm1()
Forms!Form2.SetFocus
End Function

O que pretendo e apenas uma função... No entatanto o Nome da Função não admite concatencão de strings.

Tentei assim:

OnAction = "FormAberto(" & NomeForm(I) & ")"
Que corresponderá a: OnAction = FormAberto(Form1)

e na função:

Function FormAberto(Formulario as String)0
'Pensei que assim a função seria chamada ja que a expressão OnActio está como: FormAberto(Form1), e que Formulario receberia o texto entre os parenteses..
'Mas a função nem chegou a ser chamada.
End Function

Alguma ideia amigos?

Cumprimentos.

E se fosse Function FormAberto(Formulario As Form)?

Não funcionou

O interessante é que se coloco Apenas o nome da funcão simples em OnAction, sem uma variável, a função é chamada

OnAction = NomeFuncao

Function NomeFuncao()
Forms!Form1.SetFocus
End Function

=======================================================================

Mas se em OnAction eu concateno para uma função diferenciando o nome do form em uma variavel (entre Parenteses), Não funciona

.OnAction = "Call FormAberto(""" & NomeForm(I) & """)"
Fica assim >>>> OnAcrtio = FormAberto(Form1) - Teoricamente teria que chamar a funcao FormAberto levando o nome do Form na variavel Formulario na funcão

Function FormAberto(Formulario As String)
MsgBox "Teste"
End Function

Porem não executa a funcão.


Eu queria assim para que não tivesse que ter uma função para cada form no BD


Cumprimentos.

Perfeito Avelino...

Agora uma questão eu havia tentado asism porém sem o sinal de igual dentro do contexto.

O porque disso?


Cumprimentos e Obrigado.