[Resolvido]Lançamentos de cadastro em branco

Boa Noite, Pessoal!

Não sei falar bem como isso acontece e quando acontece, mas quando fecho meu formulário de cadastro de movimentação de estoque ele salva registros em branco na minha tabela. Achei o problema seria corrigido pelo código a seguir mas nada faz. Alguém pode me explica!

Código:

Private Sub BtSair_Click()
 With CodeContextObject
    If MsgBox("Deseja sair?", vbInformation + vbYesNo, "Aviso") = vbYes Then
        If (.Form.Dirty) Then
            DoCmd.RunCommand acCmdUndo
        End If
        DoCmd.GoToRecord , , acNewRec
        DoCmd.Close , ""
        End If
    End With
End Sub

Observe que o neste codigo existe uma linha que cria um novo registro antes de sair, tente executar sem ela:

Private Sub BtSair_Click()
With CodeContextObject
   If MsgBox("Deseja sair?", vbInformation + vbYesNo, "Aviso") = vbYes Then
       If (.Form.Dirty) Then
           DoCmd.RunCommand acCmdUndo
       End If
       DoCmd.GoToRecord , , acNewRec
       DoCmd.Close , ""
       End If
   End With
End Sub

Ok muito obrigado!

E então fez o teste?

Sim, deu certo!