[Resolvido]Consulta eliminar

Bom dia

Precisava de ajuda na consulta eliminar desta BD

Ao executar a consulta não anula ?
Obrigado

Execute a macro "Anular" e veja se é o que pretende.

Excluindo registros da tabela PedidoCompras onde não tenha registros relacionados na tabela PedidoComprasDetalhes OU que o campo fornecedor esteja vazio

Código:

DELETE *
FROM tblPedidosCompras AS a
WHERE Nz(a.Fornecedor)="" OR (select count(*) from tblPedidosComprasDetalhes as b where a.NumPedido = b.NumPedido)=0;

Excluindo registros da tabela PedidoComprasDetalhes onde o campo NumPedido ou CodProduto seja nulo

Código:

DELETE *
FROM tblPedidosComprasDetalhes AS b
WHERE (b.NumPedido Is Null) OR (b.CodProduto Is Null);


Bom dia DamascenoJr.


A macro "Anular" ficou perfeito .

Para fechar o poste tenho esta situação. Ver imagem :

Obrigado

up

Assis escreveu:Informar que não tem produtos registrados

Código:

Dim objRS As DAO.Recordset
   
    Set objRS = Me!SeuSubFormulario.Form.RecordsetClone
    If objRS.RecordCount = 0 Then
        Call MsgBox("Não foi inserido nada no subformulário")
        Set objRS = Nothing
        Exit Sub
    End If
    Set objRS = Nothing

Assis escreveu:... e não gravar.

Infelizmente o pedido da compra já fica gravado automaticamente na tabela origem se passar o foco para o subformulário (PedidoCompraDetalhe), mas isso você já resolveria executando a macro Anular rotineiramente.

Bom dia DamascenoJr.

Perfeito

Obrigado

O fórum agradece o retorno. Sucesso.