[Resolvido]Sair sem Salvar

cumprimentos a todo o pessoal do forum

- já coloquei no botão fechar o seguinte codigo, resolve uma parte mas aumenta a numeração e deixo de ter
uma sequençia ex: FolhaObraID 130001 saio sem gravar, quando abro uma nova folha obra ele abre já com a numeração 130002 e
eu queria que uma vez que não salvei não aumenta-se a numeração.


Dim i As Integer
Dim sMsg As String

sMsg = "Deseja salvar as alterações?"
i = MsgBox(sMsg, vbYesNo, "Salvar alterações")

If i = vbNo Then

DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

End If

Boa noite colega João.
Fiz um exemplo para outro colega que talves lhe ajude. Teste e retorne.
Bd exemplo: http://speedy.sh/AmyBW/Fabio.accdb

Escreva este código no seu botão Salvar

Dim X As Integer
If (Me.Dirty = True) Then
X = MsgBox("Salvar registro no sistema ?", vbYesNo, "CADASTRO DE CLIENTES")
If X = vbNo Then
Me.Undo
Exit Sub
Else
RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
Exit Sub
End If
End If

If (Me.Dirty = False) Then
MsgBox "Registro já salvo...", vbCritical, "Atenção"
Exit Sub
End If

E se houver alguma alteração no registro e não clicar no botão salvar e sim no do Fechar este codigo. Se não tiver o botão fechar escreva o codigo ao sair do form.

Dim X As Integer
If Me.Dirty Then
X = MsgBox("Houve adição ou alterações de registro, deseja salvar ?", vbYesNo, "CADASTRO DE CLIENTES")
If X = vbNo Then
Me.Undo
End If
End If
DoCmd.Close

Obrigado pela ajuda CAFPR

o Codigo é Bom, mas se abrir um formulario e fechar sem salvar ele aumenta a numeração na chave
primaria (faz um registo em branco)

Estou revendo....

Amigo CAFPR...

Meu problema esta resolvido em 99% vou colocar como resolvido
obrigado pela ajuda