Buscar do relatório ou da Consulta apenas valores que não se repetem

Pessoal,

Preocurei bastante neste forum e não encontrei a resposta para o meu caso e é bem simples, mas como estou começando no Access não estou encontrando a solução.

Criei esta consulta e um relatório apartir dela, Preciso que apareça apenas o CodVenda (341 e um dos 342), tanto faz se for o primeiro ou o segundo, pois a descrição mesmo sendo diferente não é relevante para os próximos passos que farei

ex:
DataVenda   VlrDesconto         CodVenda TipoVenda                Descrição
29/03/2014      R$ 5,00              341      Controle de Pedidos GIRAGRILL ESPETO BIDENTE INOX
29/03/2014     R$ 100,00           342      Controle de Pedidos GIRAGRILL PRIME ELEVGRILL 704 - 1 BÁSICA
29/03/2014     R$ 100,00           342      Controle de Pedidos GIRAGRILL ESPETO BIDENTE EB 630 INOX

Pode ser aplicado ou na Consulta ou no relatório, tanto faz.

Na consulta o SQL:

SELECT Tbl_Vendas.DataVenda, Tbl_Vendas.VlrDesconto, Tbl_Vendas.CodVenda, Tbl_Vendas.TipoVenda, Tbl_CadProdutos.Descrição

FROM Tbl_CadProdutos INNER JOIN (Tbl_Vendas INNER JOIN Tbl_DetVendas ON Tbl_Vendas.CodVenda = Tbl_DetVendas.CodigoVendas) ON Tbl_CadProdutos.Item = Tbl_DetVendas.Item

WHERE (((Tbl_Vendas.DataVenda) Is Not Null And (Tbl_Vendas.DataVenda) Between [Forms]![Frm_Rel_Consulta_Vendas]![TxtDataInicial] And [Forms]![Frm_Rel_Consulta_Vendas]![TxtDataFinal]) AND ((Tbl_Vendas.TipoVenda)<>"Orçamento" And (Tbl_Vendas.TipoVenda)<>"Material com Técnico") AND ((Tbl_CadProdutos.Descrição) Like "Giragrill*"));


Grato

Sidney

ps: segue meu BD.

Sidney

o BD não foi anexado.

Para anexar ele tem que ser compactado com a extensão .zip se usar Winrar, nele tem a opção para zip.

Abraços

Noob

Avelino, Em primeiro lugar muito obrigado pela Ajuda.

Peguei o seu exemplo e ainda não consegui o resultado, mas as suas dicas foram importantes, pois não sabia onde colocar a programação, pelo menos agora já sei.

Outra coisa, peguei aquele material que tu indicou e ajudou bastante,  amanhã vou lhe enviar um e-mail para adquirir o Item 2 - Coletânea UsandoAccess, achei muito legai para quem está já com um conhecimento básico avançado.

Obrigado pela dica do ZIP.

Segue o meu BD para vc dar uma olhada onde estou errando, a data é dia 30-03-2014.

Até mais...

Sidney

Avelino,

Deu certo, quando alterado o modo padrão realmente aparece um ítem de cada ou seja não se repete o CodigoVendas 342.

Mas quando eu fui colocar uma soma neste relatório, a impressão que fica é que ele busca da consulta e lá aparece o CodigoVenda 342 duas vezes, e aí esta soma fica R$ 22 e não o que aparece o modo padrão que deveria ser R$ 14.

Acho que também tenho que arrumar lá na consulta.

VlrDesconto CodigoVendas Descrição
R$ 8,00 342 GIRAGRILL ESPETO BIDENTE EB 630 INOX
R$ 8,00 342 GIRAGRILL PRIME ELEVGRILL 704 - 1 BÁSICA
R$ 6,00 345 GIRAGRILL ESPETO BIDENTE EB 630 INOX
TTVlDescontoG R$ 22,00

Segue meu BD, vê o que vc pode me ajudar.

Outra coisa, te mandei um e-mail para me auxiliar no melhor curso de Access que vc tem.

Valeu e um abraço

Sidney

Avelino,

Ainda não deu...

Tentei várias coisas, está dando erro que eu não posso atribuir um valor para o objeto Me.TTVlDescontoG = 0

O Relatório aparece dois valores baseado na programação feita, mas precisava que somasse este dois valores, coloquei no rodopé do relatório, mas ele soma os tres valores conforme aparece na consulta.

O BD está anexo, que faço de errado?

Mas agora qua adquiri os materiais vão ficar mais fácil, vou estudar bem.

E desculpa a insistência...

Um grande abraço.

Sidney

Olha como está.
--------------------------------------------------------------

Option Compare Database
Dim num

Private Sub CabeçalhoDoRelatório_Print(Cancel As Integer, PrintCount As Integer)
num = 0
Me.TTVlDescontoG = 0
End Sub

Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
If num = Me.CodigoVendas Then
Me.PrintSection = False
Me.MoveLayout = False
num = Me.CodigoVendas

Else
Me.TTVlDescontoG = Me.TTVlDescontoG + Me!VlrDesconto
End If
num = Me.CodigoVendas

End Sub
--------------------------------------------------------------------------------------------

Segue o exemplo

Bom estudo!