MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3488
    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!
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3488
    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: Qua 13 Dez 2017, 16:45