[Resolvido]Gerar Protocolo

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

Sergio

Taí um exemplo

[ ]'s

Noob

Meu muito obrigado pela ajuda, totalmente resolvido!!!

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

Att.
SERGIO AMARO

Que bom que resolveu!

Valeu o retorno.

Boa sorte

Noob