[Resolvido]Verificar Registro existente na tabela ao excluir produto.

Bom dia pessoal.
Hoje venho pedir a ajuda dos mestres pois, já alcancei a exaustão procurando uma forma de verificar se o produto cadastrado está vendido para um cliente com dívida ativa ou seja:
Verificar através do Fproduto se na Cvenda o campo "Pago" =  "Não".
Ao pressionar o botão "Excluir"

Forte abraço para Piloto, beto, Jpaulo Mestre Gui e outros que tem me ajudado nesta caminhada e não posso deixar de citar que começo este ano outra facul de Ciências da Computação para melhorar meu aprendizado e me focar quase que 100% em access

Amigo, onde e como é que você sabe que um cliente está atrasado?

Desculpe, percebi que na descrição já está informado.

Baixe o anexo e veja se é o que pretende:

Quase isso, veja por exemplo: um produto fiado ou seja ele vai para a Cvenda como Pago = Não até ai blz mas tem o seguinte se existir outro produto com a mesma descrição que tenha  no campo Pago = Sim na hora de excluir o código que fez está buscando justamente o Pago = Sim e está indo para a exclusão e por fim excluindo o produto do form Receber.

Resumo: Quando há produtos com nomes iguais ele não está diferenciando o pago = sim do pago = não. Passa a régua rsrs

Então é o oposto?

Bom se é não sei estou perdido nessa. Sei apenas que se vendi uma xerox fiado ela fica como pago = não e vendi outra xerox a vista fica como pago = sim mas na hora de excluir não deveria permitir a exclusão pois, há uma xerox para receber mas, o danado exclui

Blz, só um instante amigão.

Teste:

Cometi um errinho, ao invés de alterar para a funão DCount, mantive DLookup e pode dar problemas futuros.

Use que é o mais apropriado.

Marcelo hé isso amigo muito obrigado mesmo

Você faria uma gentileza de comentar o código e me enviar para fins de aprendizado?

Marcelo vlw mesmo pela sua ajuda estou o dia todo tentando resolver Abraço amigo e fique na paz.

Obrigado pelo retorno meu amigo!


O trecho que faz a verificação é esse e os comentários:

Código:

If DCount("Pago", "cVenda", "codProduto=" & Me!lstProduto.Column(0) & " AND Pago='Não'") >= 1 Then  'Verifico a quantidade de registros da consulta cVenda que tenham o codProduto igual a coluna 0(zero) da listbox lstProduto e que esteja com o campo Pago=Não. Caso a contagem seja igual ou maior que 1, informo que tal produto não pode ser excluído.

        MsgBox "'" & Me!lstProduto.Column(1) & "' não pode ser excluído, pois ainda não foi pago!", vbExclamation, "Exclusão não permitida" ' O Me!lstProduto.Column(1) é que mostra a descrição do produto na MsgBox

Fica Paz do Criador e bom dia!

Entendi... Não sabia que dava para fazer comparação pelo list. Vou ver se acho algo para ler a respeito. Grato Marcelo