MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    avatar
    brunoluizmaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 24/04/2019

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

    Mensagem  brunoluizmaia em 29/5/2019, 14:15

    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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7671
    Registrado : 05/11/2009

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

    Mensagem  Alexandre Neves em 9/6/2019, 15:15

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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    brunoluizmaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 24/04/2019

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

    Mensagem  brunoluizmaia em 11/6/2019, 10:18

    Alexandre, bom dia!



    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.

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


    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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7671
    Registrado : 05/11/2009

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

    Mensagem  Alexandre Neves em 11/6/2019, 14:21

    Boa tarde,

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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    brunoluizmaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 24/04/2019

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

    Mensagem  brunoluizmaia em 11/6/2019, 14:40

    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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7671
    Registrado : 05/11/2009

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

    Mensagem  Alexandre Neves em 11/6/2019, 15:17

    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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    brunoluizmaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 24/04/2019

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

    Mensagem  brunoluizmaia em 11/6/2019, 15:55

    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. Embarassed
    avatar
    brunoluizmaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 24/04/2019

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

    Mensagem  brunoluizmaia em 14/6/2019, 12:28

    Olá!

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


    Cumprimentos,

    Bruno Nunes

      Data/hora atual: 11/8/2020, 01:23