[Resolvido]Quebra de sequência em numeração automática

Boas!

Tenho um formulário para inserir dados numa tabela, na qual inclui um campo de numeração automática. No caso de inserir um registo pelo formulário e a meio pretender limpá-lo, quando inserir novamente o registo irá pular no número do campo de numeração automática.

Como poderei ultrupassar esta situação, pois pretendo que na respectiva tabela não existam quebras de sequência no campo de numeração automática.

Utilizar a sequência automática do access corre sempre esse risco. O ideal seria usar uma função externa. Para repor tudo na normalidade, copie a tabela para uma nova.

Já agora se não fôr muito abuso, como poderei utilizar uma função externa?

pergunte à vontade, estamos aqui para ajudar. se possível.

Public Function ContadorSimples(strCampo As String, NomeTabela As String) As Long
Dim strMax As Long
strMax = DMax(strCampo, NomeTabela)
ContadorSimples = Nz(strMax) + 1
End Function

pode utilizar a numeração automatica e repor as falhas desta forma.

Cole num modulo novo e salve.

Public Function RepoeNumeracao(ByVal strTabela As String, ByVal strCampo As String) As Boolean
On Error Resume Next

Dim db As DAO.Database
Dim fld As DAO.Field
Dim tdef As DAO.TableDef

Set db = Application.CurrentDb
Set tdef = db.TableDefs(strTabela)
Set fld = tdef.CreateField(strCampo, dbLong)
With fld
.Attributes = .Attributes Or dbAutoIncrField
End With
With tdef.Fields
.Append fld
.Refresh
End With

RepoeNumeracao = True

Exit_RepoeNumeracao:

Set fld = Nothing
Set tdef = Nothing
Set db = Nothing
Exit Function

End Function


no evento VBA ao pressionar de um botão, ou mesmo no evento VBA ao fechar do seu formulario:

Private Sub Form_Close()
On Error Resume Next
DoCmd.RunSQL ("ALTER TABLE SuaTabela DROP COLUMN SeuCampoID")
Call RepoeNumeracao("SuaTabela", "SeuCampoID")
End Sub