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] Definir início de numeração automática

    Compartilhe

    MSoccol
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 24/03/2011

    Definir início de numeração automática

    Mensagem  MSoccol em 25/4/2011, 20:22

    Boa tarde, tenho um projeto que utiliza um campo de numeração automática. No entanto como estou implementando o sistema agora, gostaria que a contagem começasse no 200, para que futuramente sejam inseridos os registros anteriores, com as numeraçoes de 1 a 200. É possível definir essa valor do início?

    Outra dúvida é quanto a registros excluídos, para que o número excluído nunca seja repetido, mesmo após reparar e compactar o banco de dados.

    Era isso, obrigado
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7141
    Registrado : 11/05/2010

    Re: [Resolvido] Definir início de numeração automática

    Mensagem  vieirasoft em 25/4/2011, 20:24

    Não meu amigo. Numeração automática é sequencial, logo se começar no 200 vai avançar sempre sem retroceder. Se copiara tabela para uma nova vai sempre iniciar no 1.

    MSoccol
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 24/03/2011

    Re: [Resolvido] Definir início de numeração automática

    Mensagem  MSoccol em 25/4/2011, 20:29

    mas eu tenho como definir que comece no 200?
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7141
    Registrado : 11/05/2010

    Re: [Resolvido] Definir início de numeração automática

    Mensagem  vieirasoft em 25/4/2011, 20:35

    Criando 199 números e fazendo delete a eles

    MSoccol
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 24/03/2011

    Re: [Resolvido] Definir início de numeração automática

    Mensagem  MSoccol em 25/4/2011, 20:42

    Descobri na ajuda da própria microsoft:

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

    Basta criar uma tabela um campo número inteiro e logo e valor ([número desejado] -1)

    Daí cria-se uma consulta acréscimo para adicioar o valor do campo da tabela temporário a tabela com a numeração automática

    Após isso o access sempre irá adicionar uma unidade na numeração automática.

    Obrigado
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7141
    Registrado : 11/05/2010

    Re: [Resolvido] Definir início de numeração automática

    Mensagem  vieirasoft em 25/4/2011, 20:45

    Procurando a gente encontra, mas atençaõ que esse método nem sempre bate certo e pode originar erros. De qualquer forma tente. Na minha opinião era usar um tipo de numeração independente da numeração automatica
    avatar
    Mriegel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 22/01/2011

    Re: [Resolvido] Definir início de numeração automática

    Mensagem  Mriegel em 25/4/2011, 22:52

    Também tive problemas com a utilização automática. Sugiro que faças conforme o colega Vieira está indicando, para evitar problemas no futuro.
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7141
    Registrado : 11/05/2010

    Re: [Resolvido] Definir início de numeração automática

    Mensagem  vieirasoft em 26/4/2011, 17:13

    Tem aqui exemplo:

    Função contador simples com SQL

    Public Function Contador(strCampo As String, NomeTabela As String) As Long
    Dim strSQL As String, rkt As DAO.Recordset
    strSQL = "SELECT Max" & "(" & strCampo & ")" & " As MaxValor"
    strSQL = strSQL & " FROM " & NomeTabela
    Set rkt = DBEngine(0)(0).OpenRecordset(strSQL, dbOpenForwardOnly)
    Contador = Nz(rkt("MaxValor")) + 1
    rkt.Close: Set rkt = Nothing
    End Function

    Para chamar a função, no evento do antes de inserir do seu formulário:

    Me.MeuCampo = Contador("SeuCampoContador", "SuaTabela")

    Para chamar a função, no evento corrente do seu formulário:

    Private Sub Form_Current()
    'Se está em um novo registro gera o número de serie
    If Me.NewRecord Then
    Me.SeuCampoContador = ContadorSimples("SeuCampo","SuaTabela")
    End If
    End Sub

    MSoccol
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 24/03/2011

    Re: [Resolvido] Definir início de numeração automática

    Mensagem  MSoccol em 26/4/2011, 18:02

    Obrigado Pessoal. Ficarei atento a este aspecto, mas como meu banco não é tão complexo acredito que a numeração automática possa funcionar.

    Até mais
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7141
    Registrado : 11/05/2010

    Re: [Resolvido] Definir início de numeração automática

    Mensagem  vieirasoft em 26/4/2011, 19:00

    Abraço e bom trabalho

    Sander
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 16/04/2013

    Re: [Resolvido] Definir início de numeração automática

    Mensagem  Sander em 23/5/2013, 23:30

    Prezado VieiraSoft,

    Aproveitando o código que postou para numeração automática de um campo, como eu poderia fazer para, ao chamar a função, a numeração sempre se iniciar com o número 1?

    Obrigado

    Sander

    GilsonSoares
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 18/07/2015

    Re: [Resolvido] Definir início de numeração automática

    Mensagem  GilsonSoares em 19/10/2016, 03:15

    Eu sugiro que você faça como o amigo Vieira disse
    para facilitar sua vida e evitar possível erro vá ao excel
    e digite
    1
    2
    3
    cada numero em uma célula, selecione tudo, posicione o cursor no canto inferior direito da célula 1, clique segure e arraste até o numero que vc quer
    copia e cola na coluna da sua tabela
    salve, sua alteração no access e tente cadastrar e vc vai ver que vai começar a partir do numero que vc colocou
    você pode apagar tudo que ele começará do numero que vc parou.

    mas se você compactar e reparar o banco de dados o campo numeração volta ao 1


    espero ter ajudado

      Data/hora atual: 23/10/2018, 15:27