error en acces- funcion numerico

[nacamoj]

Buenas tardes, tengo una base de datos en acces, la cual posee un formulario, que estaba trabajando con un campo autonumerico para los registros, bueno pues decidi crear mi propio autonumerico con este codico:

Private Sub Form_Current()


If Me.NewRecord Then
Me.CONSECUTIVO = Nz(DMax("CONSECUTIVO", "RADICA"), 0) + 1
End If

End Sub

efectivamente funciona como deberia, pero al momento de compartir la base de datos en red, para dos eequipos, me genera los siguientes problemas:

el usuario1 esta en el registro 10 y cuando el usuario2 va a solcitar un nuevo registro, en ves de saltar al registro 11, salta al 10, lo que hace que pueda existir error de reemplazar los datos de un registro por otro, luego el usuario2 salta al registro 11 normalmente, pero cuando el usuario1 solcita un nuevo registro que deberia de ser el numero 12, sale el siguiente error "no se puede ir al registro especificado" y se bloque la base de datos.

lo anterior pasa cuando se comparte la base de datos, lo cual es absolutamente necesario.

espero hacerme entender :)....y que me puedan colaborar.....Gracias..