Cómo acceder a una tabla Autonumber Hacer Consulta

Conocer cómo crear mediante programación y una mesa a continuación, agregue un campo de número automático utilizando Visual Basic para Aplicaciones ( VBA) que puede ahorrar tiempo al trabajar con Microsoft Office Access . El acceso es un sistema de gestión de base de datos relacional incluido en la suite de Microsoft Office. VBA es un lenguaje de programación utilizado en aplicaciones de Microsoft Office para automatizar procesos manuales , tales como la creación de tablas . En pocos pasos se puede escribir código VBA para crear una tabla , agregar datos y agregar un campo de número de automóviles a la misma. Instrucciones
1

Abra Microsoft Office Access 2007 y 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 " para abrir la ventana de Microsoft Visual Basic . Seleccione el campo "Insertar" y haga clic en
2

Copia y pega el siguiente código en el módulo " Módulo ". :

Private Sub createAutoNumberField ()

Set dbs = Application.CurrentDb

SQLString = "CREATE InstrumentInfo MESA ( TEXTO Instrumento , TEXTO SerialNumber ) "

DoCmd.SetWarnings False

DoCmd.RunSQL ( SqlString )

strsql = "INSERT INTO VALORES InstrumentInfo ( ' MXA ' , '83456 ')"

DoCmd.RunSQL ( strsql )

strsql = " INSERT INTO VALORES InstrumentInfo ( ' Signal Generator ' , '1244532 ') "

DoCmd.RunSQL ( strsql )

Set tblDef = dbs.TableDefs ( " InstrumentInfo " )

Establecer AutoField = tblDef.CreateField ( " AutoColumn " dbLong )

AutoField

. Atributos = dbAutoIncrField

extremo con

tblDef.Fields

. Append AutoField

. Refresh

extremo con

End Sub
3

Ejecute la subrutina con la tecla " F5 ".