[resolvido] concatenação, como resolver?

Moderador: Avelino Sampaio

silvano
Mensagens: 3
Registrado em: 31 Ago 2016, 12:34

[resolvido] concatenação, como resolver?

Mensagempor silvano » 06 Mai 2017, 22:00

Boa noite pessoal!

Sou novo por aqui, embora já acompanhe fóruns de Access há um tempo. Estou precisando muito da ajuda de vocês. Tenho uma consulta chamada " vdrl_para_descobrir_gestantes" onde tem dois campos, um chamado "amostra" e outro "exames". Quando eu à executo ela me da várias linhas com "exames" diferentes, mas com mesmo número de "amostra". Preciso transformar estas muitas linhas de exames diferentes em apenas uma, como no exemplo abaixo:

amostra exames
201104 -GLI
201104 -TSH -T4L
201104 -CTF -UR -AUR -CPK

Preciso que fique assim:
201104 -GLI -TSH -T4L -CTF -UR -AUR -CPK

Desde de já agradeço a oportunidade e atenção!
segue arquivo
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 2101
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: concatenação, como resolver?

Mensagempor Avelino Sampaio » 10 Mai 2017, 12:32

silvano,

o exemplo já estava com uma função prontinha, feita por mim

Aguardamos
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

silvano
Mensagens: 3
Registrado em: 31 Ago 2016, 12:34

Re: concatenação, como resolver?

Mensagempor silvano » 16 Mai 2017, 20:28

Boa Tarde sr. Avelino!

Inicialmente gostaria de agradecer a sua atenção. É verdade, a função já estava pronta e era sua, apenas fiz algumas adaptações, mas não está funcionando como deveria. Veja o exemplo:
Na tabela a amostra nº 201.104 aparece da seguinte forma:
201104 GLI
201104 TSH -T4L
201104 CTF -UR -AUR -CPK

e na consulta "vdrl_compila_protocolos_gestantes" aparece:

201104 GLI

ou seja, era para aparecer 201104 GLI -TSH -T4L -CTF -UR -AUR -CPK

por isso solicito sua ajuda no sentido de mostrar onde está o meu erro.

Desde de já meu muito obrigado!
Att.
Silvano

Avatar do usuário
Avelino Sampaio
Mensagens: 2101
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: concatenação, como resolver?

Mensagempor Avelino Sampaio » 25 Mai 2017, 15:01

silvano,

utilize a função TRIM() para retirar os espaços contidos em cada campo.

Código:
Public Function fncAgrupaExames(strAmostra As String) As String
Dim rs As DAO.Recordset
Dim strSql$
Dim strLista$
strSql = "SELECT * FROM VDRL_PARA_DESCOBRIR_GESTANTES WHERE amostra =""" & strAmostra & """;"
Set rs = CurrentDb.OpenRecordset(strSql, 8)
Do While Not rs.EOF
strLista = strLista & "-" & Trim(rs!Exames)
rs.MoveNext
Loop
fncAgrupaExames = Mid(strLista, 2)
rs.Close
Set rs = Nothing
End Function


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


silvano
Mensagens: 3
Registrado em: 31 Ago 2016, 12:34

Re: concatenação, como resolver?

Mensagempor silvano » 25 Mai 2017, 20:32

Maravilha, perfeito!!

Muito obrigado!!!

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Consultas”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 2 visitantes