Retirar dados de uma tabela para outra

Grande ICruzNina,

Fiz o seguinte:

1. Criei a tabela TbExemploA com quatro campos e cadastrei alguns itens fictícios;
2. Criei a tabela TbExemploB, idêntica tabela anterior para receber conteúdo da TbExemploA;
3. Fiz o código abaixo para copiar conteúdo TbExemploA para TbExemploB e em seguida apagar conteúdo da TbExemploA.

Faça as devidas adaptações que dará tudo certo.

Dim db As Database
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim resultado As VbMsgBoxResult
Set db = CurrentDb()

Set rs1 = db.OpenRecordset("SELECT * FROM [TbExemploA]")
Set rs2 = db.OpenRecordset("SELECT * FROM [TbExemploB]")

MsgBox "Vamos copiar tabela..."

rs1.MoveFirst

Do While Not rs1.EOF

rs2.AddNew
rs2![Grupo] = rs1![Grupo]
rs2![Desc] = rs1![Desc]
rs2![Familia] = rs1![Familia]
rs2![Cor] = rs1![Cor]
rs2.Update
rs2.Requery

rs1.MoveNext

Loop

rs1.Close
Set rs1 = Nothing
rs2.Close
Set rs2 = Nothing
db.Close
Set db = Nothing

MsgBox "Tabela TbExemploA copiada para TbExemploB com sucesso..."

MsgBox "Vamos apagar conteúdo da tabela TbExemploA..."


resultado = MsgBox("Tem certeza que deseja apagar conteúdo da TbExemploA?", vbYesNo, "Tomando uma decisão")
If resultado = vbYes Then

Application.DoCmd.SetWarnings False
Application.DoCmd.RunSQL "DELETE * FROM TbExemploA"
Application.DoCmd.SetWarnings True
MsgBox "Conteúdo TbExemploA apagado com sucesso..."

Else

MsgBox "Você acaba de recusar a ação"

End If

Espero ter ajudado.

Abraços

Olá,

Não havia visto suas observações acima e nem as considerações do Grande Alexandre. Enquanto eu fazia, vocês postavam. Postei sem verificar. Desculpem. Mesmo assim espero ter ajudado.

Abraços

Vou criar mais um campo na tabela e deixar alguns como "inativo" para servir como teste. Vai continuar apagando a tabela "A"?

Abraços

Olá!

Copiando só os com campo "Situação" = "Inativo".

Dim db As Database
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim resultado As VbMsgBoxResult
Set db = CurrentDb()

Set rs1 = db.OpenRecordset("SELECT * FROM [TbExemploA]")
Set rs2 = db.OpenRecordset("SELECT * FROM [TbExemploB]")

MsgBox "Vamos copiar tabela..."

rs1.MoveFirst

Do While Not rs1.EOF

If rs1![Situação] = "Inativo" Then

rs2.AddNew
rs2![Grupo] = rs1![Grupo]
rs2![Desc] = rs1![Desc]
rs2![Familia] = rs1![Familia]
rs2![Cor] = rs1![Cor]
rs2![Situação] = rs1![Situação]
rs2.Update
rs2.Requery
End If
rs1.MoveNext

Loop

rs1.Close
Set rs1 = Nothing
rs2.Close
Set rs2 = Nothing
db.Close
Set db = Nothing

MsgBox "Tabela TbExemploA copiada para TbExemploB com sucesso..."

MsgBox "Vamos apagar conteúdo da tabela TbExemploA..."


resultado = MsgBox("Tem certeza que deseja apagar conteúdo da TbExemploA?", vbYesNo, "Tomando uma decisão")
If resultado = vbYes Then

Application.DoCmd.SetWarnings False
Application.DoCmd.RunSQL "DELETE * FROM TbExemploA"
Application.DoCmd.SetWarnings True
MsgBox "Conteúdo TbExemploA apagado com sucesso..."

Else

MsgBox "Você acaba de recusar a ação"

End If


Abraços

Boa Noite,

Você falou isso:
Preciso limpar uma tabela A, porém não quero perder os dados inativos, gostaria de passar esses dados inativos para outra tabela B. Tem como automatizar isso?
É isso que o código está fazendo. Ler a tabela A, verifica o campo fictício (eu criei Situação), se o conteúdo dele for "Inativo" copia para tabela B. Ao terminar a cópia, apaga conteúdo da tabela A.
Mande o BD para ver melhor. Seja um pouco mais explícita.

Abraços

Do modo que está o código ele sempre irá acrescentar na tabela B. Você escolhe quais campos quer copiar. Contanto que as tabelas tenham a mesma estrutura. O ID que você faz referência é o que? É a chave primária?
Mande o BD.

Abraços

Zaccarioto,

Desculpas, não prestei atenção, estava pensando ser o outro amigo. Porém a resposta também serve para você.

Abraços

ICruzNina,

Veja a imagem. Seria assim?

Está meio ilegível. O botão na parte inferior é "Copiar Inativos" e "Apagar conteúdo da tabela A e Fechar Formulário". Se deixar copiar inativos e em seguida apagar tabela A a tela fica toda bagunça. Afinal estamos apagando os registros que alimentam o formulário. Motivo de dois botões. Na coluna inativos você marca os desejados e depois clica no botão Copiar Inativos.

Seria isso?

Abraços

No meu aqui ele apaga só o conteúdo da tabela. Não a estrutura. Mais uma vez você lá no início falou apagar o conteúdo da tabela, não falou apagar o que foi copiado. Estranhei o esquema e algum comentário cheguei a fazer no começo. Finalmente detalhe todo o esquema que necessita.

Abraços

Por favor, mande uma parte dessas tabelas para ver nomes e tipos de campos, estrutura das tabelas e fazer com nomes reais. Se as tabelas são tão grandes, envie, pelo menos 100 registros. Isso ajuda muito.

Muito grato, abraços

Onde você verifica o campo "Inativo"? Do modo que está copia tudo...