[Resolvido]Identificar formulário principal

Olá a todos.

Tenho um subformulário que é carregado por dois formulários distintos.
No subformulário, há procedimentos a serem executados de acordo com o formulário principal.
Preciso identificar qual formulário principal está a carregar o subform. e utilizar essa informação com um If...Then.

PS: testei algumas opções com Parent, mas não obtive êxito.

Em um módulo cole:

Function IsLoaded(ByVal strFormName As String) As Boolean
On Error GoTo Err_IsLoaded

    Const conObjStateClosed = 0
    Const conDesignView = 0

    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
        If Forms(strFormName).CurrentView <> conDesignView Then
            IsLoaded = True
        End If
    End If

Exit_IsLoaded:
   Exit Function

Err_IsLoaded:
    MsgBox Err.Description, , " Service Operations"
    Resume Exit_IsLoaded

End Function

Para chamar:



If IsLoaded("NomeDOFOrm") Then


Else

End If


Cumprimentos.

Use o Parent.

Exemplo

if parent.name = "Nome do formulário" then
'faça algo para o form A
else
'faça algo para o form B
end if

Veja mais detalhes do uso da sintaxe no artigo abaixo:

http://www.usandoaccess.com.br/tutoriais/tuto52.asp?id=1#inicio

Sucesso!

Bem.. talvez eu não tenha entendido a dúvida..... Deve ter sido o sono... heheh

de qualquer forma fica a dica.


Abraços.

Senhores, muito obrigado pela atenção e ajuda.

Continuei fuçando ontem e consegui chegar a algo próximo à dica de Avelino.


VAleu.

Não se esqueça de clicar no Joinha da mensagem que o auxiliou.

O Fòrum agradece o retorno.