MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    Concatenar e agrupar por datas estilo referencia cruzada (access 2013)

    Compartilhe

    JOSEMORAES
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 154
    Registrado : 23/02/2011

    Concatenar e agrupar por datas estilo referencia cruzada (access 2013)

    Mensagem  JOSEMORAES em 14/7/2015, 14:10

    Olá Pessoal, preciso de uma ajuda de vocês. Preciso de uma forma de concatenar um registro de informações em uma consulta estilo referenia cruzada,





    Em uma tabela eu tenho registros como:

    Data              Setor  OS
    01/01/2015   A  00001/2015
    01/01/2015        A  00002/2015
    01/01/2015        B  00001/2015
    01/01/2015        B  00002/2015
    02/01/2015        B  00003/2015
    02/01/2015        C  00003/2015
    02/01/2015        C  00002/2015
    02/01/2015        D  00003/2015
    03/01/2015        A  00003/2015
    04/01/2015        B  00004/2015
    04/01/2015        B  00005/2015
    04/01/2015        B  00006/2015
    05/01/2015        C  00004/2015
    05/01/2015        D  00001/2015

    E preciso consultar uma forma de enxergar esses registros da seguinte maneira

    Concatenar as OS por setor dentro da data

    Estou enviando em anexo um exemplo em excel para ter uma visão melhor do que eu preciso.

    Mas é em access que eu preciso.

    que puder me ajudar eu agradeço muito

    Obrigado
    Anexos
    Anexos
    Exemplo.xlsx
    Você não tem permissão para fazer download dos arquivos anexados.
    (12 Kb) Baixado 34 vez(es)


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 691
    Registrado : 29/08/2012

    Re: Concatenar e agrupar por datas estilo referencia cruzada (access 2013)

    Mensagem  Clebergyn em 15/7/2015, 03:12

    Veja no link se é mais ou menos isso

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

    JOSEMORAES
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 154
    Registrado : 23/02/2011

    Re: Concatenar e agrupar por datas estilo referencia cruzada (access 2013)

    Mensagem  JOSEMORAES em 15/7/2015, 13:37

    Olá.

    Perfeito, muito obrigado pela sua ajuda.

    Agradeço muito.


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Clebergyn
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 691
    Registrado : 29/08/2012

    Re: Concatenar e agrupar por datas estilo referencia cruzada (access 2013)

    Mensagem  Clebergyn em 15/7/2015, 14:46

    veja se assim resolve o que me pediu

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

    JOSEMORAES
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 154
    Registrado : 23/02/2011

    Re: Concatenar e agrupar por datas estilo referencia cruzada (access 2013)

    Mensagem  JOSEMORAES em 15/7/2015, 16:52

    Ficou perfeito.

    Vou tentar adaptar para um dashboard, pois as colunas ficaram meio grande, onde o "Concluído" ficaria com um simbolo Verde e o "Processo" ficaria com um simbolo em vermelho.

    Mas muito obrigado, vou tentar fazer essa adpatação.



    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7030
    Registrado : 05/11/2009

    Re: Concatenar e agrupar por datas estilo referencia cruzada (access 2013)

    Mensagem  Alexandre Neves em 22/7/2015, 22:03

    Lembre-se do Resolvido


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 124
    Registrado : 14/03/2013

    Re: Concatenar e agrupar por datas estilo referencia cruzada (access 2013)

    Mensagem  janettepires em 14/4/2018, 16:35

    Bom dia!

    Esse exemplo é quase perfeito para o que eu preciso o problema é que se colocar só o MES referente a data, a consulta referencia cruzada agrupa.

    Alguem poderia me ensinar uma forma de não agrupar.


    Obrigada

    Janette
    avatar
    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 124
    Registrado : 14/03/2013

    Re: Concatenar e agrupar por datas estilo referencia cruzada (access 2013)

    Mensagem  janettepires em 15/4/2018, 21:58

    Adaptei a função para coluna e funcionou.

    Function conc(dt As String, se)
    On Error GoTo g1
    Dim rs As DAO.Recordset, texto As String, i

    Set rs = CurrentDb.OpenRecordset("SELECT [tbleventos].obs FROM tbleventos Where [tbleventos].mes like '" & dt & "' and [tbleventos].setor='" & se & "'")
    i = 1
    Do While Not rs.EOF
    If i = 1 Then
    texto = rs("obs") & "***"
    Else
    texto = texto & vbNewcolumn & rs("obs") & " "
    End If
    i = 2
    rs.MoveNext
    Loop

    rs.Close
    CurrentDb.Close
    Set rs = Nothing
    conc = texto
    Exit Function
    g1: MsgBox Err.Description

    End Function

      Data/hora atual: 16/11/2018, 18:58