MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    avatar
    ajcdobr
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 15/07/2012

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

    Mensagem  ajcdobr Sab 31 Ago 2013, 3:36 pm

    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.


    Última edição por ajcdobr em Sex 12 Jun 2020, 12:15 am, editado 1 vez(es)
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

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

    Mensagem  criquio Sab 31 Ago 2013, 4:31 pm

    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.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    ajcdobr
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 15/07/2012

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

    Mensagem  ajcdobr Seg 02 Set 2013, 12:20 pm

    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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2816
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. Qui 11 Jun 2020, 5:22 pm

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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1010
    Registrado : 23/09/2011

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

    Mensagem  cleverson_manaus Qui 11 Jun 2020, 6:15 pm



    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.


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2816
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. Qui 11 Jun 2020, 11:13 pm

    Há também a possibilidade dos gatilhos (triggers)
    Anexos
    [Resolvido]Impedir Auto Numeração de Reiniciar em caso de compactação do BD. AttachmentNaoPerdeIdAposCompactacao.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (21 Kb) Baixado 7 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: Sab 12 Jun 2021, 10:29 pm