[Resolvido]Filtrando uma consulta através do VBA

Bom dia / Boa tarde / Boa noite!!!

Prezados, preciso de uma ajuda.

Uso a seguinte rotina para filtragem em uma consulta, segue abaixo:

Dim C As String, x As String
x = Me.pesquisa.Text
C = " where referencia like '*" & x & "*' or descricao like '*" & x & "*'"
Me.LstPeca.RowSource = " SELECT Idproduto, Representada, Referencia, Descricao, unidade, Categoria, PrVenda, ValorComissao FROM QryBuscaProdutoPedido " & C & "ORDER BY descricao ASC;"
End Sub

Porém, contudo, todavia......preciso incluir um campo a mais de filtragem que é o seguinte:
Like [Forms]![FrmPedido]![Representada]))
Na seguinte linha....
C = " where referencia like '*" & x & "*' or descricao like '*" & x & "*'"

Ou seja...

Gostaria abrir a consulta para a pesquisa de referência e ou descrição apenas com os produtos cadastrados na referida representada.
Coloquei o critério na consulta, mas o VBA se sobrepõe a mesma.

Desde já, meu muito obrigado.

Up......

UP

UP>................

Olá Silvio,

Verifique na instrução o ORDER BY.

" SELECT Idproduto, Representada, Referencia, Descricao, unidade, Categoria, PrVenda, ValorComissao FROM QryBuscaProdutoPedido " & C & "ORDER BY descricao ASC;"

Coloque um espaço:
" SELECT Idproduto, Representada, Referencia, Descricao, unidade, Categoria, PrVenda, ValorComissao FROM QryBuscaProdutoPedido " & C & " ORDER BY descricao ASC;"

OU ENTÃO (Copie e cole o código):

Código:


    Dim C As String, x As String
    Dim sSQL As String
    
    x = Me.pesquisa.Text
    
    C = " where referencia like '*" & x & "*' or descricao like '*" & x & "*'"
    
    sSQL = "SELECT Idproduto, Representada, Referencia, Descricao, unidade, Categoria, PrVenda, ValorComissao "
    sSQL = sSQL & " FROM QryBuscaProdutoPedido " & C & ""
    sSQL = sSQL & " ORDER BY descricao ASC;"
    
    Me.LstPeca.RowSource = sSQL



Coloque um breakpoint no inicio da sub, execute a tela e faça um debug linha-a-linha nesta rotina e, antes do dbug entrar na linha " Me.LstPeca.RowSource = sSQL", veja o resultado da variável "sSQL" na Janela Imediata.

Em seguida, copie o resultado da variável e abra uma nova consulta no Modo SQL, e cole o resultado. Na sequencia, execute a consulta pra saber se está funcionando e se traz algum resultado.



Acredito que seja isso!

Att,

Alexandre Fim

Alexandre, boa tarde.

Obrigado por me ajudar.

Mas.........................
Porém, contudo, todavia......preciso incluir um campo a mais de filtragem que é o seguinte:
Like [Forms]![FrmPedido]![Representada]))
Na seguinte linha....
C = " where referencia like '*" & x & "*' or descricao like '*" & x & "*'"

A filtragem está perfeita ( tanto a busca pela referência ou pela descrição do produto ), mas preciso que seja colocado como condição a Representada
Algo meio que parecido com isso:

C = " where referencia like '*" & x & "*' or descricao like '*" & x & "*'" and Representada Like [Forms]![FrmPedido]![Representada]))

Silvio, tente isso:

Código:


C = " WHERE referencia LIKE '*" & x & "*' OR descricao LIKE '*" & x & "*' Or Representada LIKE '*" & [Forms]![FrmPedido]![Representada] & "*'"


Estou pratindo do pressuposto que Representada seja texto.

Espero ter ajudado.

Att,

Alexandre Fim

Alexandre....não deu o resultado esperado.

Bom dia a todos.

Batendo cabeça aqui para acertar essa rotina...

Private Sub Pesquisa_Change()

