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

    Respeito às Regras 100%

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

    Re: [Resolvido]Gerar Protocolo

    Mensagem  Noobezinho em Ter 03 Mar 2015, 01:03

    Sergio

    Taí um exemplo

    [ ]'s

    Noob
    Anexos
    Protocolo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 50 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 .

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    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


    .................................................................................
    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 28 Jun 2017, 22:04