Vide, hvordan man via programmering oprette en tabel og derefter tilføje en auto nummer felt ved hjælp af Visual Basic for Applications ( VBA ), kan du spare tid , når du arbejder med Microsoft Office Access. Access er en relationel database management system inkluderet i Microsoft Office-pakken. VBA er et edb-programmering sprog, der anvendes i Microsoft Office-programmer til at automatisere manuelle processer såsom at oprette tabeller. I et par trin, du kan skrive VBA-kode til at oprette en tabel , føje data til den og tilføje en auto nummer felt til det. Instruktioner
1
Åbn Microsoft Office Access 2007 og klik på " Tom database " og derefter vælge "Opret ". Klik på " Database Tools " og derefter vælge "Visual Basic " for at åbne Microsoft Visual Basic vindue. Vælg "Indsæt "-feltet og klikke på
2
Kopier og indsæt følgende kode i modulet " Modul ". : Hej
Private Sub createAutoNumberField ()
Set dbs = Application.CurrentDb
sQLString = " CREATE TABLE InstrumentInfo ( instrument TEKST , SerialNumber TEXT )"
DoCmd.SetWarnings False
DoCmd.RunSQL ( sQLString )
strSQL = " INSERT INTO InstrumentInfo VALUES ( ' MXA ' , '83456 ' ) "
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO InstrumentInfo VALUES ( ' Signal Generator ' , '1244532 ' ) "
DoCmd.RunSQL ( strSQL )
Set tblDef = dbs.TableDefs ( " InstrumentInfo " )
Set autoField = tblDef.CreateField ( " AutoColumn " dbLong )
autoField
. attributter = dbAutoIncrField
End With
tblDef.Fields
. Append autoField < br >
. Refresh
End With
End Sub
3
Kør subrutine ved at trykke på " F5 ".
< br >