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

    [Resolvido]Converter parte de campo de tabela em novo registro

    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 23/03/2010

    [Resolvido]Converter parte de campo de tabela em novo registro Empty [Resolvido]Converter parte de campo de tabela em novo registro

    Mensagem  Finformática Qui 20 Set 2018, 22:41

    Caros amigos,

    Mais uma vez estou eu aqui com problema que não consegui resolver. É o seguinte:
    Peguei um arquivo CSV do TRE (Tribunal Regional Eleitoral) com todos os Locais de Votação de meu estado. Fiz umas artimanhas e converti para tabela do Access. Porém tem um campo em que preciso transformá-lo em registro. O campo Seções vem todas em um mesmo campo. A base principal é ZONA e SEÇÃO (chaves) e diversos outros campos referentes aos mesmos (local, endereço, bairro, aptos, etc). Exemplo de como está:

    TbLocaisVotacao
    Zona Seções Local Endereço ........
    001 102, 103, 158, 160, 189 Colégio Agnes Rua Canadá....
    052 004, 020, 057 Instituto Walter Vieira Av. Conde da Boa Vista....
    149 124 Escola Severino Pessoa Estrada da Batalha....

    Preciso que fique assim:

    TbLocaisVotacao2018
    Zona Seção Local Endereço ........
    001 102 Colégio Agnes Rua Canadá....
    001 103 Colégio Agnes Rua Canadá....
    001 158 Colégio Agnes Rua Canadá....
    001 160 Colégio Agnes Rua Canadá....
    001 189 Colégio Agnes Rua Canadá....
    052 004 Instituto Walter Vieira Av. Conde da Boa Vista....
    052 020 Instituto Walter Vieira Av. Conde da Boa Vista....
    052 057 Instituto Walter Vieira Av. Conde da Boa Vista....
    149 124 Escola Severino Pessoa Estrada da Batalha....

    Quem pode me ajudar mais uma vez?

    Antecipadamente muito grato, abraços.

    avatar
    FabioGO
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 106
    Registrado : 21/08/2012

    [Resolvido]Converter parte de campo de tabela em novo registro Empty Re: [Resolvido]Converter parte de campo de tabela em novo registro

    Mensagem  FabioGO Sex 21 Set 2018, 12:41

    Veja se atende o propósito
    Anexos
    [Resolvido]Converter parte de campo de tabela em novo registro AttachmentDatabase2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (92 Kb) Baixado 10 vez(es)
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 23/03/2010

    [Resolvido]Converter parte de campo de tabela em novo registro Empty Re: [Resolvido]Converter parte de campo de tabela em novo registro

    Mensagem  Finformática Sex 21 Set 2018, 14:09

    Caro Fábio,

    Antecipadamente MUITO OBRIGADO. Estou na rua, olhei rapidamente e acho que é isso mesmo. Vou testar ao chegar em casa e dou respostas. Olhando rapidamente acho que resolve.

    Muito grato.

    Grande abraço
    avatar
    FabioGO
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 106
    Registrado : 21/08/2012

    [Resolvido]Converter parte de campo de tabela em novo registro Empty Re: [Resolvido]Converter parte de campo de tabela em novo registro

    Mensagem  FabioGO Sex 21 Set 2018, 21:05

    Que bom que está no caminho. Se realmente resolveu marque o tópico com a TAG [Resolvido]
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 23/03/2010

    [Resolvido]Converter parte de campo de tabela em novo registro Empty Re: [Resolvido]Converter parte de campo de tabela em novo registro

    Mensagem  Finformática Sab 22 Set 2018, 09:56

    Caros Amigos Mestres,

    Fiz as devidas alterações no código do Mestre Fábio para o meu problema e está dando erro no INSERT INTO que não estou conseguindo ver.

    Dim rs As DAO.Recordset
    Dim DivCampo() As String, Matriz(6) As String

    Set rs = CurrentDb.OpenRecordset("LocaisCSVNova")

    Do While Not rs.EOF
           
       DivCampo() = Split(rs!NSeção, ", ")
       
       j = (Int(UBound(DivCampo)))
           
       For i = 0 To j
                           
           Matriz(0) = rs!NZona
           Matriz(1) = DivCampo(i)
           Matriz(2) = rs!NNLocal
           Matriz(3) = rs![NLocal de votacao]
           Matriz(4) = rs!NBairro
           Matriz(5) = rs!NEndereço
           Matriz(6) = rs!NMunicípio
                   
           CurrentDb.Execute "INSERT INTO Locais de Votação_2018 (Zona,Seção,NLocal,Local de Votação, Bairro, Endereço, Município) VALUES ('" & Matriz(0) & "','" & Matriz(1) & "','" & Matriz(2) & "','" & Matriz(3) & "','" & Matriz(4) & "','" & Matriz(5) & "','" & Matriz(6) & "');"
           
         
       Next
       
       rs.MoveNext
           
    Loop
           
       Set rs = Nothing
       Erase Matriz
       Erase DivCampo
       
       Me.Refresh
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 23/03/2010

    [Resolvido]Converter parte de campo de tabela em novo registro Empty Re: [Resolvido]Converter parte de campo de tabela em novo registro

    Mensagem  Finformática Sab 22 Set 2018, 13:29

    Caros amigos,

    Resolvido. Não vi muita lógica, redigitei toda linha, executei, FUNFOU.
    Muito grato para todos, em especial ao amigo Fábio que realmente contribuiu para resolução do meu problema.

    Grande Abraço.

      Data/hora atual: Qua 16 Jun 2021, 11:00