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


    [Resolvido]Filtrar Tabela

    avatar
    paulo.teixeira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 18/12/2022

    [Resolvido]Filtrar Tabela Empty [Resolvido]Filtrar Tabela

    Mensagem  paulo.teixeira 5/1/2024, 20:24

    Olá, caros senhores, mais uma vez venho atrás de conhecimento!

    Estou desenvolvendo um formulário, ao qual tem uma caixa de listagem que mostra os lançamentos da tabela.
    Nessa caixa de listagem quero desenvolver alguns filtros personalizados. Aqui que eu empaquei...

    Quero desenvolver um filtro, que funcione através de variáveis, porém estou com dificuldades de encaixar as mesmas para que funcione como espero.

    Em anexo, segue print da tela, para melhor entendimento

    O que quero fazer é o seguinte: quero selecionar as informações na área demarcada e quando clicar no botão, filtrar as informações selecionadas.
    O código que escrevi foi o seguinte:

    Código:

    Sub Filtro_2()

    Dim filtro_safra As String
    Dim filtro_cultura As Integer
    Dim filtro_produtor As String

    Dim strSQL As String

    filtro_safra = Me.bt_filtro_safra
    filtro_cultura = Me.bt_filtro_cultura
    filtro_produtor = Me.bt_filtro_produtor
        
    strSQL = "SELECT [Lançamentos unificados].ID, [Lançamentos unificados].DATA, [Lançamentos unificados].[NF-e], [Lançamentos unificados].ID_SAFRA, [cad Culturas].Cultura, cadProdutores.[Nome Produtor], [Origens recebimento].Nome, [Lançamentos unificados].[PESO BRUTO], [Lançamentos unificados].IMPUREZA, [Lançamentos unificados].UMIDADE, [Lançamentos unificados].AVARIADO, [Lançamentos unificados].PH, [Lançamentos unificados].[PERCENTUAL AZEVEM], [Lançamentos unificados].AZEVEM, [Lançamentos unificados].TETRAZOLIO, [Lançamentos unificados].[PESO LIQUIDO] FROM [Origens recebimento] INNER JOIN (cadProdutores INNER JOIN ([cad Culturas] INNER JOIN [Lançamentos unificados] ON [cad Culturas].Id = [Lançamentos unificados].ID_CULTURA) ON cadProdutores.Código = [Lançamentos unificados].ID_PRODUTOR) ON [Origens recebimento].Id = [Lançamentos unificados].ID_ORIGEM WHERE ((([Lançamentos unificados].[PESO LIQUIDO])>0)) AND [filtro_safra] AND [filtro_cultura] AND [filtro_produtor] ORDER BY [Lançamentos unificados].DATA DESC; "


    Me.lista.RowSource = strSQL

    End Sub

    O botão serve apenas para fazer a chamada do filtro
    Anexos
    [Resolvido]Filtrar Tabela AttachmentCapturar.JPG
    Você não tem permissão para fazer download dos arquivos anexados.
    (4 Kb) Baixado 7 vez(es)
    avatar
    paulo.teixeira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 18/12/2022

    [Resolvido]Filtrar Tabela Empty Re: [Resolvido]Filtrar Tabela

    Mensagem  paulo.teixeira 8/1/2024, 16:34

    Sr's, consegui resolver o problema, mas não me desfaço da ajuda de todos.
    Obrigado!

      Data/hora atual: 8/11/2024, 10:50