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

    [Resolvido]Numeração automática personalizada

    avatar
    jachornung
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 12
    Registrado : 17/08/2020

    [Resolvido]Numeração automática personalizada Empty [Resolvido]Numeração automática personalizada

    Mensagem  jachornung Ter Mar 02, 2021 6:17 pm

    Olá pessoal!

    Preciso de ajuda com numeração automática personalizada. Eu tenho o seguinte formato de numeração:

    • VM-AAMM-XXX

    onde "VM" é fixo, nunca irá mudar; "AA" se refere ao 2 últimos dígitos do ano vigente; "MM" são 2 dígitos no mês vigente; e "XXX" é um número sequencial que deverá reiniciar ao início de cada novo ano.

    Para criar a numeração, estou utilizando um código que encontrei aqui no fórum. Porém não consegui fazer uma lógica que faça o que eu preciso, ou seja, verificar o "AA" e o "XXX" do último código cadastrado e, se "AA" for igual ao ano vigente, cria o novo código com "XXX" +1 (ex.: 002); se for diferente reinicia em 001.

    Segue abaixo o código que estou utilizando.

    Código:
        Dim lastcode As String
        Dim nextcode As Integer
        
        ano = Mid(Year(Date), 3, 2)
        mes = Format(Month(Date), "00")
        
        lastcode = Nz(DMax("NumeroVM", "tbl_RelatorioMontagem", "NumeroVM = '" & Me.NumeroVM.Value & "'"), 0)
        
        If IsNull(lastcode) Or lastcode = "" Or lastcode = "0" Then
            lastcode = "VM-" & ano & mes & "-001"
            Me.NumeroVM.Value = lastcode
            Else
            nextcode = Right(DMax("NumeroVM", "tbl_RelatorioMontagem", "NumeroVM = '" & Me.NumeroVM.Value & "'"), 3) + 1
            Me.NumeroVM.Value = "VM-" & ano & mes & "-" & Format(nextcode, "000")
        End If
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 440
    Registrado : 25/02/2016

    [Resolvido]Numeração automática personalizada Empty Re: [Resolvido]Numeração automática personalizada

    Mensagem  FranklinJSP Sex Mar 05, 2021 9:27 pm

    Boa noite Jacqueline!

    Em anexo

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    avatar
    jachornung
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 12
    Registrado : 17/08/2020

    [Resolvido]Numeração automática personalizada Empty Re: [Resolvido]Numeração automática personalizada

    Mensagem  jachornung Qua Mar 10, 2021 2:46 pm

    FranklinJSP, muito obrigada!!

    Funcionou perfeitamente!
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 440
    Registrado : 25/02/2016

    [Resolvido]Numeração automática personalizada Empty Re: [Resolvido]Numeração automática personalizada

    Mensagem  FranklinJSP Qua Mar 10, 2021 9:17 pm

    Que bom!!!

    lol! lol! lol!


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"

      Data/hora atual: Seg Jun 14, 2021 3:27 am