hvordan man kan få adgang til en stille tabel forespørgsel Autonummerering

Indlæg af Allan Busk-Mathiasen     opdateret: 2011-10-18

Vide, hvordan man programmeringsmæssigt oprette en tabel og derefter tilføje en auto antal 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-pakke. VBA er en edb-programmering sprog, der anvendes i Microsoft Office-programmer til at automatisere manuelle processer som skaber 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 .
1 .
Åbn Microsoft Office Access 2007 og klik på " Tom database "og derefter vælge " Create ". Klik på " Database Funktioner "og derefter vælge " Visual Basic "for at åbne Microsoft Visual Basic vindue . Vælg " Indsæt " feltet og klik på " . Module "
2
Kopier og indsæt følgende kode i modulet :


Private Sub createAutoNumberField ( )

Set dbs=Application. CurrentDb

sQLString=" CREATE TABLE InstrumentInfo ( Instrument TEKST , serialNumber TEXT ) "
DoCmd . SetWarnings Falsk
DoCmd. RunSQL ( sQLString )

strSQL=" INSERT INTO InstrumentInfo VALUES ( ' MXA ' , � ') "

DoCmd. RunSQL ( strSQL )
strSQL=" INSERT INTO InstrumentInfo VALUES ( ' Signal Generator ' , � ') "
DoCmd. RunSQL ( strSQL )

Set tblDef=dbs. TableDefs ( " InstrumentInfo " )

Set autoField=tblDef . CreateField ( " AutoColumn " , dbLong )
Med autoField
. Attributter=dbAutoIncrField
End With

Med tblDef. Fields
. Append autoField

. Opdater
End With

End Sub
3 .
Kør delrutinen af trykke på " F5 ".


Previous:hvordan man kan genoprette et miljø -fil Next:hvordan man åbner en postsættet



 

Kommentarer

Code:
change