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

    [Resolvido]Concatenar campos diferentes

    avatar
    jpaulorh
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Concatenar campos diferentes Empty [Resolvido]Concatenar campos diferentes

    Mensagem  jpaulorh 30/4/2015, 18:09

    Amigos, garimpei no fórum mas não encontrei. Preciso da ajuda de vocês na seguinte situação:
    Tenho os campos: T1, T2, T3...T90 são campos que armazenam texto que no final queria concatenar num único campo, como por exemplo:
    T1 = "Marca d'agua"
    T2 =
    T3 = "rachadura"
    T4 = "Infiltração"
    ...
    T90 = "Sem Reboco"

    No resultado final apresentasse o seguinte:

    Marca d'agua
    Rachadura
    Infiltração
    ...
    Sem Reboco

    Se o campo como no T2 for null não mostrasse nada isso acontecendo para os 90 campos existentes.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Concatenar campos diferentes Empty Re: [Resolvido]Concatenar campos diferentes

    Mensagem  Assis 30/4/2015, 18:49

    Teste

    No seu campo que apanha os valores todos, na origem do controle .

    =[t1] & " " & [t2] & " " & [T3] & " " & [t4]



    .................................................................................
    *** Só sei que nada sei ***
    avatar
    jpaulorh
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Concatenar campos diferentes Empty Re: [Resolvido]Concatenar campos diferentes

    Mensagem  jpaulorh 30/4/2015, 19:52

    Obrigado Assis, resolvi dessa forma:

    Código:
    Private Sub Juntar_Click()

    Me.Obs = Null

    If Me.T1 = "" Then
    Else
    Me.Obs = Me.Obs & vbCrLf & Me.T1
    End If

    If Me.T2 = "" Then
    Else
    Me.Obs = Me.Obs & vbCrLf & Me.T2
    End If

    If Me.T3 = "" Then
    Else
    Me.Obs = Me.Obs & vbCrLf & Me.T3
    End If

    End Sub

    Fico muito grato, sempre que preciso de vocês sou atendido...
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Concatenar campos diferentes Empty Re: [Resolvido]Concatenar campos diferentes

    Mensagem  Avelino Sampaio 30/4/2015, 21:56

    OLá!

    Huumm, o código vai ficar bem extenso usar para os noventa campos.

    Minha sugestão:


    Dim k%, strSeq$
    for k = 1 to 90
    if len(me("t" & k) & "") > 0 then
    strSeq = strSeq & vbCrLf & me("t" & k)
    end if
    next
    me!obs = strSeq


    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


    [Resolvido]Concatenar campos diferentes Empty Re: [Resolvido]Concatenar campos diferentes

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/5/2024, 05:48