[Resolvido]Utilizar um formulário de pesquisa para vários formulários

Boas,

Venho tirar uma dúvida e caso haja possibilidade peço a ajuda com a rotina.

Hoje tenho um formulário para pesquisa [Pesquisa_Doc_Controlo] que funciona como um filtro para o formulário [Documento_Controlo], há possibilidade de utilizar o formulário de pesquisa para outros formulários que tem como principal campo de busca o ID do [Documento_Controlo]?

Cumprimentos,

Bruno Nunes

Boa tarde
Em teoria, sim, deve ter função de retorno de valor ou ter variável global de armazenamento do resultado

Tenho o formulário de pesquisa, conforme a imagem. Quando clico no campo Documento de Controlo, ele abre o Form. Documento_Controlo, já buscando o registro pesquisado.




Eu utilizo a rotina abaixo para fazer a busca em 1 formulário, o que preciso alterar para que possa buscar em outros forms?

Código:

Private Sub DocumentoControlo_Click()

DoCmd.OpenForm "Documento_Controlo", acNormal, "", "[DocumentoControlo]=" & DocumentoControlo
DoCmd.Close acForm, "Pesquisa_Doc_controlo"

End Sub

Cumprimentos,

Bruno Nunes

Boa tarde,

Onde quiser pesquisar, coloque
DoCmd.OpenForm "NomeForm", acNormal, "", "NomeControlo=" & IDControlo
DoCmd.Close acForm, "Pesquisa_Doc_controlo"

Boa tarde, Alexandre!

Compreendo, mas eu tenho outros 3 formulários diferentes que vão utilizar esse formulário de pesquisa. Desta forma com que explicou consigo fazer o filtro em um formulário somente.

Como vou fazer o direcionar para o formulário que pretendo. Tem como ele identificar o formulário que está aberto e fazer o filtro nele?



Cumprimentos,

Bruno Nunes

Não entendi bem o que pretende
Quer saber qual formulário tem aberto? Se sim, utilize esta função

Código:

Public Function ObjectoEstaAberto(NomeObjecto As String, TipoDeObjecto As AcObjectType) As Boolean
'Verifica se o Objecto está aberto
    On Error GoTo MostraErro
    'Verifica qual Objecto de procurar
    Select Case TipoDeObjecto
   
        'Caso seja uma tabela
        Case acTable
            If CurrentData.AllTables.item(NomeObjecto).IsLoaded = True Then
                'Caso o Objecto esteja carregado
                ObjectoEstaAberto = True
            Else
                'Caso não esteja carregado
                ObjectoEstaAberto = False
            End If
        'Caso seja uma consulta
        Case acQuery
            If CurrentData.AllQueries.item(NomeObjecto).IsLoaded = True Then
                'Caso o Objecto esteja carregado
                ObjectoEstaAberto = True
            Else
                'Caso não esteja carregado
                ObjectoEstaAberto = False
            End If
        'Caso seja um formulário
        Case acForm
            If CurrentProject.AllForms.item(NomeObjecto).IsLoaded = True Then
                'Caso o Objecto esteja carregado
                ObjectoEstaAberto = True
            Else
                'Caso não esteja carregado
                ObjectoEstaAberto = False
            End If
        'Caso seja um relatório
        Case acReport
            If CurrentProject.AllReports.item(NomeObjecto).IsLoaded = True Then
                'Caso o Objecto esteja carregado
                ObjectoEstaAberto = True
            Else
                'Caso não esteja carregado
                ObjectoEstaAberto = False
            End If
        'Caso seja uma macro
        Case acMacro
            If CurrentProject.AllMacros.item(NomeObjecto).IsLoaded = True Then
                'Caso o Objecto esteja carregado
                ObjectoEstaAberto = True
            Else
                'Caso não esteja carregado
                ObjectoEstaAberto = False
            End If
        'Caso seja um módulo
        Case acModule
            If CurrentProject.AllModules.item(NomeObjecto).IsLoaded = True Then
                'Caso o Objecto esteja carregado
                ObjectoEstaAberto = True
            Else
                'Caso não esteja carregado
                ObjectoEstaAberto = False
            End If
        'Caso seja outro Objecto
        Case Else
            MsgBox "No momento não existe suporte para este Objecto.", vbInformation
    End Select
    Exit Function
MostraErro:
    MsgBox err.Number & vbCr & err.Description
End Function


Alexandre,

Vou tentar explicar novamente, preciso que o mesmo formulário de pesquisa "Pesquisa_DC", faça a busca em 3 formulários diferentes. Só que em tempos diferentes.

Exemplo:

O ID. Documento de controlo é comum nas tabelas "Prot_Tex", "Prot_Pol" e "Prot_Ban" e cada tabela possui um formulário vinculado "Form_Prot_Tex", "Form_Prot_Pol" e "Form_Prot_Ban"

Quero fazer a pesquisa pelo Form "Pesquisa_DC" e que ele abra o registro referente o ID Documento de controlo no "Form_Prot_Tex".
Em outro momento faça a pesquisa, mas ele abra o registro referente o ID Documento de controlo no "Form_Prot_Pol" e assim por diante.

Espero ter conseguido explicar.

Olá!

Agradeço a ajuda de todos, o problema foi resolvido com alterações no fluxo de informações.


Cumprimentos,

Bruno Nunes