[Resolvido]Numerador de acordo com o ano.

Boa tarde

Tenho um BD no qual tenho utilizado o numerado automatico de acordo com este tópico:

http://maximoaccess.forumeiros.com/t3034-resolvidonumeracao-automatica-muda-de-ano

Tem funcionado perfeitamente, porém tenho uma necessida e gostaria da ajuda dos mestres.

O sistema de numeração hoje numera colocando 0001 / e o ano atual exemplo 0001/2012, porém se tenho que lança um dado retroativo com data de 2011 ele numera 2012, assim sendo pergunto se existe a possibilidade de o sistema numerar a parte do ano de acordo com o ano constanto no campo data da form?

Se lançar um dado com o campo data 13/12/2012, seria 0001/2012

Se lançar 13/11/2011, seria 0001/2011.

E para ser mais abusado pergunto se esta numeração poderia se indenpendente, exemplo, se pós lançar uma informação de 2012, assumindo o numero 0001/2012, eu lance um dado 2011, e não ocorre - se de ele numera 0002/2011 e sim 0001/2011, tendo a numeração dos anos indenpendete, ou seja sequencia do numerador seja de acordo com o ano.

Grato novamente.

Kleyton

Vai ter de alterar o código e trazer o Ano com a função Right(seucampodata,4)

Bom dia Mestre JPaulo

Quanto tempo...

Muito obrigado pela atenção... podes me ajudar nesta situação??

Aplico isto no modulo??

Grato

Amigão, depende.

Se preferir anexar aqui o seu banco ou parte dele para nós vermos, daremos uma ideia mais concreta de como fazer.

Obrigado novamente JPaulo, sempre solicito quando nós leigos precisamos.

Segue um exemplo resumido do BD.

Abraços

Kleyton

Neste momento estou meio sem tempo, mas faça o teste assim;

Altere este trecho no código;

AnoData = Format(Forms!SeuFormulario!SeuCampoData, "yyyy")

No modulo?

Faça deste jeito:

Além de alterar o que lhe passei acima no código do modulo, altere também no Sub para:

Private Sub NumeraRegistros()
'Para um contador de registros personalizado ser eficiente
'você deve introduzir um campo autonumeração na sua tabela só
'para facilitar a busca do ultimo registro. Ele pode ficar oculto.
'Note que eu passo uma sql para a função em ordem decrescente e o
'nome do campo que eu quero incrementar a contagem.
Dim sql As String
    sql = "SELECT ContadorAccess, Contador2"
    sql = sql & " FROM Vazamento"
    sql = sql & " WHERE Right(contador2,4)= '" & Right(Forms!frmVazamento!txtData, 4) & "'"
    sql = sql & " ORDER BY ContadorAccess DESC"
    Me.Contador2 = ContadorMudaDeAno("contador2", sql)
End Sub

Em .rar
https://dl.dropbox.com/u/771097/kleyton_OLD.rar

Em .zip

Obrigado novamente JPaulo.

Uma dúvida no caso se eu quiser aplicar isto a varias forms que tenho no BD alguma alteração?

Intão, cada form com o seu código e sua numeração.

Tem de mudar o Forms!frmVazamento!txtData

No caso colocaria a referencia seria dentro deste codigo?

exemplo:

AnoData = Format(Forms!frmVazamento!txtData, forms!fmroutro!txtdata, forms!fmroutro2!txtdata, "yyyy")

Negativo;

Veja dois formularios a acessarem à mesma tabela e numeração;

JPaulo Perfeito...

Muito obrigado mesmo.

Abraços

Kleyton

Obrigado pelo retorno o forum agradece.