[Resolvido]Extrair linhas campo Memo para uma Tabela

Olá pessoal boa tarde esta é a minha primeira participação neste Forum, sou um cara que gosto de access, trabalho com ele ha mais de 8 anos, confesso que nao sou programador, mas um curioso, espero aprender bastante aqui.



Tentei aplicar o o exemplo da página (http://www.expertaccess.com.br/forumnew/forum_posts.asp?TID=22284) mas ta não consegui sucesso, preciso pegar os dados abaixo que estao em um campo memorando e joga-los em uma nova tabela, separando os numeros(código) do texto(decrição)e adicionando-os linha a linha, porem desconsiderar a primeira linha "CÓDIGO E DESCRIÇÃO DAS ATIVIDADES ECONÔMICAS SECUNDÁRIAS", porem a quantidade de linhas do campo memo pode variar conforme os dados contidos e em alguns casos ser até nulo,


CÓDIGO E DESCRIÇÃO DAS ATIVIDADES ECONÔMICAS SECUNDÁRIAS
55.10-8-01 - Hotéis
01.61-0-99 - Atividades de apoio à agricultura não especificadas anteriormente
01.62-8-99 - Atividades de apoio à pecuária não especificadas anteriormente
41.20-4-00 - Construção de edifícios
47.82-2-01 - Comércio varejista de calçados
47.82-2-02 - Comércio varejista de artigos de viagem
47.54-7-01 - Comércio varejista de móveis
47.53-9-00 - Comércio varejista especializado de eletrodomésticos e equipamentos de áudio e vídeo

Nome da tabela a receber os dados tblLicenciamentoCNAE,
campo CNAE = texto
campo Descrição =texto


Obrigado

Olá

Crie um botão e teste o código abaixo:

Código:

Private Sub Comando26_Click()
Dim j, k%
j = Split(Me!NomeCampoMemorando, vbCrLf)
For k = 1 To UBound(j)
    CurrentDb.Execute "INSERT INTO tblLicenciamentoCNAE (CNAE,Descrição) VALUES ('" & Mid(j(k), 1, 10) & "','" & Mid(j(k), 13) & "');"
Next
End Sub

Bom estudo!

Caro Avelino, fiz o que recomendou, porem nao ha meio dos valores serem inseridos na tabela, fiz algumas modificações aqui sem sucesso, observei que no final de cada linha "01.61-0-99 - Atividades de apoio à agricultura não especificadas anteriormente " ha um espaço.

Esse campo memo, são oriundos de uma consulta feita no site da receita federal, de dentro do form, que pega os cnaes e trás para este campo, alias um exemplo que vc mesmo fez,

Olá

Segue um exemplo do que vc propos inicialmente, que éra extrair tais valores de um campo MEMO para uma tabela.

Tente então adaptar ao seu caso.

Caro Avelino, acho que nao me fiz entender, o campo memo esta correto, o que eu nao sei o porque nao esta inserindo os dados na tabela...eu executo o codigo, porem nada acontece...desculpe

Baixe o exemplo, teste e compare com o seu

Aguardamos os testes

Caro Avelino, nem sei como dizer, depois de quebrar muito a cabeça, descobri que havia um campo chamado CNPJ que era requerido na tabela, e como eu estava somente testando nao estava colocando os numeros, foi so retirar este item e deu tudo certo, muito obrigado pela ajuda, e engraçado como as vezes algo tao simples passa tão batido assim.

aproveitando, tem como eu pegar so a imagem de verificação do site da receita que é gerada e colocar no form, o resto ta tudo certo, só falta isso pra que terminar