[Resolvido]Excluir valores iguais de tabelas diferentes

Bom dia caros amigos, tenho a seguinte duvida, tenho uma tabela A e uma tabela B, tais tabelas possuem dados iguais entre si, gostaria de excluir todos os registros da tabela B que sejam iguais ao da tabela A.
Obs: A tabela A é uma tabela local e a tabela B é uma tabela vinculada de um outro banco de dados, tentei fazer a exclusão através de uma consulta de exclusão mas sempre aparece a mensagem de erro "Especifique a tabela que contem os registros que você deseja excluir"
Desde já agradeço.

Faça um backup em primeiro lugar;

Abra uma consulta nova em modo SQL, cole este trecho e altere para os nomes corretos;

DELETE * FROM SuaTabelaB where EXISTS(SELECT * FROM SuaTabelaA WHERE SuaTabelaA.SeuCampoID=SuaTabelaB.SeuCampoID)

JPaulo,a consulta inicial em SQL segue abaixo, fiz as seguinte adaptações como me foi solicitado, porem ocorre a seguinte mensagem de erro "erro em tempo de execução '3131' erro de sintaxe na clausula FROM", dai nao consegui localizar o erro, se puder me ajudar.



Consulta Inicial

SELECT tbl_Caixa1.Data, tbl_Caixa1.Id_Conta, tbl_Caixa1.Id_ContaCorrente, tbl_Caixa1.Contagem, tbl_Caixa1.Valor, tbl_Caixa1.Obs, tbl_Caixa1.Computador, tbl_Caixa1.Usuario, tbl_Caixa1.Data_Hora, tbl_Caixa1.Computador_Conf, tbl_Caixa1.Usuario_Conf, tbl_Caixa1.Data_Hora_Conf
FROM tbl_Caixa1 LEFT JOIN temp ON (tbl_Caixa1.Valor = temp.Valor) AND (tbl_Caixa1.Id_ContaCorrente = temp.Id_ContaCorrente) AND (tbl_Caixa1.Id_Conta = temp.Id_Conta) AND (tbl_Caixa1.Data = temp.data);

Obs:É este o resultado que gostaria de excluir da tabela tbl_Caixa1(tabela B)



Linha de Comando Adaptada


Private Sub Comando9_Click()


DoCmd.SetWarnings (False)
sql = "DELETE * FROM tbl_Caixa1 wheres EXISTS(FROM temp WHERE (tbl_Caixa1.Valor = temp.Valor) AND (tbl_Caixa1.Id_ContaCorrente = temp.Id_ContaCorrente) AND (tbl_Caixa1.Id_Conta = temp.Id_Conta) AND (tbl_Caixa1.Data = temp.data))"
DoCmd.RunSQL sql


End Sub

Com a palavra wheres não deve funfar mesmo.

E falta ae o EXISTS(SELECT * FROM

O teste que eu lhe pedi, era para fazer numa consulta mesmo, só depois de funcionar poderá passar para vba.

mil desculpas JPaulo, mas o erro ainda acontece.

Estou no tablet e não tenho como testar,

Mais ou menos isto,

"DELETE * FROM tbl_Caixa1 where EXISTS(SELECT * FROM temp WHERE (tbl_Caixa1.Valor = temp.Valor AND tbl_Caixa1.Id_ContaCorrente = temp.Id_ContaCorrente) AND (tbl_Caixa1.Id_Conta = temp.Id_Conta AND tbl_Caixa1.Data = temp.data))"

Muito Obrigado JPaulo, ficou da seguinte forma segue abaixo


Private Sub Comando9_Click()


DoCmd.SetWarnings (False)
sql = "DELETE * FROM tbl_Caixa1 WHERE EXISTS(SELECT * FROM temp WHERE (temp.Valor = tbl_Caixa1.Valor) AND (temp.Id_ContaCorrente = tbl_Caixa1.Id_ContaCorrente) AND (temp.Id_Conta = tbl_Caixa1.Id_Conta) AND (temp.data = tbl_Caixa1.Data))"
DoCmd.RunSQL sql


End Sub


Muito Obrigado e Desculpe Qualquer Coisa.

Abraço

Não esquecer do DoCmd.SetWarnings True, no final, senão desabilita para sempre as mensagens de segurança e pode deletar uma tabela sem querer que o access não avisa.

Obrigado pelo retorno o forum agradece.