Access - autonumerico manual

Hola a todos.
Llevo algún tiempo intentado hacer una pequeña base de datos que gestione clientes, contactos, proveedores aticulos, etc... Estoy utilizando ACCESS 2007
Llevo días intentando crear un numero autonumerico, mi problema es el siguiente:

Creo una tabla con los campos
ID_Cliente (autonumerico, clave principal)
Codigo (Numero, entero largo)
Nom_Cliente (texto)

He aplicado el siguiente código al formulario

Private Sub Form_Current()

Dim VCodigo, VUltimo As Variant
VCodigo = Me.Codigo.Value

If Not IsNull(VCodigo) Then Exit Sub
VUltimo = DMax("(Codigo)", "TDatos")

If IsNull(VUltimo) Then
VUltimo = 0
End If

VCodigo = VUltimo + 1
Me.Codigo.Value = VCodigo
End Sub

y no me funciona, cuando doy de alta un nuevo registro no me aumenta en 1 el nuevo valor.

Podeis ayudarme, Ostaria muy agradecido

Leo lo expuesto y me asaltan las dudas ....
¿Crear un dato que se crea solo que sentido tiene?
¿Y si deseo crear el dato, para que utilizo el 'automatismo' integrado?

El/los autonumericos trabajan de forma similar a 'los valores por defecto', esto es: se asientan como datos al guardar el registro
Y es en ese punto (por diseño y necesidad en un entorno compartido) donde esta la diferencia, la diferencia es que si iniciado un registro se 'aborta' su creación, ese autonumerico se desprecia.

Y no, no es un error de diseño, al contrario: es una necesidad, pues si en un 'entorno compartido' desde diferentes puntos se inician nuevos registros, estos utilizaran el 'autonumerico' que corresponda cuando se inician (no cuando se finalizan/guardan) y si alguno de ellos no llegase a finalizarse su numero se pierde (y no pasa nada, es su función: un ID diferente para cada uno).

Un símil a lo anterior es el numerador que hay en muchos establecimientos (pescaderías/carnicerías u oficinas de atención por poner algunos entornos), se entra, se toma en numero del dispensador y si llegado el caso (o por aburrimiento u otra acción prioritaria) se abandona el lugar, el numero se pierde y el turno 'pasa al siguiente' sin causar perjuicios.

Para una numeración manual y correlativa la formula clásica es:

Siguiente = Nz(Dmax("campo_1", "Tabla_1","condiciones si es el caso"), 0) +1

Esto es se tomaría el mayor del conjunto (o subconjunto si hay series dentro del conjunto) se le aplicaría la función NZ por si no hay nada y devolviese un NULL (que transmutaría en cero) y a ese resultado se le incrementaría una unidad.

hola, gracias por tus comentarios
voy a probar y te cuento