MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Reiniciar Numeração Automática

    Compartilhe

    coutsys
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 28/07/2014

    [Resolvido]Reiniciar Numeração Automática

    Mensagem  coutsys em Qui 17 Set 2015, 13:11

    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.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2502
    Registrado : 29/06/2012

    Re: [Resolvido]Reiniciar Numeração Automática

    Mensagem  Noobezinho em Qui 17 Set 2015, 13:41

    Alessandro

    Aqui tem um [Você precisa estar registrado e conectado para ver este link.] de outros que tem no fórum.

    [ ]'s


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    coutsys
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 28/07/2014

    Reiniciar Numeração Automática

    Mensagem  coutsys em Qui 17 Set 2015, 14:00

    Este exemplo é muito bom.

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

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2502
    Registrado : 29/06/2012

    Re: [Resolvido]Reiniciar Numeração Automática

    Mensagem  Noobezinho em Qui 17 Set 2015, 14:12

    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.


    Última edição por Noobezinho em Qui 17 Set 2015, 14:46, editado 1 vez(es)


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    coutsys
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 28/07/2014

    Reiniciar Numeração Automática

    Mensagem  coutsys em Qui 17 Set 2015, 14:15

    Show de bola.

    Ficou dez.

    Obrigado

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2502
    Registrado : 29/06/2012

    Re: [Resolvido]Reiniciar Numeração Automática

    Mensagem  Noobezinho em Qui 17 Set 2015, 14:46

    Que bom que deu certo!

    Valeu pelo retorno!

    Boa sorte!


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 23/05/2011

    Reinicio de numeração

    Mensagem  Ney Santos em Ter 15 Dez 2015, 11:12

    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

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2502
    Registrado : 29/06/2012

    Re: [Resolvido]Reiniciar Numeração Automática

    Mensagem  Noobezinho em Ter 15 Dez 2015, 11:23

    Ney

    Estou verificando. Wink
    [ ]'s


    Última edição por Noobezinho em Ter 15 Dez 2015, 11:52, editado 1 vez(es)


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 23/05/2011

    numeração

    Mensagem  Ney Santos em Ter 15 Dez 2015, 11:43

    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.

    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 23/05/2011

    numeração

    Mensagem  Ney Santos em Ter 15 Dez 2015, 12:46

    Ok.
    Sem problemas.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2502
    Registrado : 29/06/2012

    Re: [Resolvido]Reiniciar Numeração Automática

    Mensagem  Noobezinho em Ter 15 Dez 2015, 12:54

    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 Razz

    [ ]'s


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 23/05/2011

    Reinicio de numeração

    Mensagem  Ney Santos em Ter 15 Dez 2015, 13:53

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


    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 23/05/2011

    numeraçao

    Mensagem  Ney Santos em Qua 16 Dez 2015, 19:51

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

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2502
    Registrado : 29/06/2012

    Re: [Resolvido]Reiniciar Numeração Automática

    Mensagem  Noobezinho em Qua 16 Dez 2015, 20:41

    Ney

    Achei que tinha respondido Crying or Very sad

    Onde tiver: Year(date)

    substitua por:

    Right(Year(Date), 2)


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 23/05/2011

    Obrigado!

    Mensagem  Ney Santos em Qui 17 Dez 2015, 10:22

    Opa.
    Obrigado, boas festas pra voce.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2502
    Registrado : 29/06/2012

    Re: [Resolvido]Reiniciar Numeração Automática

    Mensagem  Noobezinho em Qui 17 Dez 2015, 21:07

    Obrigado!

    Igualmente a você e a tua família!

    Boa sorte! santa


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

      Data/hora atual: Qua 07 Dez 2016, 08:38