Filtrar por duas combox em RowSource

Boa noite estou com dois problema.
Falo com vocês que eu pesquisei e teve varios, mas nenhum obtive sucesso.
tenho a tabela para cada produto e filtro por 2  combox eu tenho mais, mas acho que so esse dois ja consigo fazer o restante.

Produto

Medidas

Primeiro é filtrar a cboPrudutopara que no segundo combox já venha somente as medidas do produto que foi filtrado
Segundo Não consigo filtrar com os dois.
esse código e do segundo.

Código:

Me.listar_preco.RowSource = "SELECT tblProdutos.Código, tblProdutos.Produto, " & _
    "tblProdutos.unidade, tblProdutos.PrecoFinal, tblProdutos.Parcelamento, tblProdutos.lucro, tblProdutos.num_categoria " & _
    "FROM tblProdutos " & _
    "WHERE tblProdutos =" & Me.listar_preco.Column(1) & " AND Medida =" & Me.listar_preco.Column(0) & "'"
         Me.listar_preco.Requery

Na parte da instrução abaixo está faltando o nome do campo:

"WHERE tblProdutos =

Seria

"WHERE tblProdutos.[NOME_DO_CAMPO] = ...

Att,

Alexandre Fim

Bom dia. Vixi Alexandre ao consertar o código aqui eu deletei o nome sem querer. Mas continua no erro
Não queria separa a tabelas para fazer os relacionamentos, e somente puxasse pelo valor que tem na cbo (value), estava pensado que puxasse a medido do produto filtrado desisti disso.

Gilliard,

Sempre que possível, "quebre" a string de instrução SQL , pois facilita a leitura e manutenção, conforme abaixo:

Código:



    Dim strSQL As String
   
    strSQL = "SELECT Código, Produto, unidade, PrecoFinal, Parcelamento, lucro, num_categoria "
    strSQL = strSQL & " FROM tblProdutos "
    strSQL = strSQL & " WHERE Produto = " & Me.listar_preco.Column(1) & " "
    strSQL = strSQL & " AND Medida    ='" & Me.listar_preco.Column(0) & "'"




Copie e cole o codigo e veja se funciona.

Att,

Alexandre Fim

Não deu, a order by também, só está funcionando na linha de origem

Então disponibiliza uma cópia do seu bd para analise.

Valeu

Att,

Alexandre Fim

Bom dia a todos!

O que gostaria de entender na questão é: se queres que ao clicar no produto da listBox as combos sejam preenchidas com as informações para as quais estão designadas ou quer que o filtro seja pelas combos, ao selecionar combo medida, por exemplo, liste os produtos com a mesma medida?

Gilliard,

Segue banco de dados com as devidas correções.
OBS: Mudei a fonte de dados dos combos "Medida" e "Cor" para carregar somente dados distintos (verifique no modo SQL, o uso de SELECT DISTINC) para não carregar dados repitidos.

Att,

Alexandre Fim

BOa tarde.
A montagem que você fez está dando problema com ( impossivel de localizar o projeto)
Tentei mudar com o código acima, Nº1

Só a order by da errado.
Em todos os métodos ja tentei
Dim strSQL As String
strSQL = "SELECT tblProdutos.Código, tblProdutos.Produto, tblProdutos.Cores, tblProdutos.Medida, tblProdutos.unidade, tblProdutos.PrecoFinal, tblProdutos.Parcelamento, tblProdutos.lucro, tblProdutos.num_categoria " & _
"FROM tblProdutos " & _
"WHERE tblProdutos.num_categoria = " & Me.cbo_listar_produto.Column(1) & " AND tblProdutos.Medida = '" & Me.cboMedida.Column(1) & "' " & _
"ORDER BY tblProdutos.Medida"

Me.listar_preco.RowSource = strSQL
Me.listar_preco.Requery


Nem com Sql funciona. Se eu colocar mais campos ele não junta.
SELECT DISTINCT tbl_categoria.categoria, tblProdutos.num_categoria, tblProdutosCores, tblProdutos.Medidas e assim vai
FROM tbl_categoria INNER JOIN tblProdutos ON tbl_categoria.Código = tblProdutos.num_categoria;