... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Exclusão de Dados Não Coincidentes

Usuário Jamil:

Bom dia.

Criei uma consulta (Cons_VendasEmBranco) para selecionar itens não coincidentes de duas tabelas (vendas e vendas_itens). No caso Cod_Venda que estiver em Vendas e não tiver em Vendas_Itens, será exibido. Até aí, tudo certinho!

Quero excluir todos esses itens não coincidentes, mas sempre dá erro:

sql = "DELETE FROM TB_Vendas " & _
      "WHERE TB_Vendas.Cod_Venda = [Cons_VendasEmBranco]![TB_Vendas]![Cod_Venda]"
DoCmd.RunSQL sql

Suporte:

Jamil, experimente desta forma:

sql = "DELETE * FROM TB_Vendas WHERE TB_Vendas.Cod_Venda "
sql = sql & "IN (SELECT Cons_VendasEmBranco.Cod_Venda FROM Cons_VendasEmBranco)"
DoCmd.RunSQL sql

Nota: faça um backup dos dados, antes dos testes.

Usuário Jamil:

Bom dia.

Beleza! Somente informei qual tabela era o cod_venda e funcionou certinho.

sql = "DELETE * FROM TB_Vendas WHERE TB_Vendas.Cod_Venda "
sql = sql & "IN (SELECT Cons_VendasEmBranco.TB_Vendas.Cod_Venda FROM Cons_VendasEmBranco)"
DoCmd.RunSQL sql

Obrigado novamente!


 

 


Não há comentário

Envie seu comentário: