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


3 participantes

    como concatenar cor e tamanho mesma linha

    avatar
    athenas1200
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 29/03/2011

    como concatenar cor e tamanho mesma linha Empty como concatenar cor e tamanho mesma linha

    Mensagem  athenas1200 11/6/2015, 13:18

    como concatenar cor e tamanho mesma linha Tmp1

    Tenho esta consulta acima.
    Gostaria de concatenar as cores e tamanho
    Assim se possível:

    Concatenar assim:
    Ordem----Tam--------Cor
    1342----- 40,42-------Azul,Branco

    Existe como fazer isso em access?

    O Resultado que desejo ficaria assim,
    como concatenar cor e tamanho mesma linha Tmp2

    Paulo
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    como concatenar cor e tamanho mesma linha Empty Re: como concatenar cor e tamanho mesma linha

    Mensagem  criquio 11/6/2015, 18:15

    Você pode usar o DISTINCT na consulta para agrupar os registros pela ordem e criar uma função em um módulo para fazer a concatenação:

    Código:
    Public Function cnsConc(ord As Integer, tam As Integer, cor As String)

        Dim rs As Recordset

        Set rs = CurrentDb.OpenRecordset("SELECT tamanho, cor FROM nomeTabela WHERE ordem=" & ord)

        tam = Null
        cor = ""

        rs.MoveFirst

        Do While Not rs.EOF

            If IsNull(tam) Then
                tam = rs!tamanho
            Else
                tam = tam & "," & rs!tamanho
            End If

            If IsNull(cor) Or cor = "" Then
                cor = rs!cor
            Else
                cor = cor & "," & rs!cor
            End If

            rs.MoveNext

        Loop

    End Function

    E na consulta troca-se os campos do tamanho e da cor por campos calculados:

    Tam: cnsConc([ordem], [tam]) Cor: cnsConc([ordem], [cor])

    Não testei e faz um tempinho que não uso VBA pois atualmente estou mais focado em uns projetos para Internet usando PHP/ MySql mas é por aí. Veja se consegue adaptar.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    athenas1200
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 29/03/2011

    como concatenar cor e tamanho mesma linha Empty Bom procurei no site e achei isso e funcionou comigo.

    Mensagem  athenas1200 11/6/2015, 18:22

    //Achei este código na net.
    Public Function fncAgrupaDocumentos(strPaciente As String) As String
    Dim rs As DAO.Recordset
    Dim strSql$
    Dim strLista$
    strSql = "SELECT * FROM tblPacientes WHERE paciente =" & strPaciente & ";"
    Set rs = CurrentDb.OpenRecordset(strSql, Cool
    Do While Not rs.EOF
    strLista = strLista & "," & rs!Cor
    rs.MoveNext
    Loop
    fncAgrupaDocumentos = Mid(strLista, 2)
    rs.Close
    Set rs = Nothing
    End Function

    Public Function fncAgrupaDocumentos1(strPaciente As String) As String
    Dim rs As DAO.Recordset
    Dim strSql$
    Dim strLista$
    strSql = "SELECT * FROM tblPacientes WHERE paciente =" & strPaciente & ";"
    Set rs = CurrentDb.OpenRecordset(strSql, Cool
    Do While Not rs.EOF
    strLista = strLista & "," & rs!Tamanho
    rs.MoveNext
    Loop
    fncAgrupaDocumentos1 = Mid(strLista, 2)
    rs.Close
    Set rs = Nothing
    End Function

    1- Fiz a consulta antes de agrupamento do codigo Paciente:
    2 -Depois fiz outra Consulta abaixo:
    SELECT qryListaPacientes.Paciente, fncAgrupaDocumentos([paciente]) AS Cor, fncAgrupaDocumentos1([paciente]) AS Tamanho
    FROM qryListaPacientes;

    Bom está meio dando volta..
    risos..

    avatar
    athenas1200
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 29/03/2011

    como concatenar cor e tamanho mesma linha Empty Não deu certo duplicou...

    Mensagem  athenas1200 11/6/2015, 19:35

    Caro senhores,
    Acho que o código funcionou em parte
    agora ele está duplicando veja nas imagem abaixo:

    como concatenar cor e tamanho mesma linha Tmp6

    Como Ficou:

    como concatenar cor e tamanho mesma linha Tmp7
    Acho que tentei adptar algo que não era para mim. Risos.



    O Arquivo
    http://contalsoft.com.br/MiguelSerra.zip
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    como concatenar cor e tamanho mesma linha Empty Re: como concatenar cor e tamanho mesma linha

    Mensagem  Avelino Sampaio 11/6/2015, 21:19

    Olá!

    Veja a solução neste tópico:

    http://redeaccess.com.br/viewtopic.php?f=3&t=44&p=1681#p168

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

    Conteúdo patrocinado


    como concatenar cor e tamanho mesma linha Empty Re: como concatenar cor e tamanho mesma linha

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 13:51