Din Access-program vil være lettere at bruge, hvis du udfyldes automatisk felter i en tabel, når du kender de data, der går i dem. Dette kan opnås ved hjælp af Visual Basic for Applications. Du kan bruge Recordset objektet for at åbne databasen bordet og befolke ethvert felt i tabellen. Den TilføjNy metode bruges til at oprette en ny post i Recordset objektet og Update metoden gemmer eventuelle ændringer til posten. Instruktioner
1

Klik på " Database Funktioner" og klik på " Visual Basic " for at åbne Microsoft Visual Basic editor. Klik på " Indsæt" menuen og klikke på " Modul " for at tilføje en ny kode modul. Opret en ny subprocedure ved at tilføje følgende kode : Hej

Private Sub populateField ()
2

Opret de variabler, du vil bruge til at oprette en ny tabel , og befolker et felt : Hej

Dim dbs som database

Dim rst Som Recordset

Dim rowCntr Som Integer

Dim fNames (10) As String

Set dbs = CurrentDb
3

befolke strengen array med data:

fNames (0) = "John"

fNames (1) = " Kitzia " < br >

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

Udfør en SQL-sætning til at oprette en ny tabel i din database med et tekstfelt : Hej

sqlStr = " CREATE tABLE myNewTable ( Fornavn TEXT ( 50 )), "

DoCmd.RunSQL ( sqlStr )
5

Åbn din nye tabel ved hjælp af en Recordset : Hej

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

Opret en for-løkke til at befolke " Fornavn" på dit bord : Hej

rowCntr = 0 til 9

rst . TilføjNy

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

rst.Update

Næste rowCntr
7

Luk Recordset og slut din subprocedure : Hej

rst.Close

End Sub
8

Tryk på " F5 " for at køre din procedure . Skift tilbage til Microsoft Access og dobbeltklik på " myNewTable " for at se befolkede område.