MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe

    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Eloirp em Qui 17 Set 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
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado em Qui 17 Set 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  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Eloirp em Sex 18 Set 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Eloirp em Sex 18 Set 2015, 05:15

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

    [Você precisa estar registrado e conectado para ver este link.]

    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

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado em Sex 18 Set 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  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

      Data/hora atual: Seg 05 Dez 2016, 16:30