[Resolvido]Empacado no sql

Bom dia pessoal.

Estou com uma dificuldade para fazer a exclusão de produto que envolve duas tabelas a venda e detalhevenda.
Pois bem. Gostaria que ao excluir o último registro da tabela detalhevenda excluísse também o registro relacionado na tabela venda.

Dim VAZIO As String
 DoCmd.SetWarnings False
   
      CurrentDb.Execute "DELETE * FROM DetalheVenda WHERE codVenda = " & COD_V & " And CodProduto = " & COD_P & ""
       
       'Atualiza o estoque na tabela Produto
       CurrentDb.Execute "UPDATE Produto Set qtdEstoque = qtdEstoque + " & COD_REPOR & " WHERE CodProduto = " & COD_P & ""
VAZIO = ("SELECT * FROM DetalheVenda WHERE CODDETALHE = """)

If IsNull(VAZIO) Then
CurrentDb.Execute "DELETE * FROM Venda WHERE codVenda = " & COD_V & ""

Else

end if

   
   
End Sub

E bem empancado;

Só necessita destas 4 linhas e por esta ordem;

CurrentDb.Execute "UPDATE Produto Set qtdEstoque = qtdEstoque + " & Me.COD_REPOR.Value & " WHERE CodProduto = " & Me.COD_P.Value & ""
CurrentDb.Execute "DELETE * FROM DetalheVenda WHERE codVenda = " & Me.COD_V.Value & " And CodProduto = " & Me.COD_P.Value & ""
CurrentDb.Execute "DELETE * FROM Venda WHERE codVenda = " & Me.COD_V.Value & ""
Me.Recalc

Usando o CurrentDb.Execute não necessita do DoCmd.SetWarnings False.

JPaulo antes desse código:

CurrentDb.Execute "DELETE * FROM Venda WHERE codVenda = " & Me.COD_V.Value & ""

Preciso fazer uma verificação na tabela DetalheVenda para saber se ainda existe alguma venda para esse codVenda do jeito que está este comando não faz a verificação e exclui de cara toda a venda pelo codVenda.

E não é essa a ideia ?

O codVenda não deveria ser unico para cada venda ?

O codVenda é o único para cada venda de muitos produtos por isso a dificuldade pois, na tabela venda está o codVenda onde fica o código da venda e na tabela DetalheVenda onde fica registrados os itens vendidos veja a foto que postei.

Entendi...  

Então o amigo pretende excluír um item especifico e se a venda não contiver items, deleta a propria venda, é isso ?

Isso ai

Código:

Dim x As Integer

CurrentDb.Execute "UPDATE Produto Set qtdEstoque = qtdEstoque + " & Me.COD_REPOR.Value & " WHERE CodProduto = " & Me.COD_P.Value & ""
CurrentDb.Execute "DELETE * FROM DetalheVenda WHERE codVenda = " & Me.COD_V.Value & " And CodProduto = " & Me.COD_P.Value & ""

Me.Recalc

x = Nz(DCount("*", "DetalheVenda", "codVenda = " & Me.COD_V.Value), 0)

If x > 0 Then
  Exit Sub
  Else
CurrentDb.Execute "DELETE * FROM Venda WHERE codVenda = " & Me.COD_V.Value & ""
End If

Me.Recalc

Quem sabe, sabe
Varei a madrugada tentando e vc resolveu em minutos rs
Muito obrigado e que Deus o abençoe sempre!

Obrigado pelo retorno o forum agradece.