Salvamento Automático Erro

Saudações

Para impedir que o access salve os dados automaticamente estou utilizando o seguinte cod. que encontrei aqui no fórum, mais estar dando erro quando clico não Salvar ai o "DoCmd.RunCommand acCmdUndo" fica destacado.

Private Sub Form_Unload(Cancel As Integer)
Dim strMsg As String
strMsg = "Foram efectuadas alterações"
strMsg = strMsg & "...Deseja gravar as alterações?"
If MsgBox(strMsg, vbQuestion + vbYesNo, "Gravar?") = vbYes Then
'do nothing
Else
DoCmd.RunCommand acCmdUndo

End If
End Sub

Utilizo esse cod. pois no meu form tenho uns subformulário todos ligados com chave primaria

Substitua por Me.Undo

o Cod. não estar funcionando pois quando clico em não salvar as alterações ele mesmo assim salva.

Teste este simples, no evento ao fechar do form;


Private Sub Form_Close()
If MsgBox("Confirma salvamento das alterações?", vbYesNo, ".: Confirmar:.") = vbNo Then
Me.Undo
DoCmd.CancelEvent
Else
DoCmd.RunCommand acCmdSave
End If
End Sub

Também não resolveu mais, tive um ideia coloque esse evento em um botão BtGravar ai ele resolveu funcionar, mais se eu altero e vou la no botão fechar do windows ele salva automaticamente, como posso colocar um evento que quando for fechado pelo Botão do windows fosse exibido uma mensagem tipo se os dados que foram inseridos ou alterado não serão salvos, tem ser tesa que quer sair. se clicar em sim a pagina fecha sem salvar, se não ele cancela a operação.