[Resolvido]Numeração com a mudança de ano

Tenho uma consulta (Processos) que dá origem a um formulário que tem, além de um campo de numeração autmática um outro campo que numera o processo tipo 000/Ano, através de um módulo.
Acontece que estava a abrir bem os processos de 2011, mas tive que inserir uns de 2010, manualmente e agora inicia-me a contagem no principio do ano, com o n.º 1, não dando para rectificar.
Pretendia uma ajudinha, pois já tenho muitos dados nesta base, que não queria perder, implementar o mesmo sistema, pois este é um pouco complexo e já é de 1999, Implementar o do JPaulo por exemplo que se encontra aqui no forum, mas gostaria que me indicassem como o fazer e os cuidados a ter, pois nã posso mesmo perder dados nenhuns.
Obrigado e agradeço antecipadamente.

Qual é o código empregado no processo?

Public Function ContadorDeRegistros(strCampo As String, strSql As String)
Dim strNum As String, db As Database
Dim strMax As String, CampoAno As String
Dim AnoData As String, tbl As Recordset

Set db = CurrentDb
AnoData = Year(Date)

Set tbl = db.OpenRecordset(strSql)
If tbl.RecordCount = 0 Then
ContadorDeRegistros = 1 & "/" & AnoData
Else
strMax = tbl(strCampo)
CampoAno = Mid(strMax, (InStr(1, strMax, "/")) + 1, 4)
If CampoAno = AnoData Then
strNum = Left(strMax, (InStr(1, strMax, "/") - 1)) + 1
ContadorDeRegistros = strNum & "/" & AnoData
Else
MsgBox "O sistema iniciará uma nova contagem dos registros" _
& vbCrLf & " em função da virada do ano", vbInformation, "ATENÇÃO"
ContadorDeRegistros = 1 & "/" & AnoData
End If
End If
ContadorDeRegistros = StrZero(ContadorDeRegistros, 10)
tbl.Close
Set db = Nothing
End Function

Public Function StrZero(nNumero As Variant, nCasas As Integer)
StrZero = Right("00" + LTrim(nNumero), nCasas)
End Function

Boa tarde, João

O código que indicou é insuficiente. Não dá para saber o argumento SQL.
Cumprimentos,

João

Se não quer perder dados e implementar o exemplo do mestre é simples:

Faça uma ou várias cópias da BD actual para não perder dados e depois use e abuse numa outra cópia a implementar o exemplo. Simples!

O resto do código é o que se segue:


Private Sub Form_BeforeInsert(Cancel As Integer)
'Escolha o melhor evento para incrementar o seu contador
On Error GoTo Sai
Call NumeraRegistros
Exit Sub
Sai:
MsgBox "Erro - " & Err.Description
End Sub


Private Sub NumeraRegistros()
Dim sql As String
sql = "SELECT idProcesso, NºProcesso"
sql = sql & " FROM Processos"
sql = sql & " ORDER BY IdProcesso DESC"
Me.Contador = ContadorDeRegistros("NºProcesso", sql)
End Sub

Novamente, João

Adaptando o código, parece-me que basta utilizar:
Private Sub NumeraRegistros()
Dim sql As String
sql = "SELECT idProcesso, NºProcesso"
sql = sql & " FROM Processos"
sql = sql & " ORDER BY Right(NºProcesso,4) DESC, IdProcesso DESC"
Me.Contador = ContadorDeRegistros("NºProcesso", sql)
End Sub

Experimente e retorne.
Cumprimentos

3 conselhos apenas:

1º Faça Backup
2º Faça Backup
3º Faça Backup

O código faz a numeração automatica e extraí o ano na data do seu computador.

Os processos de anos anteriores, pode incrementá-los e alterar a numeração manualmente.

Obrigado a todos foram todos bons conselhos, a alteração feita no sql pelo Alexandre deu o resultado que queria
Um abraço
e cumprimentos
Assunto resolvido

tinha-me esquecido do resolvido