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

    Reindexar uma tabela pela sequencia apos deleção

    avatar
    Amarildo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 25/06/2015

    Reindexar uma tabela pela sequencia apos deleção Empty Reindexar uma tabela pela sequencia apos deleção

    Mensagem  Amarildo 12/8/2015, 18:38

    Ola Pessoal,

        Por gentileza, eu fiz uma deleção dos registros da tabela usando o comando DELETE * FROM Tbl_Bens e gostaria que apos essa deleção fosse habilitado para que essa tabela retorne a gerar a sequencia 1,2,3...e no meu caso a sequencia continua com a última numeração apos a deleção.Grato a todos na cooperação e ajuda. abraço


    Última edição por Amarildo em 12/8/2015, 18:53, editado 1 vez(es)
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    Reindexar uma tabela pela sequencia apos deleção Empty Re: Reindexar uma tabela pela sequencia apos deleção

    Mensagem  Silvio 12/8/2015, 18:43

    Use o compactar e reparar o banco de dados.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Amarildo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 25/06/2015

    Reindexar uma tabela pela sequencia apos deleção Empty Re: Reindexar uma tabela pela sequencia apos deleção

    Mensagem  Amarildo 12/8/2015, 19:01

    Ola Silvio, grato pelas orientações, vou estar descrevendo o que tenho efetuado para que possa averiguar se estou no caminho correto:

    Este o meu código que tenho praticado

    Private Sub BtMGerenciar_Click()
    Dim sql As String

    'deletar a tabela desejada
    'Esta tabela Tbl_BensCorrecao que irá receber do select as informações, apos ter concluido o processo de atualização e logo em seguida
    'deleto essa tabela Tbl_BensCorrecao para que possa ser atualizada
    sql = " DELETE * " & _
    " FROM Tbl_BensCorrecao; "
    DoCmd.RunSQL (sql)

    'Inserir novos registros
    sql = " INSERT INTO Tbl_BensCorrecao ( NomedoBem, TipodoBem, CodigodeBarra, EmpresaRegional, EmpresaLocal, " & _
    " EmpresaLocalFilial, CodigoGrupo, CodigoSubGrupo, LocaldoBem, EstadodoBem, SituacaodoBem, DatadaCorrecao, " & _
    " TaxadaCorrecao, TaxadeDepreciacao, QuantidadeSaldo ) " & _
    " SELECT NomedoBem, TipodoBem, CodigodeBarra, EmpresaRegional, EmpresaLocal, " & _
    " EmpresaLocalFilial, CodigoGrupo, CodigoSubGrupo, LocaldoBem, EstadodoBem, SituacaodoBem, DatadaCorrecao, " & _
    " TaxadaCorrecao, TaxadeDepreciacao, QuantidadeSaldo " & _
    " FROM Tbl_Bens; "
    ' "WHERE (((Tbl_Bens.Codigo) Not In (select Codigo from Tbl_BensCorrecao)));"


    DoCmd.RunSQL (sql)
    End Sub
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    Reindexar uma tabela pela sequencia apos deleção Empty Re: Reindexar uma tabela pela sequencia apos deleção

    Mensagem  Silvio 12/8/2015, 19:18

    Boas....

    Veja esse link, creio que vai te ajudar a fazer o compactar e reparar via vba.
    https://www.maximoaccess.com/t9702-nota-compactar-e-reparar-access-2003?highlight=compactar

    Ficaria algo parecido com isso...

    Private Sub BtMGerenciar_Click()
    Dim sql As String

    'deletar a tabela desejada
    'Esta tabela Tbl_BensCorrecao que irá receber do select as informações, apos ter concluido o processo de atualização e logo em seguida
    'deleto essa tabela Tbl_BensCorrecao para que possa ser atualizada
    sql = " DELETE * " & _
    " FROM Tbl_BensCorrecao; "

    Application.CommandBars("Menu Bar").Enabled = True 'Mostra menus
    CommandBars.FindControl(Id:=2071).accDoDefaultAction 'Compacta/Repara
    Application.CommandBars("Menu Bar").Enabled = False 'Esconde menus


    DoCmd.RunSQL (sql)

    'Inserir novos registros
    sql = " INSERT INTO Tbl_BensCorrecao ( NomedoBem, TipodoBem, CodigodeBarra, EmpresaRegional, EmpresaLocal, " & _
    " EmpresaLocalFilial, CodigoGrupo, CodigoSubGrupo, LocaldoBem, EstadodoBem, SituacaodoBem, DatadaCorrecao, " & _
    " TaxadaCorrecao, TaxadeDepreciacao, QuantidadeSaldo ) " & _
    " SELECT NomedoBem, TipodoBem, CodigodeBarra, EmpresaRegional, EmpresaLocal, " & _
    " EmpresaLocalFilial, CodigoGrupo, CodigoSubGrupo, LocaldoBem, EstadodoBem, SituacaodoBem, DatadaCorrecao, " & _
    " TaxadaCorrecao, TaxadeDepreciacao, QuantidadeSaldo " & _
    " FROM Tbl_Bens; "
    ' "WHERE (((Tbl_Bens.Codigo) Not In (select Codigo from Tbl_BensCorrecao)));"

    End Sub


    Bons estudos.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Amarildo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 25/06/2015

    Reindexar uma tabela pela sequencia apos deleção Empty Re: Reindexar uma tabela pela sequencia apos deleção

    Mensagem  Amarildo 12/8/2015, 20:24

    Ola Silvio, funcionou perfeitamente os parametros dos quais me enviou, a tabela retorna a ficar na chave primaria como nova sequencia 1...so que percebi que apos o insert a sequencia passa a ser a última sequencia que havia sido gerada na tabela atualizada: Tipo assim, quando processa a select e manda inserir o registro lido na Tbl_Bens o registro assume o último registro que havia sido gravado na tabela Tbl_BensCorrecao.

    Conteúdo patrocinado


    Reindexar uma tabela pela sequencia apos deleção Empty Re: Reindexar uma tabela pela sequencia apos deleção

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 00:01