MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Juntar registros com campos iguais numa só linha

    avatar
    Pelegrino1993
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 10/01/2018

    Juntar registros com campos iguais numa só linha Empty Juntar registros com campos iguais numa só linha

    Mensagem  Pelegrino1993 em 30/4/2018, 18:15

    Prezados(as), boa tarde.

    Gostaria de saber se é possível efetuar a seguinte consulta.

    Na tabela CARROS, temos os campos ANO, MARCA, VEICULO, com os seguintes registros:

    Registro 1 --> 2012, FORD, FIESTA
    Registro 2 --> 2012, FORD, FOCUS
    Registro 3 --> 2013, FIAT, PALIO
    Registro 4 --> 2013, FIAT, UNO
    Registro 5 --> 2013, FIAT, ARGO

    Gostaria de efetuar uma consulta que agrupasse os campos ANO e MARCA, mas listasse os registros do campo VEICULO separadas por um caracteres de espaço, da seguinte forma:

    2012, FORD, FIESTA FOCUS
    2013, FIAT, PALIO UNO ARGO

    Poderiam, por favor, me auxiliar?
    Obrigado.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    Juntar registros com campos iguais numa só linha Empty Re: Juntar registros com campos iguais numa só linha

    Mensagem  FabioPaes em 30/4/2018, 18:20

    Seja bem vindo ao Fórum! Isso é possível sim, mas terá que ser através de uma Função!

    Veja aqui como fazer: https://www.maximoaccess.com/t27180-resolvidoconsulta-juntar-linhas#191452


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Pelegrino1993
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 10/01/2018

    Juntar registros com campos iguais numa só linha Empty Re: Juntar registros com campos iguais numa só linha

    Mensagem  Pelegrino1993 em 30/4/2018, 21:17

    Obrigado Fabio pelas boas-vindas e ajuda. Desculpe, mas sou iniciante ainda no Access e não conheço programação, pode me auxiliar? Estou enviando anexo o arquivo.
    avatar
    Pelegrino1993
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 10/01/2018

    Juntar registros com campos iguais numa só linha Empty Re: Juntar registros com campos iguais numa só linha

    Mensagem  Pelegrino1993 em 30/4/2018, 21:20

    Na verdade não estou conseguindo anexar. Me retorna a seguinte mensagem.

    Os seguintes erros foram encontrados
    O arquivo adicionado não é valido: nome do arquivo incorreto.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    Juntar registros com campos iguais numa só linha Empty Re: Juntar registros com campos iguais numa só linha

    Mensagem  FabioPaes em 30/4/2018, 22:20



    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Pelegrino1993
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 10/01/2018

    Juntar registros com campos iguais numa só linha Empty Re: Juntar registros com campos iguais numa só linha

    Mensagem  Pelegrino1993 em 1/5/2018, 15:13

    Obrigado Fabio. Envio anexo o arquivo. Poderia me ajudar com o código?
    Anexos
    Juntar registros com campos iguais numa só linha Attachmentarchive.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (17 Kb) Baixado 12 vez(es)
    avatar
    Pelegrino1993
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 10/01/2018

    Juntar registros com campos iguais numa só linha Empty Re: Juntar registros com campos iguais numa só linha

    Mensagem  Pelegrino1993 em 2/5/2018, 15:40

    Alguém pode me ajudar? Agradeço desde já.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    Juntar registros com campos iguais numa só linha Empty Re: Juntar registros com campos iguais numa só linha

    Mensagem  FabioPaes em 3/5/2018, 17:30

    Calma amigo! As respostas nem sempre vem no tempo em que Queremos!

    Baixe o arquivo, e execute a csFinal, ela mostrará o que precisa!
    dropbox.com/s/7t9mgqf983osqqg/archive.zip

    Leia os Comentários do Código!
    Recomendo dar uma assistida nesse Vídeo, para entender o que foi feito para se obter o resultado final
    https://www.maximoaccess.com/t33199-manipulacao-de-dados-com-dao-recordset


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Pelegrino1993
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 10/01/2018

    Juntar registros com campos iguais numa só linha Empty Re: Juntar registros com campos iguais numa só linha

    Mensagem  Pelegrino1993 em 4/5/2018, 17:42

    Obrigado Fabio e desculpe a insistência, estava e estou sendo cobrado no trabalho por isso...

    Testei o código e ele funcionou perfeitamente para o exemplo que dei da tabela de VEICULOS com os campos ANO e MARCA agrupados, listando o MODELO.

    Porém, quando fiz o mesmo teste, utilizando outra tabela com os campos DATA_ORIGINAL e VOO_ORIGINAL agrupados, listando o campo PNR, não funcionou. O campo PNR veio em branco. Utilizei o seguinte código:

    Public Function fncAgrupaVoos(strDATA_ORIGINAL, strVOO_ORIGINAL As String) As String
    Dim rs As DAO.Recordset
    Dim strSql$
    Dim strLista$
    'Seleciona os Registros
    strSql = "SELECT * FROM RECOMENDACAO_ WHERE [DATA_ORIGINAL] ='" & strDATA_ORIGINAL & "' AND VOO_ORIGINAL ='" & strVOO_ORIGINAL & "'" 'Ira filtrar os registros por ANO e MARCA
    Set rs = CurrentDb.OpenRecordset(strSql)
    Do While Not rs.EOF
    strLista = strLista & " | " & rs!PNR 'Junta os Modelos separando por |
    rs.MoveNext
    Loop
    fncAgrupaPnr = Mid(strLista, 4) 'Remove o Espaço e a | inicial
    rs.Close
    Set rs = Nothing
    End Function

    Pode me auxiliar? Obrigado.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    Juntar registros com campos iguais numa só linha Empty Re: Juntar registros com campos iguais numa só linha

    Mensagem  FabioPaes em 4/5/2018, 19:21

    Meu amigo, o problema esta aqui no filtro de Data....
    [DATA_ORIGINAL] ='" & strDATA_ORIGINAL & "' AND

    As datas devem ser tratadas com uma certa particularidade. Devem estar entre #dataaqui# e ainda formatadas para mm/dd/yyyy. Caso contrario dara erro no filtro.

    Estouno celular e nao consigo corrigir o codigo p vc... Mas ajuste de acordo com as instruçoes.

    Lembre-se entre aspas simples e dupla somente para '"Texto"'.
    Numeros ficam entre "Aspas"
    Data fica entre #"formatado mm/dd/yyyy"#


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: 19/10/2020, 22:15