[Resolvidos]Actualiza Preço Automático, percorrendo registros de formulário contínuo

Porque para a Rotina quando o preço é zero

http://www.speedyshare.com/files/21221446/ActualizaAutomaticoPre_oVenda.mdb

Try;

http://dl.dropbox.com/u/771097/ActualizaAutomaticoPre%C3%A7oVenda_OLD.rar

Boa noite JPaulo

Cá estou outra vez
A intenção é quando alterar o cambio na tabela "Cambio", correr a funcção para que o Preço Cambio Altere automático, em funcção do Preço Venda.
Se o valor do cambio for 1,00 então o "preço/cambio" tem que ser igual ao "preço venda", e isso não acontece na Ref. 004 e acontece em todas as outras. Por ser a primeira Lihna
E não informa que terminou a rotina

Try;

Private Sub Form_Timer()
On Error Resume Next

Me.PreçoVenda.Value = Nz(Me.PreçoVendaMZN.Value, 0) / Nz(Me.Cambio.Value, 0)
Me.Margem = (Nz(Me.PreçoVenda.Value, 0) - Nz(Me.Preçocusto.Value, 0)) / Nz(Me.PreçoVenda.Value, 0)
Me.Actualizado.Value = Date

DoCmd.GoToRecord record:=acNext

Me.PreçoVenda.Value = Nz(Me.PreçoVendaMZN.Value, 0) / Nz(Me.Cambio.Value, 0)
Me.Margem = (Nz(Me.PreçoVenda.Value, 0) - Nz(Me.Preçocusto.Value, 0)) / Nz(Me.PreçoVenda.Value, 0)
Me.Actualizado.Value = Date

DoCmd.GoToRecord record:=acNext

If IsNull(Me.Ref) Or Me.Ref = "" Then

MsgBox "Acerto do Preço de Venda Terminado", vbQuestion, "Aviso"

DoCmd.Close acForm, "rotina"
DoCmd.Close acForm, "executar"

Exit Sub
End If
End Sub

Boa noite JPaulo
Sucesso
28351 produtos actualizados super rápido.
Obrigado