¿Cómo puedo crear AUTOINCREMENT campos en Visual Basic para el Acceso

¿ Saber cómo crear un campo de incremento automático en una tabla de Access utilizando Visual Basic para Aplicaciones o VBA , puede hacer que su aplicación sea más dinámico. Un campo autoincrement es un campo de una tabla que incrementa automáticamente para cada nuevo registro. Microsoft Office Access es un sistema de gestión de base de datos relacional utilizada 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

Inicio Microsoft Office Access 2007 y seleccione "Base de datos en blanco ", y luego haga clic en " Crear". Haga clic en " Herramientas de base de datos ", seleccione " Basic . Visual "

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

Set tblDef = dbs.TableDefs ( " addressTbl ")
< p > Set Newfield = tblDef.CreateField ( " AutoField " , dbLong )

newField

. Atributos = dbAutoIncrField

extremo con

tblDef . los campos

. Append newField

. Refresh

extremo con

End Sub
4

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

Set tblDef = dbs.TableDefs ( " addressTbl " )

Press "F5 " para ejecutar la subrutina
.