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]Gerar Protocolo

    Compartilhe

    SergioAmaro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 30/05/2012

    [Resolvido]Gerar Protocolo

    Mensagem  SergioAmaro em Ter 03 Mar 2015, 00:02

    Pessoal, boa noite!!!

    Estou com um probleminha....quero gerar um número de protocolo a partir de uma data digitada manualmente, sendo:
    Ex.: 2015030200001, onde 20150302 é a data digitada e o restante dos números é a sequencia (1, 2, 3 etc)

    Num primeiro momento o código funciona, porém ao jogar um mês diferente, o sistema segue a numeração do mês anterior. Por exemplo: Digitei, 02/03/2015 , gera o protocolo 201503020001. Ao digitar uma nova data, por exemplo: 02/10/2016, ela gera o seguinte protocolo: 201503020002, ou seja, muda apenas a sequencia, sendo que a resposta correta seria: 201610020002.

    Vcs podem me ajudar???? Obrigado!!!!



    Private Sub Data_de_Entrada_LostFocus()

    Dim UltNum As Variant

    UltNum = DMax("[num_controle]", "Cadastro_Principal")

    If IsNull(Me.Num_Controle) Then
     If IsNull(UltNum) Then
        Me.Num_Controle = Format$([Data_de_Entrada], "yyyymmdd") & "0001"
    Else
       
        Me.Num_Controle = UltNum + 1
         
    End If

    End If
     
    End Sub

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Gerar Protocolo

    Mensagem  Noobezinho em Ter 03 Mar 2015, 01:03

    Sergio

    Taí um exemplo

    [ ]'s

    Noob

    SergioAmaro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 30/05/2012

    Obrigado!!!!

    Mensagem  SergioAmaro em Ter 03 Mar 2015, 22:54

    Meu muito obrigado pela ajuda, totalmente resolvido!!!

    Vocês são demais....um grande abraço e fique com Deus...

    Att.
    SERGIO AMARO

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Gerar Protocolo

    Mensagem  Noobezinho em Qua 04 Mar 2015, 00:08

    Que bom que resolveu!

    Valeu o retorno.

    Boa sorte

    Noob

      Data/hora atual: Ter 22 Maio 2018, 05:30