[Resolvido]Numeração sequencial após Atualizar

Boa tarde a todos!
Estou tentando colocar um numeração sequencial no form pagamento campo datapagamento, após atualizar colocar no campo Nrecibo o último número +1, mas porem com numero e ano com formato assim 0000\/0000
Como posso auterar.

On Error GoTo Trato
If Not IsNull(Me.Datapagamento) And IsNull(Me.Nrecibo) Then
Me.Nrecibo = Nz(DMax("[Nrecibo]", "[Pagamento]"), 0) + 1
End If
Exit Sub
Trato:
MsgBox Err.Description

Olá Sebastião


Veja esse exemplo.

[]'s

Noob

valeu
Fiz umas modificações e coloquei após atualizar

Muito abrigado e feliz 2015.

Que bom que deu certo !

Valeu o retorno!

Feliz 2015 pra você também!


Noob

Boa Tarde e Feliz 2015 Para Todos

No Exemplo que me indicou ao passar de um ano para outro ele repete 0001/2015 duas vezes como o campo não aceita duplicação cancela o registro, se troco a segundo que duplicou 0001/2015 para 0002/2015 ai a sequencia continua.

O que fazer.

Sebastião

Fiz teste no exemplo aqui, e está funcionando como deve.

Verifique se não mudou algo acidentalmente no código.

deixe um registro na tabela com o ano anterior
então acrescente um novo registro.
e então acrescentou um outro registro para ver se a inclementação acontece com o ano atual.


[]'s

Noob

Você colocou algumas sequencias de 2014 e depois continuou ou começou em 2015

Sebastião

Você está correto

Para não sobrecarregar o servidor do fórum, peço para
fazer novo download do arquivo naquele LINK novamente.

Obrigado pro avisar

Feliz 2015


Noob

Noob
Agora ficou 10

Ate na tabela em qualquer posição que lança pega o último que lançou.

Agora como colocar este código em após atualizar de um campo data para pagamento para gerar número de recibo.

Pode me ajudar

Deve manter no evento que coloquei

Veja, o evento após atualizar é usado para quando o controle já tem um dado dentro dele, ou seja, vc digitou o dado no controle
e quando apertou enter ou foi pra outro controle ele irá ativar esse evento.
Se fizer isso com esse código irá dar erro, porque o controle está vazio.
Da forma que está , veja que o campo código está em branco e quando começa a digitar o nome do cliente no caso,
o código busca o ultimo registro e soma mais um para colocar nesse controle.
Acredito que esse recibo será digitado, caso seja automatico, explique como fará isso para eu poder ver onde
pode se colocar esse código.

Noob

Já Consegui
Recortei e coloquei em após atualizar e em após alterar, deu certo.

Muito obrigado pela ajuda.

Valeu

Ótimo então

So faltou o resolvido

Boa sorte e feliz 2015


Noob

Como bloquear o campo após atualizar, só o atual

coloque o foco no controle seguinte e então bloqueie esse:

me.NomedoControleSeguinte.Setfocus
me.Codigo.Enabled = true ' o contole ficará esmaecido

Noob

Deu certo

Obrigado