Access - Como se puede hacer esto

Hola foro acudo a ustedes para ver como me pueden ayudar con este problema, tengo un cliente el el cual tengo instalada un aplicacion y que utiliza un modulo con un conatdor el cual funciona muy bien arrogandome elo siguiente numero :

Diciembre 0001
Diciembre 0002

Hasta aca todo bien el problema es que necesito que cuando cambie el mes el contador se resete es decir que deberia quedar asi me gustaria que el ejemplo se puedaaplica a dicho codigo desde ya gracias como siempre y saludos desde la argentina.

Diciembre 0001
Diciembre 0002
Enero 0001

Y Para utilizo el siguiente codigo:

'Se abre un nuevo registro'
DoCmd.GoToRecord , , acNewRec
DoCmd.OpenForm "ORDENDETRABAJO(Instancia)", , , , , acHidden
'Aca van las variables de base de datos y registros'
Dim Db As Database
Dim Rs As Recordset
Dim Temp As Long
Dim Mes As String
'Se establece la referencia a la base de datos'
Set Db = CurrentDb
'Se establece la referencia la conjunto de registros'
Set Rs = Db.OpenRecordset("ORDEN DE TRABAJO", dbOpenDynaset)
'Se establece la variable a 0'
Temp = 0
'Se establece el bucle'
Do Until Rs.EOF
Temp = Temp + 1
If Val(Rs![Numero]) > Temp Then
Else
Rs.MoveNext
End If
Loop
Temp = Temp + 1
'Se cierran la referencias'
Rs.Close
Db.Close
'Se hace referencia a los campos que se utilizan'
Me.Numero = Format$(Str(Temp), "0000")
Me.Cliente.SetFocus

O.W.E.

Para reiniciar el contador mensualmente en tu aplicación de numeración, puedes utilizar el siguiente código VBA como ejemplo:


Ten en cuenta que este es solo un ejemplo y debes adaptarlo a tu estructura de base de datos y nombres de objetos.

La idea principal es mantener una tabla (en este caso llamada "TablaMesAnterior") que almacene el mes anterior para compararlo con el mes actual y reiniciar el contador si son diferentes.

Espero que esta solución te sea útil.