Boa dia
Criei um pequeno BD para testar o código nesta situação e coloquei nos botões Salvar e Novo os seguintes códigos:
Option Compare Database
----------------------------------------------------------------------
Private Sub BTN_NOVO_Click()
DoCmd.GoToRecord acForm, "TBL_CADASTRO", acNewRec
End Sub
----------------------------------------------------------------------
Private Sub BTN_SALVAR_Click()
DoCmd.RunCommand acCmdSaveRecord
MsgBox "Registro Salvo com Sucesso!", vbInformation, "Salvo!"
Me.MATRICULA = Nz(DMax("MATRICULA", "TBL_CADASTRO"), 0) + 1 'Gera um novo nro somente quando salvar!
End Sub
----------------------------------------------------------------------
Isso poderia minimizar o problema de dois ou mais registros com o mesmo número de matrícula?