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]Filtrar subformulário com conexão

    avatar
    JOSEMORAES
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 176
    Registrado : 23/02/2011

    [Resolvido]Filtrar subformulário com conexão Empty [Resolvido]Filtrar subformulário com conexão

    Mensagem  JOSEMORAES em 13/5/2019, 17:14

    Olá pessoal, estou com uma duvida, como consigo filtrar um subformulário com tabelas não vonculadas?

    Hoje uso essa função para salvar na tabela (BackEnd).

    Faço a instancia no form assim:
    Dim dbBanco As DAO.Database, rsFavorecido As Recordset
    Dim strPath As String, SenhaBd As Variant

    Depois:

    Public Function fncAbreConexao()
    SenhaBd = DecryptData(DLookup("Senha", "tblCaminhoBE"))
    strPath = DLookup("[Path_0]", "tblCaminhoBe")
    Set dbBanco = OpenDatabase(strPath, False, False, "MS Access;PWD=" & SenhaBd)
    Set rsFavorecido = dbBanco.OpenRecordset("TblFavorecido")
    End Function

    Public Function fncFechaConexao()
    dbBanco.Close
    Set dbBanco = Nothing
    End Function


    E no botão salvar chamo a função para salvar na tabela:

    On Error GoTo Erro
    fncAbreConexao
    Me.BtTxt.SetFocus
    rsFavorecido.AddNew
    rsFavorecido("Favorecido_Nome") = Me.TxtNome
    rsFavorecido("Favorecido_Contato") = Me.TxtContato
    rsFavorecido("Favorecido_Telefone") = Me.TxtTelefone
    rsFavorecido("Favorecido_Observacao") = Me.TxtObservacao
    ' Atualizando a tabela
    rsFavorecido.Update
    'Mensagem de confirmação
    Call Confirma("Confirmação de dados!", "* " & TxtNome & "", "Registro adicionado com sucesso.", _
    "CAD_Favorecido")
    Me.TxtNome.SetFocus
    MakeTransparent Me.hWnd, 100
    fncFechaConexao
    Sai:
    Exit Sub
    Erro:
    MsgBox " Erro ocorrido: " & Err.Number & Err.Description
    Resume Sai:



    Mas agora vem o problema, tenho um subformulário "CAD_FavorecidoDet" dentro do form "CAD_FavorecidoLista"

    No "CAD_FavorecidoLista" tem um campo chamado "TxtBuscar" que ao digitar iria filtrando so subformulário "CAD_FavorecidoDet"


    Com tabelas vinculadas funciona facil, agora nesse modelo de transição ele não funciona

    Alguem teria alguma ideia ?







    .................................................................................
    [Resolvido]Filtrar subformulário com conexão 10715412
    avatar
    JOSEMORAES
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 176
    Registrado : 23/02/2011

    [Resolvido]Filtrar subformulário com conexão Empty Re: [Resolvido]Filtrar subformulário com conexão

    Mensagem  JOSEMORAES em 15/5/2019, 21:59

    UP


    .................................................................................
    [Resolvido]Filtrar subformulário com conexão 10715412
    avatar
    JOSEMORAES
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 176
    Registrado : 23/02/2011

    [Resolvido]Filtrar subformulário com conexão Empty Re: [Resolvido]Filtrar subformulário com conexão

    Mensagem  JOSEMORAES em 18/5/2019, 11:48

    up


    .................................................................................
    [Resolvido]Filtrar subformulário com conexão 10715412
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2761
    Registrado : 21/04/2011

    [Resolvido]Filtrar subformulário com conexão Empty Re: [Resolvido]Filtrar subformulário com conexão

    Mensagem  Marcelo David em 20/5/2019, 00:57

    Boa noite,
    Eu particularmente não gosto da ideia de filtrar ao digitar, uma vez que a cada caractere digitado haverá uma consulta até o banco de dados, que no caso de um ambiente de rede,
    pode ser desastroso quando a base crescer.

    Mas aponto duas soluções para o seu caso. A primeira mais trabalhosa, porem com menos impacto (inicialmente) para a rede:

    1 - Carregaria os dados desse subformulário para uma tabela temporária e essa tabela seria a origem de dados do subformulário. E como já, disse, você já sabe lidar com essa situação.
    2 - Usaria uma instrução SQL como origem do subformulário. E a cada digitação, usaria como WHERE a caixa de texto de pesquisa. (Para isso, iria abrindo apenas o recordset com o select desejado) - Isso é uma tragedia em termos de desempenho em rede.


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    JOSEMORAES
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 176
    Registrado : 23/02/2011

    [Resolvido]Filtrar subformulário com conexão Empty Re: [Resolvido]Filtrar subformulário com conexão

    Mensagem  JOSEMORAES em 27/5/2019, 12:07

    Obrigado pela ajuda, vou tentar de outra forma


    .................................................................................
    [Resolvido]Filtrar subformulário com conexão 10715412

    Conteúdo patrocinado

    [Resolvido]Filtrar subformulário com conexão Empty Re: [Resolvido]Filtrar subformulário com conexão

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/7/2019, 00:02