Dim C As String, x As String
x = Me.pesquisa.Text
C = " WHERE referencia LIKE '*" & x & "*' OR descricao LIKE '*" & x & "*' "
Me.LstPeca.RowSource = " SELECT IdProduto, Representada, Referencia, Descricao, Unidade, Categoria, PrVenda, ValorComissao FROM QryBuscaProdutoPedido WHERE Representada Like [Forms]![FrmPedido]![Representada] & C & "

End Sub

Onde....Representada é texto.   Referencia....é texto.     descricao....é texto

Se eu tirar WHERE Representada Like [Forms]![FrmPedido]![Representada] & C & " Funfa...mas preciso que seja filtrado também pela representada.

Se alguém puder me ajudar....agradeço.

Olá Silvio,

Tente isso:

C = " WHERE referencia LIKE '*" & x & "*' OR descricao LIKE '*" & x & "*' AND Representada LIKE '*" & [Forms]![FrmPedido]![Representada] & "*'"

Att,

Alexandre Fim

alexandre escreveu:Tente isso:

C = " WHERE referencia LIKE '*" & x & "*' OR descricao LIKE '*" & x & "*' AND Representada LIKE '*" & [Forms]![FrmPedido]![Representada] & "*'"

Alexandre, boa tarde.....já tentei também.

Veja a minha última mensagem, creio que vou mudar de estratégia.   Se o VBA " monta " a consulta...pensou eu então que terei que colocar o parâmetro de filtragem nessa montagem.

Não sei se a sintaxe está correta, conforme abaixo:

Me.LstPeca.RowSource = " SELECT IdProduto, Representada, Referencia, Descricao, Unidade, Categoria, PrVenda, ValorComissao FROM QryBuscaProdutoPedido WHERE Representada Like [Forms]![FrmPedido]![Representada] & C & "

O que você pensa/acha disso ???

Silvio,
O que pode fazer é deixar a pesquisa mais dinâmica.
Manda um print do seu form de pesquisa, ou uma cópia do bd, somente partes envolvidas no problema, para análise e solução.

VAleu

FIM

Boa noite Silvio.
Vê se esse pequeno exemplo te ajudar, aqui o sub vai sendo filtrado com referencia dos outros campos.
https://www.maximoaccess.com/t41256-resolvidofiltrar-subformulario-pelo-formulario

Bom dia / Boa tarde / Boa noite.

Alexandre, crysostomo...estou " subindo " as entidades referente ao problema.

Siga esses passos para chegar no problema.

1- abra o frmpedido.
2- coloque a data, a representada (escolha uma das quatro).
3- no sub formulário, clicar em busca, vai abrir um outro formulário de busca com uma LstBox e uma caixa de texto de pesquisa.
4- na caixa de texto, pesquisa, digito o código do produto ou a sua descrição.    Isso tem que estar " linkado " na representada que aparece nesse formulário.  TicToc tem 4 produtos, use como referência de busca.
5- é esse o problema que estou enfrentado...filtrar por produto e ou descrição...mas filtrando também pela representada.

Qualquer dúvida...é só dar um grito por aqui.

Desde já, meus agradecimentos a vocês !!!

Olá Silvio,

De modo geral, fiz alguns ajustes no sistema. Ficou assim:


OBS: É necessário realizar "Normalização" no banco de dados, pois existem redundância de dados.
- O sistema está gravando campo texto (Ex: Representada) na tabela de Pedidos, onde deveria grvar o ID da Representada.
- O campo Referencia do produto possui espaços em branco, e para realizar rotinas de pesquisa é necessário usar o operador "LIKE", e nem sempre trazer o resultado desejado.

Segue versão atualizada com os devidos ajustes.

Espero ter ajudado

Boa sorte

Att,

Alexandre Fim

Alexandre...desde já meu obrigado.


- O sistema está gravando campo texto (Ex: Representada) na tabela de Pedidos, onde deveria grvar o ID da Representada.
tem que ficar desse modo, pois uso esse campo para ver as comissões por representada.

- O campo Referencia do produto possui espaços em branco, e para realizar rotinas de pesquisa é necessário usar o operador "LIKE", e nem sempre trazer o resultado desejado.
eu importei os dados de outro sistema, não foi nada digitado.


Estou na rua em outro cliente, chegando no escritório, vou abaixar e analisar.

Desde já meus sinceros agradecimentos a ti.

Abraços.

resolvido