Visual Basic - INICIALIZAR UN CAMPO AUTONUMERICO

Es posible inicializar un campo autonumérico de una tabla de access....??

Hacer que inicie desde 0 nuevamente o que se inicie con cualquier otro número....

Lo que puedes hacer es tenerlo solo como numerico (no autonumerico) y generar el autonumerico de Visual

Tipo asi:

Data1.recordset.movelast
Var = val(text_codigo)
Var = Var +1
Data1.recordset.addnew
Text_codigo.text = str(Var)

Eso usaba en un principio (algo similar... buscaba el MAX y le sumaba 1), pero como puede darse el caso de que varios usuarios entren a esa parte del código, me queda la duda que se generen 2 numeros iguales.

En este foro me recomendaron que usara variables autonuméricas para asegurarme que no se repitieran los números...

En caso de que realmente no se pueda inicializar un campo autonumérico tendré que ingeniar algo para evitar que mas de un usuario genere el mismo número. Muchas gracias por el comentario.

Fijate en: http://support.microsoft.com/?kbid=287756 se hace con ADOX.

Function ChangeSeed(strTbl As String, strCol As String, lngSeed As Long) As Boolean
'You must pass the following variables to this function.
'strTbl = Table containing autonumber field
'strCol = Name of the autonumber field
'lngSeed = Long integer value you want to use for next AutoNumber.

Dim cnn As ADODB.Connection
Dim cat As New ADOX.Catalog
Dim col As ADOX.Column

'Set connection and catalog to current database.
Set cnn = CurrentProject.Connection
cat.ActiveConnection = cnn

Set col = cat.Tables(strTbl).Columns(strCol)

col.Properties("Seed") = lngSeed
cat.Tables(strTbl).Columns.Refresh
If col.Properties("seed") = lngSeed Then
ChangeSeed = True
Else
ChangeSeed = False
End If
Set col = Nothing
Set cat = Nothing
Set cnn = Nothing

End Function

De entrada no le entiendo nada... pero voy a revisarlo bien para poder usarlo... MUCHAS GRACIAS por el dato.

un truco que uso yo es utilizar una tabla llamada codigos con 2 campos:
- un ID autonumerico
- otro txt campo que me sirva para identificar mi ID

el proceso sería el siguiente. si por ejemplo quiero insertar un campo en la tabla personas, lo que hago es:
- primero insertar uno en la tabla codigos con un txt unico.
- busco el ID a partir de mi TXT y lo almaceno en una variable
- borro el registro de la tabla codigos

y ese ID estoy seguro de que es unico y lo puedo insertar en el campo numerico identificador de la table personas.

Hola,
un campo autonumerico no se puede reiniciar a menos que elimines el campo autonumerico y lo vuelvas a poner.
En caso no quieras eliminar los datos del autonumerico y lo que quieras es que los numeros que ya han sido utilizados y luego han sido eventualmente eliminados vuelvan ha ser utilizados te recomiendo que utilices la opción, asignar numero aleatorio el las propiedades del campo de la tabla.

Se reinicializan cuando la tabla está vacía y compactas la base de datos, vuelve el índice a cero.

Debes incluir la referencia (añadir referencia, pestaña COM...) para teber acceso a JRO
Microsoft Jet and Replication Objects 2.6 Library