[Resolvido]Número de Recibo x Numeração Automática

Bom dia

Estou finalizando um sistema para clínica médica. Tenho uma tabela em meu sistema chamada tb_Agenda, com todos os agendamentos de consultas......, de todos os profissionais da clinica, até aqui, tudo bem. O que ocorre é que, alé de atendimentos por convênios, a clinica atende particular e para consultas particulares, gera-se o recibo de pagamento. A miha dificuldade é que, na minha tabela de agendamentos, tenho o Id_Agendamento (tipo autonumeracao do acces) e tenho um campo chamado NUM_REC - tipo texto, ao qual preciso gerar uma numeração automática para que, se a consulta for particular, armazene-se o numero do recibo. Pesquisei no repositório e em outros foruns, mas não encontrei algo que possa me basear. Alguém tem alguma sugestão/dica?

Att. Vinicius

Sim, tenho um flag para indicar se a consulta particular vai gerar ou não o Recibo. O detalhe que me esqueci de mencionar é que: a partir deste flag que indica se o recibo será gerado ou não, faço uma consulta para localizar apenas os recibos a serem gerados e chamo um formulário chamado frm_Recibo, baseado em tal consulta....., neste momento é que preciso gerar o recibo...., tentei usar vossa dica, mas não consegui......

Não, ele está baseado na própria tabela agenda, onde na mesma tenho um campo chamado numero do recibo (num_rec).

Bom dia

Desculpe a demora do retorno, tive de me ausentar, mas o Flag é um campo do tipo sim/não....., já tentei usar uma rotina no evento após atualizar deste campo para gerar a autonumeração e não consegui.....

Boa tarde

Perfeito Amigo, muito obrigado pela dica, funcionou perfeitamente. Tenho apenas mais uma dúvida, com este código, é possível agregar o ano junto ao número do recibo, exemplo: 00001/2012 e na virada do ano reiniciar a contagem?

Compreendi, mas como eu faria para no próximo ano reiniciar a numeração?

Ótimo, deu certo, tenho o campo Num_Rec - número, inteiro logo e criei o campo Num_Rec_Data - tipo texto, onde com sua dica, gravo o número do recibo+ano.

O campo num_rec, gravo assim: 000001, 000002, etc
o campo num_rec_data: 1/2012, 2/2012.....

Tem alguma forma para que eu possa gravar com o formato 000001/2012, 000002/2012?

Bom dia

Obrigado por sua dica, com ela, consegui criar a autonumeração como desejava. Muito obrigado. Se conhecer algum código ou tiver alguma dica a qual possa aplicar para que a cada mês a numeração reinicie, te agradeço.

Att. Vinicius

Veja este exemplo que zera a numeração conforme muda o Mês;

http://dl.dropbox.com/u/771097/Contador%20retorna%20a%20zero%20se%20muda%20M%C3%AAs.rar

E ae ? Serviu ?

Bom dia amigo JPaulo

Desculpe a demora, mas estou me recuperando de uma cirurgia e estou trabalhando acamado e somente hoje consegui voltar ao projeto....., o código que disponibilizou é perfeitamente o que preciso e te agradeço por disponibilizá-lo. Tentei usá-lo da seguinte forma:

Tenho um flag que indica que a consulta gerará recibo ou não, no evento após atualizar deste flag, coloquei o código:

Private Sub Lista_Recibo_AfterUpdate()
If Me.Lista_Recibo.Value = -1 Then
On Error GoTo Sai
Call NumeraRegistros
Exit Sub
Sai:
MsgBox "Erro - " & err.Description
Else
Me.RecGerado.Value = "NÃO"
Gravar.SetFocus
Exit Sub
End If
End Sub

Inclui no mesmo form a função numera registros e importei o módulo....., quando tento incluir uma nova consulta que gerará o recibo tenho a mensagem:

- Erro - Uso de 'Null' inválido.....

tem alguma dica para eu tentar resolver o problema?

Att. Vinicius

O campo da numeração não pode iniciar vazio, tem de ter um valor por defeito na tabela.

Veja como reproduzi o seu exemplo;

http://dl.dropbox.com/u/771097/Contador%20retorna%20a%20zero%20se%20muda%20M%C3%AAs_II.rar

Boa tarde JPaulo

Obrigado, é isto mesmo, meu campo estava sem valor Default e ai causava o erro, apliquei o código e o número é gerado....., porém, incluo um novo agendamento, indicando que o recibo será gerado...., gera-se o código 00001/02/2012 - quando incluo um novo agendamento, dentro do mesmo mês, o código gerado é o mesmo.......

Desculpe incomodar, mas realmente não consegui fazer com que a geração do número siga a sequencia, não sei se é porque meu form de agendaento está baseado em uma consulta......, a cada nova inclusão, dentro do mesmo mês tenho a mensagem - O sistema iniciará uma nova contagem dos registros em função da virada do Mês, mesmo quando, por exemplo, agendei uma consulta em 02/02/2011, gravei, e crio uma nova consulta em 02/02/2011. Tem ideía de algo em que eu possa estar errando?

No exemplo que eu lhe passei funfa direitinho quando pisca na checkbox.

No seu não consigo ver mesmo, a minha bola de cristal já se partiu, que postar o seu banco ou parte dele ?

Muito Obrigado amigos JPaulo e Norbs...., depois de muita insistência vi o que precisava fazer para resolver portanto está resolvido.

Um bom dia.....