[Resolvido]Apagar Dados Em Vária Tabelas

Boa tarde

Tenho este exemplo que apaga registos numa tabela escolhendo uma Data especifica, assim como entre as datas escolhidas.
Queria se possível que a funcção apaga-se dados da mesma maneira, mas em várias tabelas ao mesmo tempo.

http://www.speedyshare.com/files/24494323/Apaga_Dados_Em_Tabela.mdb

Obrigado

Ola Assis;

É simples, apenas diga-me se em todas as tabelas têm os mesmos campos de data.

Assis não sei se te resolveria...

db.execute(DELETE Despesas.* FROM Despesas WHERE (((Despesas.Data)>=#" & [DT_INICIO] & "# And (Despesas.Data)<=#" & [DT_FIM] & "#));"


Bastando para as demais tabelas mudar somente o nome das mesmas e dos campos referentes a data, e vc fazer os demais tratamenso que achar necessário (msgbox, etc...)

Sds e espero ter ajudado,

Pablo

Olá JPaulo
Todas as tabelas tem o campo Data.

Obrigado

Olá JPaulo
Todas as tabelas tem o campo Data.

Boa noite Assis;

Eu já fiz o código, mas ainda em testes;

Copiei a tabela "Despesas" 5 vezes e já deteta a data em todas, mas para isso tive de mudar o nome do campo "Data" para "TData" é que data é uma palavra reservada do Access e devolveu-me varios erros.

Estou apenas com uma pequena dificuldade, com o Commit e o Rolback, que ainda não percebi se funciona em multi-tabelas ou apenas com uma (1).

Amanhã devolvo-lhe o resultado final.

Bom Dia Assis;

O Commit e o Rolback não funcionam com acções em multi-tabelas, apenas com uma.

Veja se serve, está a funfar, sem essas funções;

http://dl.dropbox.com/u/771097/ApagaDados_OLD.rar

Boa noite JPaulo:

Como sempre
Funfa. Só e pena ter que alterar o nome do Campo para TData. Pois a base de dados está pronta e daria muito trabalho a alterar todos os campos DATA em todas as tabelas, consultas, e formulários.
Mas fica de Exemplo para futuro.

E esta Formula em Access 2003 Para evita o #ERRO.
Isto é um formulario principal que tem dentro DOIS FORMULÁRIOS. Tem o "TotalVendasOutros" com um campo Total, e tem o formulário "TotalVendasClientes" com outro campo Total.

E eu queria apanhar o valor dos dois totais, no campo VALORTOTAL do formulário principal.

VALORTOTAL=[TotalVendasOutros].[Formulário]![MeuCampo]+[TotalVendasClientes].[Formulário]![MeuCampo]

Não consigo aplicar o exemplo que fez para a STELLAMARIS

Obrigado

Assis hoje que é feriado e com mais calma, consegui colocar o código a apagar em todas as tabelas,

utilizando o Commit e o Rolback, que é sempre uma mais valia para o cancelamento ou não da ação.

Teste por favor e retorne;


Private Sub MovApagar(DataX, DataY As Variant)
On Error GoTo Parar_Err
Dim NUm As Long, X As Integer, S As String
Dim Ws As Workspace, db As Database
Dim td As TableDef
Dim rst As Recordset

Set Ws = DBEngine(0) 'aplica o Workspace

Ws.BeginTrans 'inicia a transação
NUm = 0
For Each td In CurrentDb.TableDefs
If Mid(td.Name, 1, 4) <> "MSYS" Then
Set rst = CurrentDb.OpenRecordset(td.Name, dbOpenTable) 'Abre as tabelas
Set db = CurrentDb


'Apaga os dados entre a DataX e a DataY

Do While Not rst.EOF
If rst!TData >= DataX And rst!TData <= DataY Then
rst.Delete
NUm = NUm + 1
End If
rst.MoveNext
Loop

End If
Next td
' efectua ou cancela a transação
S = "Esta Operação Vai Eliminar Todos os Movimentos com Datas Entre: " & DataX & " 'e' " & DataY & " ?"
X = MsgBox(S, 32 + 4 + 256, "Mensagem")
If X = 6 Then 'sim
Ws.CommitTrans ' efectua a transação
Else
Ws.Rollback ' cancela a transação
Exit Sub
End If
If NUm = 0 Then
S = "Não Havia Movimentos no Período Indicado."
ElseIf NUm = 1 Then
S = "Um Movimento foi Apagado."

ElseIf NUm > 1 Then
S = Trim$(Str$(NUm)) & " Movimentos foram apagados."
Else
End If

' ' Avisa qtd de registros foram apagados
MsgBox S, vbInformation, "Movimento"

Parar_Fim:
rst.Close
db.Close
Exit Sub
Parar_Err:
MsgBox err.Description
Resume Parar_Fim
End Sub

Bom dia Assis;

Este ultimo, funciona, para encerrar-mos o tópico ?

Olá JPaulo

Sim este funciona 100%

Obrigado