[Resolvido]Arquivo histórico

Boa Tarde

Dirijo-me ao Mestre porque já conhece o trabalho que tenho estado a fazer e para o qual tem contribuido com a ajuda que me tem dado o que torna mais fácil a interpretação do meu problema. Não estou descriminando nem rejeitando a ajuda seja de quem for. Penso que esclareci.

Foi-me pedido durante a apresentação da aplicação que seria útil haver um arquivo histórico. Eu explico:

Quando um processo é concluído o utilizador clica num botão e através do método LOCK ou ENABLE o processo passa a inactivo. É assim que eu defini. Mas o processo fica sempre presente embora inactivo.

O que pretendia era que o processo fosse exportado para um arquivo histórico e que desaparece-se da ficha de processos. Esse arquivo podia ser numa base de dados externa (serial o ideal para evitar peso a mais na actual) e que pudesse ser chamada a qualquer instante para consulta.

Agradeço desde já a sua ajuda, se for possível.

Faço notar que:

A Ficha processos está ligada a uma tabela (docs)e é a Ficha principal da aplicação.

Uma ideia apenas;

Banco externo com uma tabela, link essa tabela ao banco principal, apague o registro da tabela principal e insira-o na tabela de historico;

Dim strSQL As String
DoCmd.SetWarnings False
strSQL = "INSERT INTO TabelaB ( Campo1, Campo2, Campo3 ) " & _
" SELECT TabelaA.Campo1, TabelaA.Campo2, TabelaA.Campo3 " & _
" FROM TabelaA WHERE TabelaA.ID= " & Me.ID

DoCmd.RunSQL strSQL
strSQL = "DELETE * FROM TabelaA WHERE ID = " & Me.ID
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True

Mestre:

Criei uma base de dados nova e uma tabela docs (Cópia) da original. Ligueia a cópia à original, mas embora faça o delete na original, também faz o delete na c+opia onde era suposto o registo permanecer. Estarei a fazer algo errado?

Private Sub Verificação226_Click()
Dim strSQL As String
DoCmd.SetWarnings False
strSQL = "INSERT INTO docs ( ID, NProcesso, Pasta,DataEntrada,NomeCliente,PosiçãoCli,AdvoInterno,ContraParte,Posição,NomeAdvogado,PosiçãoA,Descrição,Tribunal,Juiz,Vara,Instância ) " & _
" SELECT docs.ID, NProcesso, Pasta,DataEntrada,NomeCliente,PosiçãoCli,AdvoInterno,ContraParte,Posição,NomeAdvogado,PosiçãoA,Descrição,Tribunal,Juiz,Vara,Instância " & _
" FROM docs WHERE docs.ID= " & Me.ID

DoCmd.RunSQL strSQL
strSQL = "DELETE * FROM docs WHERE ID = " & Me.ID
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End Sub

Sendo 2+2=4, você está a fazer o Insert na tabela Docs e o Delete na tabela Docs, que outro resultado queria ?

A tabela para guardar tem de ter outro nome, é o simples, por exemplo DocsHistorico.

strSQL = "INSERT INTO DocsHistorico
strSQL = "DELETE * FROM docs

Certo Mestre, como sempre tem razão, mas ´colocar essa tabela em outra base de dados não seria melhor para não engordar esta? Estou com dificuldade em efectuar isso.

Obrigado

Uma tabela ligada não engorda o banco principal, no entanto;

Crie um banco externo para o historico com este nome para teste em C:\MDBHistorico.mdb e a tabela com este nome docsHistorico.

Faça o teste...

Private Sub Verificação226_Click()
Dim strSQL As String
DoCmd.SetWarnings False
strSQL = "INSERT INTO docsHistorico (ID, NProcesso, Pasta,DataEntrada,NomeCliente,PosiçãoCli,AdvoInterno,ContraParte,Posição,NomeAdvogado,PosiçãoA,Descrição,Tribunal,Juiz,Vara,Instância ) IN 'C:\MDBHistorico.mdb'" & _
"SELECT docs.ID, NProcesso, Pasta,DataEntrada,NomeCliente,PosiçãoCli,AdvoInterno,ContraParte,Posição,NomeAdvogado,PosiçãoA,Descrição,Tribunal,Juiz,Vara,Instância" & _
" FROM docs WHERE docs.ID= " & Me.ID
DoCmd.RunSQL strSQL
strSQL = "DELETE * FROM docs WHERE ID = " & Me.ID
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End Sub

Obrigado Mestre, funcionou direitinho.

Um bom feriado

Igualmente amigo.

Se precisar de novo dê um grito.