¿Cómo se crea Autoincrementar campos en Visual Basic para el acceso?

Conocer cómo crear un campo incrementado automáticamente en una tabla de Access utilizando Visual Basic para aplicaciones, o VBA, puede hacer su aplicación más dinámica. Un campo de incremento automático es un campo en una tabla que se incrementa automáticamente para cada nuevo registro. Microsoft Office Access es un sistema de gestión de base de datos relacional utilizado para bases de datos más pequeñas. VBA es un lenguaje de programación desarrollado por Microsoft y se utiliza para automatizar tareas rutinarias en las aplicaciones de Microsoft Office.

Instrucciones

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

2 Haga clic en el campo Insertar y seleccione "Módulo".

3 Copia y pega el siguiente código en el módulo:

Private Sub autoIncrementField ()

Set dbs = Application.CurrentDb

Establecer tblDef = dbs.TableDefs ( "addressTbl")

Establecer Newfield = tblDef.CreateField ( "AutoField", dbLong)

con Newfield

.Attributes = DbAutoIncrField

Terminar con

con tblDef.Fields

.Append Newfield

.Refrescar

Terminar con

End Sub

4 Editar la siguiente línea de código y escriba el nombre de la tabla:

Establecer tblDef = dbs.TableDefs ( "addressTbl")

Pulse la tecla "F5" para ejecutar la subrutina.