Access - JEFFERSON no funciona autonumerico + año

feliz año nuevo a todos

el problema que tengo es que no me funciona el codigo de autonumerico mas año y no se el motivo. tengo un formulario basado en una tabla llamada albaranes y el campo numerico se llama numalbaran y el codigo que puse es el siguiente pero no me funciona y estoy perdido, por favor ayuda.
el campo autonumerico se llama NUMALBARAN y la tabla ALBARANES
Option Compare Database
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim AñoActual As String
Dim NumAsignado As Long
Const Ceros As String = "0000"
AñoActual = Format(Now, "yyyy") & "/"
AñoActual = Nz(DMax("numalbaran", "albaranes", _
"numalbaran like '" & AñoActual & "*'"), AñoActual & Ceros)
NumAsignado = Val(Right(AñoActual, Len(Ceros)))
NumAsignado = NumAsignado + 1
numalbaran= Left(AñoActual, 5) & Format(NumAsignado, Ceros)
Nº_Entrada = Format(NumAsignado, Ceros)
End Sub

Hola rambling

Segun leo el codigo no deberia de tener problemas, salvo que el campo NUMALBARAN no sea tipo texto... Revisa si lo haz puesto tipo Numerico o Autonumerico y comentas...

Desde Venezuela
Jefferson

COMO TE COMENTE EL CAMPO EN LA TABLA ES DE TIPO AUTONUMERICO Y EN EL FORM ES UN CUADRO DE TEXTO CON ORIGEN DE DATOS BASADO EN EL CAMPO DE LA TABLA.
ME SALE EL SIGUIENTE MENSAJE DE ERROR:
no se puede asignar un valor a este objeto
NUMALBARAN = Left(AñoActual, 5) & Format(NumAsignado, Ceros)

igual tengo que cambiar el tipo de datos en la tabla y ponerle que es de tipo texto, verdad?

Es correcto, debes cambiarlo en la tabla y ponerlo tipo texto

Suerte

Desde Venezuela
Jefferson