[Resolvido]Problema com divisão por "0"!

Olá companheiros muito boa tarde necessito de ajuda de todos, como sempre tem me ajudado!

Tenho um form para cadastros de produtos tenho os campos: "PC" que é o preço da compra do produto,
e o campo "Preço_Venda" onde uso esse código:

Private Sub Preço_Venda_AfterUpdate()
Me.ML = (([Preço_Venda] - [PC]) * 100) / [PC]
End Sub

Até ai tudo bem, quando o form é aberto os campos ficam com estes valores (R$ 0,00) então se eu digito um valor no campo "PC" que é o preço da compra, não acontece erro algum, pois o código, é: Me.ML = (([Preço_Venda] - [PC]) * 100) / [PC]. Porém se ele fica com este valor: (R$ 0,00) e digito o preço da venda da um erro, que não posso dividir por :0: (zero). A pretenção é criar um código que verificasse o campo "PC" valor da compra e se ele estiver (R$ 0,00) viesse uma mensagem informando para que digitasse o valor da compra anulando esta função: Me.ML = (([Preço_Venda] - [PC]) * 100) / [PC], e retornasse o foco para me.PC para ser preenchido!

Conto com ajuda dos senhores, e aguardo!

Abraço á todos

Olá Lupercio

Private Sub Preço_Venda_AfterUpdate()
if me!pc = 0 then
me!ml = 0
'ou gera uma mensagem e aponta para o campo me!pc.setfocus
else
Me.ML = (([Preço_Venda] - [PC]) * 100) / [PC]
end if
End Sub


Vc ainda poderia usar o evento "antes de atualizar" para cancelar o preço de venda lançado.

Sucesso!

Grande Avelino Sampaio

Funcionou perfeitamente, e ficou assim:

Private Sub Preço_Venda_AfterUpdate()
if me!pc = 0 then
me!ml = 0
MsgBox "Preencha o valor da compra!", vbInformation, "Atenção!"
DoCmd.CancelEvent
else
Me.ML = (([Preço_Venda] - [PC]) * 100) / [PC]
end if
Me.PC.setfocus
End Sub


Obrigado pela ajuda, um grande abraço!

Você aconselha usar o código no evento antes de atualizar?