MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]Filtrar subformulário com conexão

    avatar
    JOSEMORAES
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JOSEMORAES 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
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JOSEMORAES 15/5/2019, 21:59

    UP


    .................................................................................
    [Resolvido]Filtrar subformulário com conexão 10715412
    avatar
    JOSEMORAES
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JOSEMORAES 18/5/2019, 11:48

    up


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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Marcelo David 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.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Filtrar subformulário com conexão Marcel11
    avatar
    JOSEMORAES
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JOSEMORAES 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: 28/3/2024, 10:26