MaximoAccess

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

Obrigado

Administração do MaximoAccess


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.

Obrigado

Administração do MaximoAccess

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

    avatar
    SergioAmaro
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Gerar Protocolo Empty [Resolvido]Gerar Protocolo

    Mensagem  SergioAmaro 3/3/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
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Gerar Protocolo Empty Re: [Resolvido]Gerar Protocolo

    Mensagem  Noobezinho 3/3/2015, 01:03

    Sergio

    Taí um exemplo

    [ ]'s

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    avatar
    SergioAmaro
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Gerar Protocolo Empty Obrigado!!!!

    Mensagem  SergioAmaro 3/3/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
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Gerar Protocolo Empty Re: [Resolvido]Gerar Protocolo

    Mensagem  Noobezinho 4/3/2015, 00:08

    Que bom que resolveu!

    Valeu o retorno.

    Boa sorte

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...

      Data/hora atual: 7/3/2021, 02:25