[Resolvido]Loop dando erro

Quero quando Clicar em "Cancelar" ele exclua os lançamentos todos do ultimo para o primeiro. Utilizando o "Formexclusaoitem".

Já o utilizo dando duplo Click para cancelar um a um do listbox. Funciona corretamente desfazendo os lançamentos.

Já aqui ele da erro na opção em negrito abaixo. Se esperar alguns segundos ele continua normalmente.

Private Sub Cancelar_Click()
Dim Cancelar As Byte
Dim itens As Byte
Do While Cancelar < Me!TotalItens 'Será executado exatamente a quantia de itens da nota'
 
DoCmd.OpenForm "formexclusaoiten", , , "NumeroItens =" & TotalItens
Forms!formexclusaoiten.Visible = True 'mostra o formulário "formexclusaoiten"
Forms!formexclusaoiten!Excluir.SetFocus

'Diminui o item excluido
itens = Forms!fornotafiscal!TotalItens - 1
Forms!fornotafiscal!TotalItens = Null
Forms!fornotafiscal!TotalItens = itens

  Cancelar = Cancelar + 1
Loop
End Sub

Manda o foco para o formulário, antes do botão Excluir:

Forms!formexclusaoiten.SetFocus
Forms!formexclusaoiten!Excluir.SetFocus

Funciona quando "Exclui" o 1º item, quando vai fazer o segundo para.

Segue o formulário para você ver. Coloquei a "Exclusão" por "duplo Click", para excluir manualmente um a um e funciona corretamente.

Se puder me ajudar agradeço.

Formulario "ForNotaFiscal".

Já tem 4 lançamentos, se Clicar em "Cancelar Nota"

Acho que toda a programação pode ser substituída pelas duas linhas abaixo:

CurrentDb.Execute "Delete * From TabitensNota Where NotaFiscal = '" & Me!NotaFiscal & "'"
Me!Lista.Requery

Sim apaga realmente, mas não desfaz as alterações que foram feitas na tabempenhoitens.
E quando tiver vários empenhos pode acontecer de ter varias notas com o mesmo numero pois tem varias empresas que entregam produtos.

Se tiver como guardar os valores em variaveis e atualizar os valores direto na tabempenhoitens conforme for atualizando excluindo, acho que daria certo.

Só não sei como fazer

Aí já são várias outras dúvidas, melhor dividir em mais posts para outros também poderem ajudar.

Resolvido segue o Codigo abaixo como ficou do botão cancelar:

Dim entr As Integer
Dim aen As Integer
Dim val As Integer
Dim Itens As Byte

Do Until Me!TotalItens = 0

DoCmd.Requery

entr = Forms!fornotafiscal!ConsAcertoEmpenho.Form!entregue.Value - Forms!fornotafiscal!ConsItenExclusao.Form!entregue.Value
aen = Forms!fornotafiscal!ConsAcertoEmpenho.Form!Aentregar.Value
val = Forms!fornotafiscal!ConsAcertoEmpenho.Form!valorentregue.Value

'Atualiza os campos "Entregue", "AEntregar" e "ValorEntregue"
Forms!fornotafiscal!ConsAcertoEmpenho.Form!entregue = Null 'limpa o campo Entregue
Forms!fornotafiscal!ConsAcertoEmpenho.Form!entregue = entr ' - Forms!fornotafiscal!ConsItenExclusao!entregue 'Atualiza o valor Entregue

Forms!fornotafiscal!ConsAcertoEmpenho.Form!Aentregar = Null 'limpa o campo Aentregar
Forms!fornotafiscal!ConsAcertoEmpenho.Form!Aentregar = aen + Forms!fornotafiscal!ConsItenExclusao!entregue 'Atualiza o valor Aentregar

Forms!fornotafiscal!ConsAcertoEmpenho.Form!valorentregue = Null 'limpa o campo Valor Entregue
Forms!fornotafiscal!ConsAcertoEmpenho.Form!valorentregue = Forms!fornotafiscal!ConsAcertoEmpenho!entregue * Forms!fornotafiscal!ConsItenExclusao!PrecoUnitario 'Atualiza o Valor Entregue

'Atualiza o Status da mercadoria
Select Case Forms!fornotafiscal!ConsAcertoEmpenho.Form!entregue.Value
Case Is = 0
Forms!fornotafiscal!ConsAcertoEmpenho.Form!Status.Value = "Não Entregue"

Case Is = Forms!fornotafiscal!ConsAcertoEmpenho.Form!Quantidade.Value
Forms!fornotafiscal!ConsAcertoEmpenho.Form!Status.Value = "Entregue"

Case Is < Forms!fornotafiscal!ConsAcertoEmpenho.Form!Quantidade.Value
Forms!fornotafiscal!ConsAcertoEmpenho.Form!Status.Value = "Parcial"

End Select

Itens = Forms!fornotafiscal!TotalItens - 1
Forms!fornotafiscal!TotalItens = Null
Forms!fornotafiscal!TotalItens = Itens

DoCmd.Requery
Loop

End Sub