concatenar linhas de registro com if no relatorio

Mario Balthar 7/6/2017, 16:39

Mario Balthar: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 1
Registrado : 07/06/2017

Mensagem nº1

concatenar linhas de registro com if no relatorio

Mensagem Mario Balthar 7/6/2017, 16:39

quero concatenar linhas de campo texto vindo de 2 registros como exemplo abaixo

If Coddicipl1 = -1 them
txtCoddicipl1m = "teste"

End If

If Coddicipl2 = -1 them
txtCoddicipl2m = "teste2"

Como colocar na mesma linha da caixa de texto para ficar abaixo

teste. teste2

em vez de

teste
teste2

Phillip_Junior 7/6/2017, 18:50

Phillip_Junior

Phillip_Junior: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 179
Registrado : 09/12/2016

Mensagem nº2

concatenar linhas de registro com if no relatorio

Mensagem Phillip_Junior 7/6/2017, 18:50

Olá

Para quebra de linha dentro de uma caixa de texto usamos & vbcrlf &

Exemplo: Me.Camporeceptor.Value = "texto" & vbcrlf & "texto2"

Se você não quiser quebrar a linha, apenas utilize &

Exemplo: Me.Camporeceptor.Value = "texto" & "Texto2"

ou se estiver capturando dados de um campo

.Exemplo: Me.Camporeceptor.Value = Me.campo1.Value & Me.campo2.Value

Para usar virgula ou pontos entre os textos utilize & ", " &

Exemplo: Me.Camporeceptor.Value = Me.campo1 & ", " & Me.campo2

Segue exemplo em anexo!

Obs: cuide na hora de escrever seu código pois uma simples letra ponto virgula aspas poderá não funcionar.

A palavra THEN significa Então no caso no seu exemplo Them não irá funcionar blz!

Abraços!

Funcionando retorno e informe se deu certo.

Anexos