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]Numeração Ano a partir de 1000 não gera

    Compartilhe

    AQA Web Designer
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 20/08/2012

    [Resolvido]Numeração Ano a partir de 1000 não gera

    Mensagem  AQA Web Designer em Ter 27 Set 2016, 19:31

    Boa tarde a todos,
    utilizo o código do nosso mestre J. Paulo:
    Entretanto chegou na quantidade de registro 1000 e agora não consigo gerar além desses, alguém pode me ajudar?
    Código:
    Public Function NumeracaoAno() As String
    'By JPaulo@2009
    Dim i As Integer
    Dim fazcodigo(1) As Integer, temporario As Integer
    fazcodigo(1) = Nz(DMax("Left(NumeroLs),3", "tbLimiteSuperior", "Right(NumeroLs,4)=Year(Date())"), 0)
       For i = 1 To UBound(fazcodigo)
           If temporario < fazcodigo(i) Then temporario = fazcodigo(i)
       Next
    NumeracaoAno = Format(temporario + 1, "000") & "/" & Year(Date)
    End Function

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2307
    Registrado : 14/08/2013

    Re: [Resolvido]Numeração Ano a partir de 1000 não gera

    Mensagem  FabioPaes em Ter 27 Set 2016, 20:20

    Mude essa linha:

    fazcodigo(1) = Nz(DMax("Left(CodigoControle,4)", "tblExemplo", "Right(CodigoControle,4)=Year(Date())"), 0)


    Veja que mudou de 3 para 4


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    AQA Web Designer
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 20/08/2012

    Numeração Ano a partir de 1000 não gera

    Mensagem  AQA Web Designer em Qua 28 Set 2016, 13:17

    Bom dia amigo,
    Desculpe-me, funfou direitinho.
    Obrigado FabioPaes!

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2307
    Registrado : 14/08/2013

    Re: [Resolvido]Numeração Ano a partir de 1000 não gera

    Mensagem  FabioPaes em Qua 28 Set 2016, 16:12

    Grato pelo Retorno! e Até a Próxima de Deus quiser!


    Não esquece de Marcar o Tópico como RESOLVIDO


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    AQA Web Designer
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 20/08/2012

    Re: [Resolvido]Numeração Ano a partir de 1000 não gera

    Mensagem  AQA Web Designer em Qua 28 Set 2016, 17:24

    Valeu!!!

      Data/hora atual: Seg 05 Dez 2016, 16:33