Cómo utilizar un Autonumérico en Visual Basic

Visual Basic para Aplicaciones o VBA , se puede utilizar para automatizar los procesos de lo contrario se hace manualmente. Microsoft Office Access - un sistema de base de datos relacional que ofrece en la suite de Microsoft Office - permite a los programadores utilizar VBA para modificar las tablas en sus bases de datos. El campo Autonumérico se utiliza para identificar de forma exclusiva registros en una tabla . Registros únicos en una tabla se utilizan como claves principales y claves secundarias de otras tablas. Instrucciones
1

Abra Microsoft Office Access 2007 , haga clic en "Base de datos en blanco ", a continuación, seleccione " Crear". Haga clic en " Herramientas de base de datos ", a continuación, seleccione "Visual Basic ".

2 Haga clic en el campo " Insertar" , luego seleccione " Módulo ".
3

Copy y pegar este código en el nuevo módulo.

Private Sub newAutoIncColumn ( ) guía

Set dbase = Application.CurrentDb

Set TableDef = dbase.TableDefs ( " myTableName ")

Set newClmn = TableDef.CreateField ( " AutoField " , dbLong )

newClmn

. Atributos = dbAutoIncrField

extremo con

Con TableDef.Fields

. Append newClmn

. Refresh

extremo con

End Sub
4

Editar esta línea de código y escriba el nombre de la tabla .

Set TableDef = dbase.TableDefs ( " myTableName " )

" AutoField " se incrementará automáticamente en "1 " cuando los nuevos datos se introducen en la tabla . El " AutoField " se utiliza para identificar de forma exclusiva cada registro de la tabla.