MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Consulta criar tabela com campo de autonumeração

    avatar
    SAPMM
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 365
    Registrado : 07/08/2011

    [Resolvido]Consulta criar tabela com campo de autonumeração Empty Consulta criar tabela com campo de autonumeração

    Mensagem  SAPMM em 19/7/2012, 13:45

    Como adicionar um campo para gerar autonomeração em uma consulta criar tabela? Ou seja, gostaria de criar a tabela pela consulta e adicionar um campo de autonumeração.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7408
    Registrado : 05/11/2009

    [Resolvido]Consulta criar tabela com campo de autonumeração Empty Re: [Resolvido]Consulta criar tabela com campo de autonumeração

    Mensagem  Alexandre Neves em 19/7/2012, 16:25

    Boa tarde, donizeth

    Aconselho a ter a estrutura da tabela criada, sem registos, e utilizar comando de acrescentar registos, não indicando o campo de auto-numeração, que será preenchido automaticamente.
    avatar
    SAPMM
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 365
    Registrado : 07/08/2011

    [Resolvido]Consulta criar tabela com campo de autonumeração Empty Re: [Resolvido]Consulta criar tabela com campo de autonumeração

    Mensagem  SAPMM em 19/7/2012, 19:17

    Boa tarde Alexandre,

    Mas eu gostaria de reinicializar a numeração a partir do número 1, toda vez que gerar a consulta.

    Donizeth
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7408
    Registrado : 05/11/2009

    [Resolvido]Consulta criar tabela com campo de autonumeração Empty Re: [Resolvido]Consulta criar tabela com campo de autonumeração

    Mensagem  Alexandre Neves em 19/7/2012, 23:01

    Já experimentou o que aconselhei?
    avatar
    SAPMM
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 365
    Registrado : 07/08/2011

    [Resolvido]Consulta criar tabela com campo de autonumeração Empty Re: [Resolvido]Consulta criar tabela com campo de autonumeração

    Mensagem  SAPMM em 19/7/2012, 23:16

    Alexandre,

    Fiz, mas antes de acrescentar na tabela, executo uma consulta para eliminar os registros, porém quando executo o acrescentar a numeração continua após o último registro criado e não iniciando novamente em 1. POr exemplo, criei a tabela com 500 registros, fiz a exclusão e executei a consulta acrescimento, aí a numeração começou em 501, mas na verdade queria que começasse em 1.

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7408
    Registrado : 05/11/2009

    [Resolvido]Consulta criar tabela com campo de autonumeração Empty Re: [Resolvido]Consulta criar tabela com campo de autonumeração

    Mensagem  Alexandre Neves em 20/7/2012, 17:11

    Boa tarde,

    Adapte o código
    Sub NumeraCampo()
    'criada por Alexandre Neves
    'em 2012-07-20
    'para donizeth
    'do fórum MaximoAccess
    Dim Rst As DAO.Recordset, I As Integer
    Set Rst = CurrentDb.OpenRecordset("SELECT CampoNumeracao FROM Tabela;")

    I = 0
    Do While Not Rst.EOF
    I = I + 1
    Rst.Edit
    Rst(0) = I
    Rst.Update
    Rst.MoveNext
    Loop
    Set Rst = Nothing
    End Sub
    avatar
    SAPMM
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 365
    Registrado : 07/08/2011

    [Resolvido]Consulta criar tabela com campo de autonumeração Empty Re: [Resolvido]Consulta criar tabela com campo de autonumeração

    Mensagem  SAPMM em 31/7/2012, 17:11

    OK, revolvido.
    avatar
    CarlosAccess
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 25/03/2013

    [Resolvido]Consulta criar tabela com campo de autonumeração Empty Re: [Resolvido]Consulta criar tabela com campo de autonumeração

    Mensagem  CarlosAccess em 25/10/2013, 14:42

    Bom dia a todos, sou novo no Forum..
    Olá Alexandre Neves. Estou com a mesma dúvida, e acho que esse código servirá para mim. Mas onde executo esse código?
    avatar
    CarlosAccess
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 25/03/2013

    [Resolvido]Consulta criar tabela com campo de autonumeração Empty Re: [Resolvido]Consulta criar tabela com campo de autonumeração

    Mensagem  CarlosAccess em 25/10/2013, 14:57

    Obrigado, já consegui resolver aqui.

    Conteúdo patrocinado

    [Resolvido]Consulta criar tabela com campo de autonumeração Empty Re: [Resolvido]Consulta criar tabela com campo de autonumeração

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2019, 14:47