Procurar registro anterior

Tenho o seguinte código abaixo para pesquisar registros anterior , o problemas e que os registros são exibidos muito rapidamente cerca de 1segundo,
e ai o form já vai para novo registro.


Private Sub cupom_AfterUpdate()
If DCount("coddetalhevenda", "tbldetalhe_sisPDV", "coddetalhevenda=" & cupom) = 0 Then
       MsgBox "Não existe nenhum registo com esta venda!!! "
       Cancel = True
       End If
Dim stDocName As String
   Dim stLinkCriteria As String
   
   stDocName = "frmpontodevenda"
   stLinkCriteria = "[codvenda]=" & Me![cupom]
      DoCmd.OpenForm stDocName, , , stLinkCriteria
       DoCmd.Close acForm, ("pesquisavenda"), acSavePrompt
Forms!frmpontodevenda!frmimagem.Visible = False
End Sub

Private Sub cupom_AfterUpdate()
   Dim stDocName As String
  Dim stLinkCriteria As String


If DCount("coddetalhevenda", "tbldetalhe_sisPDV", "coddetalhevenda=" & cupom) = 0 Then
      If MsgBox ("Não existe nenhum registo com esta venda!!! ", vbinformation + vbokCancel, "Aviso...") =vbCancel then
             Cancel = True
                 else  
  stDocName = "frmpontodevenda"
    stLinkCriteria = "[codvenda]=" & Me![cupom]
     DoCmd.OpenForm stDocName, , , stLinkCriteria
      DoCmd.Close acForm, ("pesquisavenda"), acSavePrompt
        Forms!frmpontodevenda!frmimagem.Visible = False
end if
end if

End Sub

Obs...feito "nas coxas" sem testar, talvez possa conter algum erro.

Infelizmente não funcionou , e acaba travando o sistema.

Olá Agravina,

Por gentileza, porte seu banco de dados para que o fórum possa analisar e ajudá-lo a resolver esta questão.

Grato

[]'s

O form vai para o novo registro propositalmente?
Caso contrário, evitando-se que o form vá para o novo registro após atualizar o cupom, resolveria o problema?
Para isso, deve ser suficiente alterar a propriedade "Cliclo" do formulário para "Registro atual".

Outra coisa, "Cancel" não está disponível para o evento "Após atualizar", e sim para o evento "Antes de atualizar".