MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 : 124
    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 : 7426
    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 : 124
    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 : 7426
    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 : 124
    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 : 7426
    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 : 124
    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 : 124
    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

    Conteúdo patrocinado

    [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  Conteúdo patrocinado


      Data/hora atual: 6/12/2019, 10:09