[Resolvido]Numero de protocolo com data do dia mais uma numeração automática sequencial que no dia seguinte recomece por "001"

Boa tarde.
Preciso de uma sugestão para resolver esta minha ideia.
Queria uma numeração de protocolo formada pela data, exemplo:

Me.FrmData = Format(Date, "yyyymmdd") & "." & Format(Time, "hhmm")

seguida pela numeração sequencial  e no dia seguinte recomece por "001"

Exemplo:

20210615.0810.001
20210615.0911.002
20210615.1025.003
20210615.1231.004

o dia seguinte:

20210616.0801.001
20210616.0924.002
20210616.0955.003
etc.


Muito Obrigado....

Olá Roberto,

Já tentou a "Busca" aqui do fórum, veja como fazer:
https://www.maximoaccess.com/t1115-busca-no-forum-search

Veja, será ajustar:
https://www.maximoaccess.com/t6231-resolvidonumeracao-automatica-personalizada
https://www.maximoaccess.com/t12852-resolvidonumerador-de-acordo-com-o-ano-problemas-com-duplicacao

Abraço

Olá Teixeira.
Obrigado pela resposta.
Encontrei, nos links sugeridos, um código do JPaulo que consegui adaptar as minhas necessidades, mas o problema que estou encontrando acho seja por causa do meu campo data.
Vou tentar formatando-o num campo numérico.
Em baixo o código do JPaulo:


Seguindo o raciocínio deste tópico, é só adicionar o DoCmd.RunCommand acCmdSaveRecord após as instruções IF

Código:

Private Sub Command7_Click()
   DoCmd.OpenForm "SeuSegundoFormulario", acNormal
   DoCmd.ApplyFilter "Forms!SeuSegundoFormulario" = Me.CodAbastecimentoMelosa.Value
End Sub




Private Sub Equipamento_AfterUpdate()
Dim numeroencontrado As String, proximoNumero As Integer
'By JPaulo :registered: Maximo Access
'encontrar o ultimo numero na tabela
numeroencontrado = Nz(DMax("CodAbastecimentoMelosa", "ABASTECIMENTOMELOSA", "[Equipamento] = " & Me.Equipamento.Value), 0)
   If IsNull(numeroencontrado) Or numeroencontrado = "" Or numeroencontrado = "0" Then
   'se não existir numeração, insere o equipamento + 001 para iniciar
       numeroencontrado = Me.Equipamento.Value & "-" & "001"
   'devolve ao campo a nova numeração
       Me.CodAbastecimentoMelosa.Value = numeroencontrado
       DoCmd.RunCommand acCmdSaveRecord
   Else
   'se já existir numeração na tabela, acrescenta +1
       proximoNumero = Right(DMax("CodAbastecimentoMelosa", "ABASTECIMENTOMELOSA", "[Equipamento] = " & Me.Equipamento.Value), 3) + 1
   'devolve ao campo a nova numeração
       Me.CodAbastecimentoMelosa.Value = Me.Equipamento.Value & "-" & Format(proximoNumero, "000")
       DoCmd.RunCommand acCmdSaveRecord
   End If
End Sub

Olá Roberto,

Talvez seja melhor partilhar a base de dados com a tabela envolvida na questao e o formulario onde pretende usar a numeracao para se veirifcar.
Detsa forma fica mais facil para qualquer membro ajuda (e poder testar)

Abraco

Ok Teixeira.
Aqui está o banco para o teste.
Obrigado.

Olá Roberto,

É simples de fazer!
A numeração sequencial muda na virada do dia, verificando sempre a ultima data.
Se a data atual for maior que a data do ultimo protocolo, então inicia a nova numeração.

Vou criar uma rotina no modelo que você enviou.

OBS: A data e a hora devem ser automáticas, correto?


Ate +

[]'s

FIM

Olá Alexandre.
Na realidade horas e minutos não são necessarios, pois poderiam ser visualizados num outro campo.
O formato no exemplo seria otimo:

20210616-001
20210616-002


Valeu!

Sim....a data deve ser automatica.

Ok...beleza

VAleu

Roberto,

Para não descaracterizar o que vc desenvolveu, eu criei uma tabela e um form novo.  Ficou assim:


Segue versão do sistema para sua análise.

Espero ter ajduado.

[]'s

FIM

Esta é a diferença entre um developer e um intermediário.

Alexandre, você fez um trabalho ótimo, resolveu rapidinho o assunto e criou também um formulário que não esperava.


Mais uma vez,

“Muito Obrigado”


"Generosidade é dar mais do que você pode, e orgulho é receber menos do que você precisa."
                                                                                                                                         Khalil Gibran

Roberto,

Eu fiz tudo via código VBA e também não comentei o que cada rotina faz.
Procure estudar e entender o que cada rotina faz.

Valeu, Roberto.
O fórum agradece.

Boa sorte

[]'s

FIM

Olá a todos,

Além da solução do nosso colega Alexandre Fim também ficou demonstrado a importancia em disponibilizar exemplo da parte envolvida na questão.
Roberto com o MaximoAccess em pouco tempo passa a Developer.
Deve efetivamente compreender o que o colega fez e como.

Abraço a todos

Grande Mestre ahteixeira,

Com certeza, nosso amigo Roberto será um developer assim como qualquer outro membro do fórum.
Tudo depende da dedicação, paixão e determinação em resolver os desafios.

[]'s


FIM

Eu fui realmente surpreendido quando me promoveram intermediário, não por falsa modéstia, mas porque realmente percebo os grandes limites do meu conhecimento, é por isso, querido Teixeira, que considero o titulo de developer  bastante inapropriado, estou chegando próximo aos 70, assim visão e memoria não ajudam nos estudos.

Agradeço e parabenizo todos os membros deste importante forum que diariamente proporcionam conhecimento de graça e sobretudo de ótima qualidade, duas condições que normalmente se desconhecem e que quando raramente se encontram viram a cabeça do outro lado.

Um forte abraço a todos....