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


3 participantes

    [Resolvido] Zerar numeração automatica a cada ano

    kleyton_mendes
    avatar
    kleyton_mendes
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 28/03/2011
    • Mensagem nº1

    [Resolvido] Zerar numeração automatica a cada ano Empty [Resolvido] Zerar numeração automatica a cada ano

    Mensagem  kleyton_mendes 29/3/2011, 13:32

    Bom dia a todos,

    Tenho um BD que preciso que quando virar o ano ele automaticamente comece a numeração automatica de todas a tabelas.

    Existe essa possibilidade?

    Grato novamente por todo apoio

    Kleyton


    Última edição por kleyton_mendes em 30/3/2011, 13:32, editado 3 vez(es)
    • Ir para o topo
    criquio
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009
    • Mensagem nº2

    [Resolvido] Zerar numeração automatica a cada ano Empty Re: [Resolvido] Zerar numeração automatica a cada ano

    Mensagem  criquio 29/3/2011, 13:40

    E os registros anteriores? Serão excluídos? Caso a resposta seja sim, basta fazer o backup e compactar/reparar. Caso contrário, você precisará incluir o ano ao número. Por exemplo 2011-0001, 2011-0002 ou 0001-2011, 0002-2011. Já existe tópico resolvido sobre esse assunto no forum. Dê uma olhada.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br
    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.
    • Ir para o topo
    vieirasoft
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010
    • Mensagem nº3

    [Resolvido] Zerar numeração automatica a cada ano Empty Re: [Resolvido] Zerar numeração automatica a cada ano

    Mensagem  vieirasoft 29/3/2011, 13:47

    http://maximoaccess.forumeiros.com/t1966-resolvidonumeracoes-automaticas-e-sequenciais-com-reset-na-mudanca-de-ano
    • Ir para o topo
    kleyton_mendes
    avatar
    kleyton_mendes
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 28/03/2011
    • Mensagem nº4

    [Resolvido] Zerar numeração automatica a cada ano Empty Re: [Resolvido] Zerar numeração automatica a cada ano

    Mensagem  kleyton_mendes 29/3/2011, 14:31

    Senhores utilizei esse codigo conforme o outro topico mas ele esta dado um erro de compilação, era esperado o fim da instrução
    no ponto grifado em verde:

    Private Sub Codigo__Enter()
    If DCount("*", "Cenipa 15") = 0 Or DMax(Left("Codigo", "Cenipa 15"), 4) < Year(Date) Then
    Me.Codigo = Year(Date) & "/" 0001
    Else
    Me.Codigo = Year(Date) & "/" & DMax(Right("Codigo", "Cenipa 15"), 4) + 1
    End If
    End Sub

    Grato novamente pela ajuda de todos

    Kleyton
    • Ir para o topo
    criquio
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009
    • Mensagem nº5

    [Resolvido] Zerar numeração automatica a cada ano Empty Re: [Resolvido] Zerar numeração automatica a cada ano

    Mensagem  criquio 29/3/2011, 15:07

    Me.Codigo = Year(Date) & "/" & "0001"


    .................................................................................
    Meu novo site: www.vcssistemas.com.br
    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.
    • Ir para o topo
    kleyton_mendes
    avatar
    kleyton_mendes
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 28/03/2011
    • Mensagem nº6

    [Resolvido] Zerar numeração automatica a cada ano Empty Re: [Resolvido] Zerar numeração automatica a cada ano

    Mensagem  kleyton_mendes 29/3/2011, 15:15

    Grande Criquio novamente obrigado
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº7

    [Resolvido] Zerar numeração automatica a cada ano Empty Re: [Resolvido] Zerar numeração automatica a cada ano

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 21/11/2024, 23:48