MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Duvida em consulta - Juntar linhas

    avatar
    FGC
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 02/01/2013

    Duvida em consulta - Juntar linhas Empty Duvida em consulta - Juntar linhas

    Mensagem  FGC 31/12/2016, 14:49

    Tópico origem: https://www.maximoaccess.com/t27180-resolvidoconsulta-juntar-linhas
    --------------------------------

    Boa tarde,

    tentei fazer o exemplo do colega mais não conseguir, alguém poderia me ajudar? segue abaixo o código e anexo o bd.


    Código:
    Option Compare Database

    Public Function fncAgrupaDocumentos(strOS As String) As String
    Dim rs As DAO.Recordset
    Dim strSql$
    Dim strLista$
    'Seleciona os Registros
    strSql = "SELECT * FROM ABASTECIMENTO WHERE FROTA =""" & StrFROTA & """;" '
    Set rs = CurrentDb.OpenRecordset(strSql)
    Do While Not rs.EOF
       strLista = strLista & " | " & rs!DATAAB & " lts " & rs!QTD_DIESEL
       rs.MoveNext
    Loop
    fncAgrupaDocumentos = Mid(strLista, 4) 'Remove o Espaço e a | inicial
    rs.Close
    Set rs = Nothing
    End Function

    Mas gostaria que ficasse assim:

    FROTA    DETALHES (DATA E QUANTIDADE)
    191        100 12/11/16 - 130 13/11/16 ........... ATÉ 30 DIAS
    200        150 12/11/16 - 200 14/11/16 ...........
    Anexos
    Duvida em consulta - Juntar linhas AttachmentBDMODELO1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.5 Mb) Baixado 10 vez(es)


    Última edição por FGC em 3/1/2017, 13:57, editado 5 vez(es) (Motivo da edição : APRENDER FAZER)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7938
    Registrado : 15/03/2013

    Duvida em consulta - Juntar linhas Empty Re: Duvida em consulta - Juntar linhas

    Mensagem  Alvaro Teixeira 3/1/2017, 10:07

    Olá Fanucche Carvalho, Bem-Vindo ao fórum.
    O tópico foi dividido.

    Quanto à imagem que pretendia postar e anexo não ficou nada.
    Veja AQUI como colocar uma imagem.

    Veja AQUI como adicionar arquivo.

    Abraço e bons estudos com o MaximoAccess
    avatar
    FGC
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 02/01/2013

    Duvida em consulta - Juntar linhas Empty Re: Duvida em consulta - Juntar linhas

    Mensagem  FGC 3/1/2017, 16:39

    Segue no anexo o banco de dado na primeira postagem.

    No aguardo.

    Conteúdo patrocinado


    Duvida em consulta - Juntar linhas Empty Re: Duvida em consulta - Juntar linhas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/7/2024, 12:22