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


4 participantes

    [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 31/8/2013, 16:36

    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 12/6/2020, 01:15, 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 31/8/2013, 17:31

    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 2/9/2013, 13:20

    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 : 3845
    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. 11/6/2020, 18:22

    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 : 1011
    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 11/6/2020, 19:15



    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 : 3845
    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. 12/6/2020, 00:13

    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 10 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.

    Conteúdo patrocinado


    [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  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 10:12