[Resolvido]Apagar o mesmo registro em tabelas diferentes.

Boa tarde meus amigos.Estou com uma dificuldade e queria a ajuda de vocês.Tenho um banco de dados com duas tabelas que registra itens iguais.Gostaria de poder excluir o registro nas duas tabelas simultaneamente.Estou usando este código abaixo mas só está apagado em uma tabela.

CurrentDb.Execute "DELETE * FROM DADPROJET WHERE OFICIO IN (SELECT OFICIO FROM MEMOPROJET)"

Apaga o campo OFICIO em DADPROJET mas não apaga este mesmo campo em MEMOPROJET

Onde posso estar errando?

Amigo, eu também não conheço uma instrução SQL que apague dados de duas tabelas assim como você quer (uma usando dados da outra).

Para contornar esse problema eu usaria um recordset para pegar os dados a serem apagados e em seguida usaria SQL para apagar os dados de ambas as tabelas.

Ex.

Código:


Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT OFICIO FROM MEMOPROJET")
docmd.setwarnings = false
Do Until rs.EOF = True
   CurrentDb.Execute "DELETE * FROM DADPROJET WHERE OFICIO = " & rs!OFICIO
   CurrentDb.Execute "DELETE * FROM MEMOPROJET WHERE OFICIO = " & rs!OFICIO
   rs.MoveNext
Loop
docmd.setwarnings = true


Se você quer limpar totalmente ambas as tabelas basta executar o comando DELETE sem o WHERE. Tipo assim:

Código:


CurrentDb.Execute "DELETE * FROM DADPROJET"
CurrentDb.Execute "DELETE * FROM MEMOPROJET"


PS. Não testei o código

Valeu por responder meu amigo.Fiz umas correções no teu código "docmd.setwarnings = false" passei para "docmd.setwarnings false" mas continua dando um erro:

erro 3464:tipos de dados incompatíveis na expressão de critério.

Coloquei um banco para facilitar.

Eu não sabia que o campo era tipo texto. Mas basta mudar essas linhas que dá certo.

Código:


CurrentDb.Execute "DELETE * FROM DADPROJET WHERE OFICIO = """ & rs!OFICIO & """"
CurrentDb.Execute "DELETE * FROM MEMOPROJET WHERE OFICIO = """ & rs!OFICIO & """"


Oi amigo,obrigado por ajudar.Não sei se mencionei mas minha intenção é que apague um item específico que está gravado nas duas tabelas.Acontece que este código está apagando tudo.

Boa tarde

campoX: Altere para o campo que identifica ambos registros

CurrentDb.Execute "DELETE * FROM DADPROJET WHERE OFICIO = '" & campox & "'"
CurrentDb.Execute "DELETE * FROM MEMOPROJET WHERE OFICIO = '" & campox & "'"

OBS: se o campo for numérico utilize aspas duplas ( " ) , se for texto, aspas simples ( ' )

Bom dia meu amigo,obrigado por ajudar.Continua dando erro.Coloquei o banco...se puder me ajudar eu agradeço.

Boa tarde !

Estive olhando a base de dados, veja se há possibilidade de relacionar as tabelas, assim facilita a programação.

Tentei uns testes mas não obtive sucesso, peço para que alguém se possível nos ilumine.

Abraços.

Veja se assim atende

Obrigado meus amigos.