Numeração está sendo perdida ao clicar em botão cancelar!

Boa noite, estou tendo um problema em criar o botão "Cancelar".
A numeração autonumerica está sendo perdida. Ao clicar no botão cancelar, ele deveria cancelar a ação de novo registro.


Private Sub btn_cancelarresolucoes_Click()

If IsNull(Me.DATA) Then

MsgBox "Insira todos os campos corretamente!", vbCritical, "Guinchos Chaves"
Me.DATA.SetFocus
Exit Sub
End If

'A PARTIR DAQUI!

If MsgBox("O registro será incluído. Deseja salvar?", vbYesNo, "") = vbNo Then
Me.Undo
DoCmd.Close acForm, "PORTARIAS", acSaveNo
DoCmd.CancelEvent
Exit Sub
Else
DoCmd.Close acForm, "PORTARIAS", acSaveYes
End If

End Sub

Boa tarde,

Infelizmente mesmo que cancele a adição do registro, o campo de numeração automática ficará com um buraco.

Quando preciso fazer esse procedimento, eu gosto de controlar o código via VBA, com um campo código numérico que eu adiciono ou descresço via codigo, acho que fica mais mais controlado.

Abraço.