Cancelar a inclusão de um registro no subformulário (*)

Bom dia,

Estou com uma dúvida:

Criei um form com subform, porém caso não queira salvá-lo, gostaria de cancelar o que foi feito anteriormente

Segue o código abaixo:

Private Sub cmdSalvar_Click()
sql = "Select * from tbCotacaoDetalhe Where Cotacao=" & Me.ID_Cotacao

Set db = CurrentDb
Set rs = db.OpenRecordset(sql, dbOpenDynaset)

If rs.EOF = True Then
   MsgBox "Não há itens na cotação! Verifique!", vbInformation, "RCM"
   cmdSalvar.SetFocus
   Exit Sub
End If

If MsgBox("Salvar cotação?", vbYesNo + vbQuestion, "RCM") = vbYes Then
'Status
Status = "Ag. Envio"
Data = Data


'Habilita e desabilita botões
   cmdEnviar.SetFocus
   cmdNovo.Enabled = False
   cmdEnviar.Enabled = True
   cmdCancelar.Enabled = True
   cmdExcluir.Enabled = False
   cmdFechar.Enabled = True
   cmdEditar.Visible = True
   cmdEditar.Enabled = True
   cmdSalvar.Visible = False
   cmdRevisar.Enabled = False
   cmdCancelarEdicao.Enabled = False

   'Bloqueia registros
   TravaCampos

   Me.Requery 'Atualiza formulário
   'DoCmd.GoToRecord , , acLast 'Vai para o último registro
   Forms![Lista de Cotação].Requery
   
   'DoCmd.Close acForm, "Cotação"

Else
  Forms![DetalheCotacao].Undo - Erro 2450 (**) Subformulário - NÃO FUNCIONA
   Me.Undo 'Cancela as alterações do formulário (*) formulário principal - FUNCIONA

End If
End Sub



PS: Li o tópico (https://www.maximoaccess.com/t8396-resolvidocancelar-inclusao-em-subformulario-com-campo-obrigatorio), e aplicando as sugestões, o formulário principal funciona, o que não está funcionando e está dando erro é o subformulário.

Att.
Marcelo Zapia

Marcelo

Experimente utilizar o me.Undo somente no form principal, se fez o relacionamento
entre as tabelas desses dois formulário(principal e sub), de verá desfazer os dois
simultaneamente.
Isso vale (o uso de .Undo), para o registro que está sendo adicionado no momento,
ou seja, foi preenchido o formulário, mas desistiu da ideia, então usa-se o undo.
Para apagar um registro já gravado na tabela, deverá utilizar de código para deletar
o registro.

[ ]'s