Access - Autonumerico desde el 100!!

Hola:
Necesito saber si es posible que el campo autonumerico comiense desde el N° 100, y no desde el 1 como es lo tradicional... plis si alguien sabe como hacerlo le agradeceria si me pudiese ayudar.. VALE!!+

Atte.
Don Preguntas

Creo que no se puede pero tu puedes crear una consulta en donde le sumes al campo autonumerico 100 y listo.

tienes que crear una tabla auxiliar con campo de tipo numerico entero largo, al que añadiras un registro con el valor que quieres comenzar en la otra tabla menos uno, os sea 99.
Despues creas una consulta de datos anexados con la tabla auxiliar, y añades el registro a la tabla que tiene el campo autonumerico.Ejecutas la consulta Despues ya puedes borrar tanto la consulta, como la tabla auxiliar,vas a la tabla del campo autonumerico y borras el registro o registros si tienes mas y veras como al introducir uno nuevo el campo autonumerico comienza en 100

He estado leyendo la explicacion y me he quedado atascada en el segundo parrafo donde dice lo de :"añades el registro a la tabla que tiene el campo autonumerico" y ahi hasta el final.
si fuerais tan amable de explicarmelo es k tambien estoy con ese mismo problema solo k yo empiezo con otro numero que no es el 100.
gracias de antemano .
mi direccion de email es [email protected]

hola prueba esta funcion, (crea un modulo y pegala)
En cualquier lugar de tu programa podrías llamar a esta función, la podrias llamar desde un boton de un form...

ReiniciarAutonumerico "Clientes","IdCliente"
Y si quieres darle un valor inicial concreto
ReiniciarAutonumerico "Clientes","IdCliente", 100
Lo que debes tener en cuenta es que la función fallará si la tabla está en uso.

Public Sub ReiniciarAutonumerico(ByVal strNombreTabla As String, ByVal strNombreCampo As String, Optional ByVal ValorInicial)
Dim cat As Object
Dim t As Object
Dim col As Object
Dim p As Object
Set cat = CreateObject("ADOX.Catalog")
Set cat.ActiveConnection = CurrentProject.Connection
Set t = cat.Tables(strNombreTabla)
Set col = t.Columns(strNombreCampo)
Set p = col.Properties("Seed")
If IsMissing(ValorInicial) Then
p.Value = Nz(DMax(strNombreCampo, strNombreTabla), 1)
Else
p.Value = ValorInicial
End If
Set p = Nothing
Set col = Nothing
Set t = Nothing
Set cat = Nothing
End Sub

Ojala y te sirva, ya nos contaras
Saludos y suerte!
Néstor