[Resolvido]Impedir Auto Numeração de Reiniciar em caso de compactação do BD.

Caros Amigos,

Bom Dia !!!!

Existe alguma maneira de Impedir um campo Auto Numeração de Reiniciar em caso de compactação do BD?

Uso o Access 2010 e também o 2003.

Sds,

Antonio.

Não entendi. Geralmente, quando há registros na tabela, a autonumeração continua de onde parou mesmo após compactação. Explique melhor por gentileza.

Criquio,

Bom Dia.

Esta tabela em questão tem seus registros deletados a cada inicio de atividades no BD, seus registro são copiados para um outra tabela que acumula todos os dados referentes ao movimento diario.

Sds,

Antonio

Antonio, como anda essa questão? Resolveu? Aguardamos.

boa tarde,


Vc precisa criar um form com campos não acoplados.

Em seguida use o código para auto-numeração via VBA em campo qualquer no evento após atualizar.

Faça as adaptações necessárias para seu caso.

Código:


Private Sub txtCodGrupo_AfterUpdate()

    Set dbs = CurrentDb
    strSQL = "SELECT * FROM tbl_PlanoContas order by ccCodConta"
    Set rst = dbs.OpenRecordset(strSQL)

    If rst.RecordCount = 0 Then

        txtCodConta = 1
        txtCodConta = Format(txtCodConta, "00000000")

        txtConta = txtCodGrupo & "." & txtCodConta

    Else

        If rst("ccCodGrupo").Value = 1 Then

            rst.MoveLast
            txtCodConta = rst("ccCodConta") + 1
            txtCodConta = Format(txtCodConta, "00000000")
            txtConta = txtCodGrupo & "." & txtCodConta
        End If

        rst.Close

    End If

End Sub


Att.

Há também a possibilidade dos gatilhos (triggers)