[Resolvido]Problema com auto numeração

boa tarde,

tenho um banco com 81 tabelas, sendo que 15 delas existe um campo chamado SEQ_GLOBAL, este campo irá armazenar uma sequencia auto númerica, onde todas as vezes que for inserido um dados em umas dessas 15 tabelas, será gerado a contagem, por exemplo, se na tabela 1 o campo SEQ_GLOBAL contem o valor 1, e se eu inserir dado na tabela 09, o campo SEQ_GLOBAL da tabela 09 vai para 2 e assim sucessivamente. Eu criei uma regra no modula que é essa:

Sub GerarCodigo()

Dim rs As New ADODB.Recordset

Set cn = CurrentProject.Connection
cn.Execute "update SEQ_GLOBAL set NumSeq = NumSeq + 1"

Comando = "select NumSeq from SEQ_GLOBAL"


rs.Open Comando, CurrentProject.Connection

NumeroSeq = rs.Fields("NumSeq")
End Sub

Está funcionado a auto numeração, porém caso eu tenha que cancelar o preenchimento da tabela, ou ocorra algum erro, mesmo assim é feito a contagem...

então queria uma ajuda para que caso eu precise cancelar o preenchimento ou der algum erro, a contagem não ocorra.

Lembrando que esse campo eu marquei com obrigatorio, e essa regra eu coloquei dentro da função do botao Novo, então toda que vez que clico no botão novo, ele gera o codigo, tentei colocar a regra na função salvar, porém ele emite o erro avisando-me que é necessario colocar o codigo no campo SEQ_GLOBAL. Queria uma solução por favor.

Poderia criar um código que caso não ocorra a inserção na tabela não seja executado a sub.
ou mesmo caso seja abortado, deletar o ultimo registro da numeração criada.

Ajudaria se postasse um pequeno exemplo.

Cumprimentos.