Veta hur programmatiskt för att skapa en tabell och sedan lägga till ett fält auto nummer med Visual Basic for Applications ( VBA ) kan spara tid när du arbetar med Microsoft Office Access . Access är en relationsdatabas management system som ingår i Microsoft Office-paketet . VBA är en dator programmeringsspråk som används i Microsoft Office-program för att automatisera manuella processer som att skapa tabeller . I några steg du kan skriva VBA-kod för att skapa en tabell , lägga till data i den och lägg till fält auto nummer till den . Instruktioner
1
Öppna Microsoft Office Access 2007 och klicka på " Tom databas , " välj sedan " Skapa ". Klicka på " Databas Verktyg " och välj sedan " Visual Basic " för att öppna Microsoft Visual Basic Window . Välj " Infoga "-fältet och klicka
2
Kopiera och klistra in följande kod i modulen " Modul . " :
Private Sub createAutoNumberField ( ) katalog
Set dbs = Application.CurrentDb
sQLString = " CREATE TABLE InstrumentInfo ( Instrument TEXT , serienummer TEXT ) "
DoCmd.SetWarnings False
DoCmd.RunSQL ( sQLString ) katalog
strSQL = " INSERT INTO InstrumentInfo VALUES ( ' MXA ' , '83456 ' ) "
DoCmd.RunSQL ( strSQL ) katalog
strSQL = " INSERT INTO InstrumentInfo VALUES ( ' Signal Generator " , '1244532 ' ) "
DoCmd.RunSQL ( strSQL ) katalog
Set tblDef = dbs.TableDefs ( " InstrumentInfo " ) katalog
Set autoField = tblDef.CreateField ( " AutoColumn " , dbLong ) katalog
autoField
. attribut = dbAutoIncrField
End With
tblDef.Fields
. Bifoga autoField
. Refresh
End With
End Sub
3
Kör subrutinen genom att trycka på " F5 ".
Addera
