[Resolvido]Reiniciar Numeração Automática

Bom dia!


Tenho um banco de dados para registros de protocolos de entrada, mas todo ano quando se inicia tenho que criar um nova tabela, pra a numeração comece do número um.

Gostaria de uma ajuda pra reiniciar a numeração automática, quando se termina o ano e automaticamente se crie uma nova tabela.

Alessandro

Aqui tem um exemplo de outros que tem no fórum.

[ ]'s

Este exemplo é muito bom.

É exatamente o que preciso, mas não encontrei o módulo, pra colocar na minha tabela.

Abra o exemplo segurando a tecla shift

Abra o formulário em modo design, no canto direito da janela no menu, clique em exibir código.

Entenda que além dos módulos básicos, cada formulário tem seu módulo de classe.

Show de bola.

Ficou dez.

Obrigado

Que bom que deu certo!

Valeu pelo retorno!

Boa sorte!

Bom dia!
Prezado Nobezinho, esse seu exemplo de numeração,
com certeza pode eme ajudar num projeto para um cliente
que temuma loja de consertos de eletrônicos, visto que ele gostaria  que
a numeração das O.S (ordens de serviço), reiniciassem a cada ano.
Porem 2 coisas ainda estão me deixando de cabeça quente.
1º não sei se você percebeu, mas ao mudar de ano, o sistema da um erro
e nao executa o código, a nao ser que o próximo ano ja exista na tabela.
A solução que encontrei foi deixar os proximos anos ja cadastraos, da seguinte forma:
0000/2016, 0000/2017,0000/2018 e assim por diante.
2º existe alguma possibilidade de gerar o ano somente com 2 digitos? ex.15-16-17
agradeço a atenção..

Há o erro e este aqui:
" Erro em tempo de execução"94" : Uso de "null" inválido."
mesmo tirando a chave primaria do campo o erro acontece.

Ney Santos

Ney

Estou verificando.
[ ]'s

Bom dia!
Obrigado por responder tão prontamente.
Eu fiz exatamente isso
Primeiro lancei e e beleza ele gerou o código.
Mas quando mudei o ano no cpu deu o erro que te falei.

Ok.
Sem problemas.

Ney

Substitua o código por esse:

Código:


Private Sub Nome_Dirty(Cancel As Integer)
'Se não for novo registro, então pode editar.
If Not Me.NewRecord Then
   Exit Sub
End If
If Me.RecordsetClone.RecordCount = 0 Then
' a tabela está sem registros
   Me.txtContador = Format("1", "0000") & "/" & Year(Date)
  
Else
    If DCount("*", "Clientes", "Right([contador],4) = " & Year(Date)) <> 0 Then
       Me.txtContador = Format(Left(DMax("[contador]", "Clientes", "Right([contador],4)= " & Year(Date)), 4) + 1, "0000") & "/" & Year(Date)
    
    Else
  
      MsgBox "Reiniciando contagem dos registros para o novo ano." _
             & vbCrLf & "No aplicativo, retire essa msgbox.", vbInformation, "Aviso"
      
      Me.txtContador = Format("1", "0000") & "/" & Year(Date)
  

   End If
End If


Eu atualizei o anexo do outro post.

Teste, por favor, eu testei eu não encontrei erros, mas

melhor outro testar

[ ]'s

Prezado Nobezinho, muito obrigado funcionou perfeitamente.
Quanto a segunda questão , e possível deixar o ano no formato 2 dígitos?

alguma ideia de comod eixar o ano so com 2 digitos?

Ney

Achei que tinha respondido

Onde tiver: Year(date)

substitua por:

Right(Year(Date), 2)

Opa.
Obrigado, boas festas pra voce.

Obrigado!

Igualmente a você e a tua família!

Boa sorte!