[Resolvido]Listar produto com o valor da sua última venda

Boa tarde!

Bd em Access 2010.

O objetivo: Filtrar o último produto vendido para um determinado cliente, com a finalidade de se ver o preço praticado nessa última venda.

Como? Após informar (no Formulário1) o código de um cliente no campo "Cód Cliente" e no campo "Descrição do Produto" informar o nome ou parte do nome do produto, seria listado na Caixa de combinação "ListaProdutos", apenas o registro da última venda desse produto.

Atualmente consigo fazer esse filtro, porém listando todas as vendas já realizadas do produto informado para o cliente também informado, não conseguindo limitar a busca desse produto para apenas a sua última venda, ou seja, a mais recente.

Para testes, informar o cód do cliente "346" e a descrição do produto "Papel".

Obs: Caso o cliente não tenha comprado nenhum produto com a descrição informada, o sistema está buscando esse produto na consulta "viewProdutos". Caso contrário, ele está buscando  na consulta "Cs_UltimasVendasProdutos".

Desde já agradeço!

meu amigo eu estou no celular, não da para ver , faz o seguinte , faz 2 cambo chamando o cliente e automaticamente vem as venda vc clica na ultima e aparece so ela.

crysostomo,

obrigado pela sugestão, mas o objetivo é outro. Vou dar um exemplo para ter um melhor entendimento.

Uma loja vende o produto "X" para vários clientes. Porém existem variações de preço desse produto, de cliente para cliente e no cadastro de produtos, o preço é sempre o mesmo.
Como são vários clientes, fica difícil lembrar por quanto foi vendido esse produto na última venda feita para cada cliente.

Então o objetivo seria, após informar o cliente:
1-Filtrar todas as vendas feitas para esse cliente - ok - já está funcionando
2-Ao buscar o produto da venda atual, o sistema (dentro das vendas já filtradas), mostrasse apenas esse produto, mas com o valor da última venda. - Não ok - Atualmente, o sistema está filtrando todas as vendas que contem o produto informado e não apenas a última venda.

Bom dia...

Formulário estranho esse que mandou...

Não está faltando nada nele não ? Principalmente após digitar o código do teu cliente ?

Bom dia Silvio,

Para fins de teste, acredito que possa ser assim mesmo.

Após digitar o código do cliente (é feito o filtro dos produtos vendidos para tal cliente), e o cursor já vai para o campo da descrição do produto, para buscar o produto da venda atual.
Sugeri então, buscar pela descrição "Papel", pois há alguns registros de vendas com essa descrição, e o objetivo não é listar essas várias vendas, e sim apenas a última (mais recente).

Teste, veja se é isso...

Código:

Private Sub txtNomPro_AfterUpdate()

    Set dbs = CurrentDb

    strSql = "SELECT  top 2 Cs_UltimasVendasProdutos.CODPRO, Cs_UltimasVendasProdutos.ccVarPro, Cs_UltimasVendasProdutos.ccNomPro, Cs_UltimasVendasProdutos.ccPreçoVenda, Cs_UltimasVendasProdutos.ccPreçoCusto, Cs_UltimasVendasProdutos.ccMedida, Cs_UltimasVendasProdutos.ccCST, Cs_UltimasVendasProdutos.ccCSOSN, Cs_UltimasVendasProdutos.ccEstoque, Cs_UltimasVendasProdutos.ccNCM, Cs_UltimasVendasProdutos.ccIPI, Cs_UltimasVendasProdutos.CCALIQUOTAIBPT, Cs_UltimasVendasProdutos.ccPeso, Cs_UltimasVendasProdutos.ccAplicação, Cs_UltimasVendasProdutos.ccCFOP, Cs_UltimasVendasProdutos.ccComissao FROM Cs_UltimasVendasProdutos "

    strSql = strSql & " WHERE Cs_UltimasVendasProdutos.ccNomPro Like '*" & Me.txtNomPro & "*'"
    strSql = strSql & " ORDER BY Cs_UltimasVendasProdutos.ccNomPro DESC;"

    Set rst = dbs.OpenRecordset(strSql)

    If rst.RecordCount > 0 Then
        ListaProdutos.RowSource = strSql
        ListaProdutos.Visible = True
        ListaProdutos.SetFocus
        ListaProdutos.Dropdown

    Else


        strSql = "SELECT top 2 viewProdutos.CODPRO, viewProdutos.ccVarPro, viewProdutos.ccNomPro, viewProdutos.ccPreçoVenda, viewProdutos.ccPreçoCusto, viewProdutos.ccMedida, viewProdutos.ccCST, viewProdutos.ccCSOSN, viewProdutos.ccEstoque, viewProdutos.ccNCM, viewProdutos.ccIPI, viewProdutos.CCALIQUOTAIBPT, viewProdutos.ccPeso, viewProdutos.ccAplicação, viewProdutos.ccCFOP, viewProdutos.ccComissao FROM viewProdutos"

        strSql = strSql & " WHERE viewProdutos.ccNomPro Like '*" & Me.txtNomPro & "*'"
        strSql = strSql & " ORDER BY viewProdutos.ccNomPro DESC;"
        Set rst = dbs.OpenRecordset(strSql)
        If rst.RecordCount > 0 Then
            ListaProdutos.RowSource = strSql
            ListaProdutos.Visible = True
            ListaProdutos.SetFocus
            ListaProdutos.Dropdown
        Else
            Beep
            MsgBox "Não há produtos com esta informação!", vbInformation, "Orçamentos"
            Exit Sub
        End If
    End If

End Sub

Silvio,

Desculpe a demora do retorno, mas optei por fazer vários testes antes declarar o tópico como "Resolvido".

Mas sim, sua sugestão me ajudou muito a resolver o problema.

Muito obrigado e sucesso pra vc!

Abraço

Bom dia..

Show de bola, o fórum agradece o retorno.

Sucesso a ti.

Abraços.