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 ".