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

5 participantes

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

    avatar
    MSoccol
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  MSoccol 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
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 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.
    avatar
    MSoccol
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  MSoccol 25/4/2011, 20:29

    mas eu tenho como definir que comece no 200?
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 25/4/2011, 20:35

    Criando 199 números e fazendo delete a eles
    avatar
    MSoccol
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  MSoccol 25/4/2011, 20:42

    Descobri na ajuda da própria microsoft:

    http://office.microsoft.com/pt-pt/access-help/alterar-o-valor-inicial-de-um-campo-de-numeracao-automatica-mdb-HP005188774.aspx

    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
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 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
    Mriegel
    Mriegel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Mriegel 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.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 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
    avatar
    MSoccol
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  MSoccol 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
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 26/4/2011, 19:00

    Abraço e bom trabalho
    avatar
    Sander
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Sander 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
    avatar
    GilsonSoares
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  GilsonSoares 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: 3/12/2022, 06:40