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


2 participantes

    [Resolvido]Zerar numeração automática via VBA de uma única tabela

    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 15/06/2013

    [Resolvido]Zerar numeração automática via VBA de uma única tabela Empty [Resolvido]Zerar numeração automática via VBA de uma única tabela

    Mensagem  Eloirp 17/9/2015, 20:59

    Estou precisando de ajuda para zerar a numeração automática de apenas uma tabela, pois do banco todo poderia fazer pelo compactar/reparar, será que tem como fazer?
    Após a importação dos dados eu deleto todos os dados e necessito que a numeração seja reiniciada para a tabela.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1633
    Registrado : 17/03/2011

    [Resolvido]Zerar numeração automática via VBA de uma única tabela Empty Re: [Resolvido]Zerar numeração automática via VBA de uma única tabela

    Mensagem  Cláudio Machado 17/9/2015, 23:19

    Copie a tabela para uma nova e ao copiar defina só a estrutura. Assim tudo é zerado.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Zerar numeração automática via VBA de uma única tabela 90dssg para agradecer a dica que solucionou seu problema.
    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 15/06/2013

    [Resolvido]Zerar numeração automática via VBA de uma única tabela Empty Re: [Resolvido]Zerar numeração automática via VBA de uma única tabela

    Mensagem  Eloirp 18/9/2015, 04:49

    Olá Claudio, entendi sua sugestão mas acho que não daria certo porque se eu copiar a tabela vou perder o nome dela que está amarrado na programação! Será que não existe algum comando para zerar?
    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 15/06/2013

    [Resolvido]Zerar numeração automática via VBA de uma única tabela Empty Re: [Resolvido]Zerar numeração automática via VBA de uma única tabela

    Mensagem  Eloirp 18/9/2015, 05:15

    Pesquisando na net consequi o código abaixo e ficou 100%

    https://support.microsoft.com/pt-br/kb/287756

    Após deletar os dados da tbl eu chamo a função com os dados da tbl:

    Call ChangeSeed("ICMS10", "Codigo", 1)


    que irá executar a função que fica no módulo:

    Function ChangeSeed(strTbl As String, strCol As String, lngSeed As Long) As Boolean
       'You must pass the following variables to this function.
       'strTbl = Table containing autonumber field
       'strCol = Name of the autonumber field
       'lngSeed = Long integer value you want to use for next AutoNumber.

       Dim cnn As ADODB.Connection
       Dim cat As New ADOX.Catalog
       Dim col As ADOX.Column
       
       'Set connection and catalog to current database.
       Set cnn = CurrentProject.Connection
       cat.ActiveConnection = cnn
       
       Set col = cat.Tables(strTbl).Columns(strCol)
       
       col.Properties("Seed") = lngSeed
       cat.Tables(strTbl).Columns.Refresh
       If col.Properties("seed") = lngSeed Then
           ChangeSeed = True
       Else
           ChangeSeed = False
       End If
       Set col = Nothing
       Set cat = Nothing
       Set cnn = Nothing

    End Function

    Pablo Neruda gosta desta mensagem

    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1633
    Registrado : 17/03/2011

    [Resolvido]Zerar numeração automática via VBA de uma única tabela Empty Re: [Resolvido]Zerar numeração automática via VBA de uma única tabela

    Mensagem  Cláudio Machado 18/9/2015, 13:04

    Bom dia.
    Show!
    Muito interessante este código, mas, repare que até a Microsoft recomenda o que eu disse na opção 1 deles.
    Mas obrigado por compartilhar.
    Abraço


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Zerar numeração automática via VBA de uma única tabela 90dssg para agradecer a dica que solucionou seu problema.

    Conteúdo patrocinado


    [Resolvido]Zerar numeração automática via VBA de uma única tabela Empty Re: [Resolvido]Zerar numeração automática via VBA de uma única tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 08:53