Din Access-programmet vil være lettere å bruke hvis du fylles ut automatisk felt i en tabell når du vet at data som går i dem . Dette kan oppnås ved hjelp av Visual Basic for Applications. Du kan bruke Recordset objektet for å åpne databasen tabellen og fylle alle felt i tabellen . Den AddNew metoden brukes til å opprette en ny rekord i Recordset objektet og Update metoden lagrer eventuelle endringer i posten. Instruksjoner
en

Klikk " Database Tools " og klikk " Visual Basic " for å åpne Microsoft Visual Basic-redigering . Klikk på " Insert"-menyen og klikk " Module " for å legge til en ny kode modul . Opprett en ny subprocedure ved å legge følgende kode:

Private Sub populateField ( )
2

Lag variablene du vil bruke til å lage en ny tabell og fylle et felt :

Dim dBS Som Database

Dim rst Som Recordset

Dim rowCntr som heltall

Dim fNames ( 10 ) Som String

Set dBS = CurrentDb
3

Befolke strengen array med data:

fNames ( 0 ) = " John "

fNames ( 1 ) = " Kitzia "

fNames ( 2 ) = " Adaly "

fNames ( 3 ) = " Oscar "

fNames ( 4 ) = " Emilio "

fNames ( 5 ) = " Carlos "

fNames ( 6 ) = " Sylvia "

fNames ( 7 ) = " Sebastian "

fNames ( 8 ) = " Luis "
< p> fNames ( 9 ) = " Joe "
4

Utfør en SQL-setning for å opprette en ny tabell i databasen med et tekstfelt : en

sqlStr = "CREATE tABLE myNewTable ( Fornavn TEKST ( 50 )); "

DoCmd.RunSQL ( sqlStr )
5

Åpne den nye tabellen ved hjelp av en Recordset : en

Set rst = dbs.OpenRecordset ( " myNewTable ")
6

Lag en for loop å befolke " Fornavn" feltet på tabellen : en

for rowCntr = 0 til 9

rst . AddNew

rst.Fields ( 0 ) . Verdi = fNames ( rowCntr )

rst.Update

Neste rowCntr
7

Lukk Recordset og avslutte subprocedure : en

rst.Close

End Sub
8

Trykk " F5 " for å kjøre prosedyren. Bytt tilbake til Microsoft Access og dobbeltklikk på " myNewTable " for å vise befolkede feltet .