Como Gerar Um número de Protocolo ou Ordem de serviço para um TextBox

Olá pessoal estou uma dúvida imensa, eu tenho um sistema de registros, e gostaria que o mesmo me retornasse um número de protocolo, pois serviria para finalização do meu registro.

Gostaria de preferência que os comandos pelo menos inicia-se com 2016. e que eu pudesse ao menos multiplicar ficando assim:

Ex: 2016001025463    Ou    OS:20160008543


Como realizo um procedimento para que possa criar estes números automaticamente para cada novo registro efetuado. Bom eu Tenho uma data de ocorrência em um outro textBox e gostaria que a data da ocorrência fosse uma variável para exibição do protocolo.

para cada novo registro e para cada nova data o número do protocolo alterasse continuamente.

So pra complementar a resposta a cima...


Amigão, seguindo essa logica, vc pode ficar a vontade e criar seu proprio codigo... Veja uma ideia,

Me.CodProtocolo = Format(DataServico, "yyyy") & (Me.[Código] & Format(Now, "mmss") * 5) + 2

Pega o Ano(2016),o Codigo (1), os minutos e segundos e multiplica por 5 (0530*5)05min 30seg e ao final soma mais 2.

Claro, essa é so pra lhe dar ideias de como pode fazer...

Claro, se quer algo mais elaborado, veja esse modulo que cria codigos Alfanumericos de 24 Caracter (com os que vc escolher) Essa funcção e daqui mesmo site...



*** Gerar codigo Aleatório AlfaNumericos de 24 Caracter:

Criar um Modulo e colcar:

'-----------------------Inicio da Função---------------------------------'

Function Autentica() As String
alfanumerico = "ABCDEFGHIJKLMNOPQRSTUVXZYW1234567890abcdefghijklmnopqrstuvxzyw*/+-@#$%&"
For I = 1 To 24

Randomize
X = Int(Rnd * Len(alfanumerico)) + 1
If InStr(1, sequencia, Mid(alfanumerico, X, 1)) Then
I = I - 1
Else
sequencia = sequencia & Mid(alfanumerico, X, 1)
End If
Next
Autentica = sequencia
End Function

'-----------------------Fim------------------------------------------------'


Para Chamar a Função em campo do Formulario:

=Autentica()

Para aplicar o valor a um campo pelo VBA:

Me.NomeCampo = Autentica()

Bom dia!

Muito bem Fabio, bem colocado.

Att; Sidney

Os comandos que vocês me enviaram tentei mais não consegui, devo estar fazendo algo de errado. Porém gostaria se tive-se como alguém postar um exemplo bem básico através de vídeo para que eu possa ir acompanhando.



Desde já estou enviando o meu trabalho para que vocês possam me ajudar a esclarecer mais está dúvida que me atormenta a um certo tempo.


Obrigado pessoal.



Whatsapp (82) 98882-1133
E-mail: williamsrodrigues2013@gmail.com

fabio boa noite esse seu não esta dando certo , pode mandar anexo?