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

    [Resolvido]Separar texto de um campo da tabela

    Edgar Massa
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 08/01/2017

    [Resolvido]Separar texto de um campo da tabela Empty [Resolvido]Separar texto de um campo da tabela

    Mensagem  Edgar Massa em 22/9/2019, 21:56

    Pessoal
    Qual função eu utilizo para separar nomes de um campo, que se separam por vírgulas?
    Preciso gerar uma consulta que extraia nomes completos e havendo mais de 1, inserir uma nova linha com os outros nomes
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1339
    Registrado : 23/01/2018

    [Resolvido]Separar texto de um campo da tabela Empty Re: [Resolvido]Separar texto de um campo da tabela

    Mensagem  crysostomo em 22/9/2019, 23:25

    Boa noite, cara eu não seu se o access vai saber quantos nomes tem em uma linha,mas para separar nome, dentro de uma caixa não acoplada coloque esse código:
    Código:
    =[nome1] & ", " & [nome2] & " ," & [nome3]


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Edgar Massa
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 08/01/2017

    [Resolvido]Separar texto de um campo da tabela Empty Re: [Resolvido]Separar texto de um campo da tabela

    Mensagem  Edgar Massa em 23/9/2019, 00:01

    Conforme anexo, eu preciso que na coluna "Figuras: responsável de execução da recomendação", esses nomes que estão separados por vírgula sejam inseridos como 1 registro para cada nome, permanecendo as informações restantes.

    estou fazendo um teste com o código abaixo porém sem sucesso.

    Dim BancoDados As DAO.Database
    Dim rs As DAO.Recordset

    Set BancoDados = CurrentDb()
    Set rs = BancoDados.OpenRecordset("TESTES", dbOpenDynaset)

    Dim SPL As String
    SPL = Split([NOME], ",")

    rs.AddNew
    rs(1) = SPL


    rs.Update
    rs.MoveLast


    rs.Close
    Set rs = Nothing

    BancoDados.Close
    Set BancoDados = Nothing
    Edgar Massa
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 08/01/2017

    [Resolvido]Separar texto de um campo da tabela Empty Re: [Resolvido]Separar texto de um campo da tabela

    Mensagem  Edgar Massa em 24/9/2019, 15:01

    Sendo tratado no link - https://www.maximoaccess.com/t36709-funcao-split

    Tópico Encerrado.

      Data/hora atual: 23/9/2020, 12:53