MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Separar texto de um campo da tabela

    avatar
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    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 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1030
    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.
    avatar
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    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
    avatar
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    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.

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/12/2019, 21:18