Cómo utilizar un Autonumérico en Visual Basic

Visual Basic para Aplicaciones, o VBA, se pueden utilizar para automatizar los procesos de hecho lo contrario de forma manual. Microsoft Office Access - un sistema de base de datos relacional que se ofrece en la suite de Microsoft Office - permite a los programadores utilizar VBA para modificar 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 primarias y claves secundarias en otras tablas.

Instrucciones

1 Open Access de Microsoft Office 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 Copia y pega el código en tu nuevo módulo.

Private Sub newAutoIncColumn ()

Set dbase = Application.CurrentDb

Establecer TableDef = dbase.TableDefs ( "MyTableName")

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

con newClmn

.Attributes = DbAutoIncrField

Terminar con

con TableDef.Fields

.Append newClmn

.Refrescar

Terminar con

End Sub

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

Establecer TableDef = dbase.TableDefs ( "MyTableName")

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