Crear un campo que sea numérico pero que sume 1

Las rutinas que te envío son para agregarlas en los eventos del formulario: Al activar registro y Antes de actualizar, elegí Procedimiento y las copias.
Tendrás un cuadro de texto (en mi ejemplo Texto2) para colocar el cod solicitud, que será el máx de la tabla considerando el año del sistema. (Si el 2 de enero grabas un registro al no encontrar ninguno de ese año tomará como valor 1. luego siempre buscará el máx del año en curso)
Private Sub Form_BeforeUpdate(Cancel As Integer)
Me.cod_solicitud = Me.Texto2
End Sub
Private Sub Form_Current()
Dim fact as Integer
If IsNull(DMax("[cod_solicitud]", "Nombre de tabla", "Year([fecha]) = year(Now)")) Then
Me.Texto2.Value = 1
Else
fact = DMax("[cod_solicitud]", "Nombre de tabla", "Year([fecha]) = year(Now)")
Me.Texto2.Value = fact + 1
End If
End Sub
Pruébala (deberás cambiar el año del sistema para ver qué pasará al inicio del año) y si todo está bien, no olvides finalizar.

Hola Elsa
Estoy tratando de hacer lo que indicas, pero no lo he podido hacer, siempre me generan mensajes de error en el evento: hasta ahora tengo: una tabla con los siguientes campos: fecha (fecha), cod_solicitud (texto) y en el formulario he creado el campo texto2, tanto la tabla con el formulario se llaman prueba1 y he colocado lo siguiente:
Private Sub Form_BeforeUpdate(Cancel As Integer)
Me.cod_solicitud = Me.Texto2
End Sub
Private Sub Form_Current(prueba1)
Dim fact As Integer
If IsNull(DMax("[cod_solicitud]", "prueba1", "Year([fecha]) = year(now)"))
Then
Me.Texto2.Value = 1
Else
fact = DMax("[cod_solicitud]", "prueba1", "Year([fecha]) = year(now)")
Me.Texto2.Value = fact + 1
End If
End Sub
Agradezco tu colaboración.