Protocolo Zerando Diariamente

Olá Pessoal!

Dei uma vasculhada pelo fórum e google a fora e não consegui resolver este meu problema.

Estou construindo um formulário de atendimento e necessito gerar um protocolo para cada cliente que eu atender.

O protocolo deve ser um número sequencial que zera todos os dias. Por exemplo, toda vez que der meia-noite o próximo atendimento terá o número 001 e assim por diante.


Abraços!

Boa noite, helmac, e bem-vindo ao fórum
A numeração já foi abordada em várias situações. Veja um que muda conforme ano e adapte
http://maximoaccess.forumeiros.com/t2149-resolvidonumeracao-com-a-mudanca-de-ano

Olá Alexandre.

Este exemplo está bastante complicado para mim.
Infelizmente ainda sou iniciante no access.
Mas se você pudesse me explicar um passo a passo eu ficaria grato.


Abraços

Se precisa de ajuda para os seus dados, disponibilize-os

Estou fazendo um formulário para atendimento.

Este formulário precisa de um campo que, para cada atendimento, gere um número sequencial.
Este número será reiniciado diariamente às 0:00h.
O número será passado para o cliente acompanhado do horário.


Exemplo:

o décimo atendimento do dia, terá o protocolo 010.

Infelizmente não sei nem por onde começar este campo.

Anexe aqui em .zip parte do seu banco para o ajudar-mos.

Segue exemplo do que eu quero fazer.

O campo ocorrência é onde eu quero que seja gerado o número de protocolo para eu passar para o cliente.
Lembrando que este número deve zerar todos os dias as 0h.

Forte abraço!

Bom dia, helmac
Para atribuir numeração própria ao campo, tem de retirar a chave primária desse campo e retirá-lo como numeração automática.
No formulário , para que o código seja gerado correctamente, utilize o formulário apenas para inserção de dados, caso contrário, o código será gerado em registos alterados.
Deixe o controlo respectivo bloqueado para evitar mexidas pessoais.
Nomeie campos e controlos de forma normalizada.

No acontecimento AntesDeActualizar do formulário, coloque
TxtCodigo = DCount("*", "Principal", "DataAtendimento=#" & TxtDataAtendimento & "#") + 1

Bom dia Alexandre

Fiz o que você me orientou porém não deu certo.

Dá Erro em tempo de execução 3075
Erro de sintaxe na data na expressão de consulta
"DataAtendimento=#"

O código ficou assim:
Private Sub Form_BeforeUpdate(Cancel As Integer)
txtCodigo = DCount("*", "Principal", "DataAtendimento=#" & TxtDataAtendimento & "#") + 1
End Sub

Lembrando também que eu preciso que este campo zere diariamente.

Forte abraço!

Boa noite, helmac
Esse erro aparecerá por não ter ainda a data preenchida. Reveja e informe