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
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
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