MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    SidneyFilatte
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 04/02/2014

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

    Mensagem  SidneyFilatte em Dom 30 Mar 2014, 04:38

    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.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2507
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho em Dom 30 Mar 2014, 11:52

    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


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio em Dom 30 Mar 2014, 15:28

    Olá!

    Com um pouquinho de programação no relatório é possível chegar ao desejado.

    Option Compare Database
    Dim num

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

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


    Assista a minha vídeo-aula sobre programação em Access:

    [Você precisa estar registrado e conectado para ver este link.]

    Bom estudo!
    Anexos
    Sidney.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 8 vez(es)


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    SidneyFilatte
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 04/02/2014

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

    Mensagem  SidneyFilatte em Seg 31 Mar 2014, 04:01

    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
    Anexos
    teste 30_03-2014.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (283 Kb) Baixado 8 vez(es)

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio em Seg 31 Mar 2014, 07:57

    Olá!

    basta alterar a propriedade "Modo padrão" do relatório para "Visualização de impressão". O modo "MODO RELATÓRIO" não funciona a programação.

    Sucesso!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    SidneyFilatte
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 04/02/2014

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

    Mensagem  SidneyFilatte em Qua 02 Abr 2014, 02:54

    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 Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio em Qua 02 Abr 2014, 12:00

    OLá!

    altere a programação conforme abaixo:

    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


    Obs: o campo TTVlDescontoG tem que estar no rodapé do RELATÓRIO e não da PÁGINA

    Sucesso!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    SidneyFilatte
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 04/02/2014

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

    Mensagem  SidneyFilatte em Qui 03 Abr 2014, 01:24

    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
    --------------------------------------------------------------------------------------------


    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio em Qui 03 Abr 2014, 08:22

    Segue o exemplo

    Bom estudo!
    Anexos
    Sidney_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (120 Kb) Baixado 9 vez(es)


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

      Data/hora atual: Sex 09 Dez 2016, 07:41