Din Access-program kommer att vara lättare att använda om du fylls i automatiskt fält i en tabell när du vet att data som går i dem . Detta kan åstadkommas med hjälp av Visual Basic for Applications . Du kan använda objektet Recordset för att öppna databasen tabellen och fylla alla fält i tabellen . Den SparNy metoden används för att skapa en ny post i Recordset-objekt och metoden Update sparar eventuella ändringar som gjorts till posten . Instruktioner
1
Klicka på " Databas Verktyg " och klicka på " Visual Basic " för att öppna Microsoft Visual Basic Editor . Klicka på " Infoga " -menyn och klicka på " modul " för att lägga till en ny kod modul . Skapa ett nytt delprocedur genom att lägga till följande kod :
Private Sub populateField ( )
2
Skapa variabler du använder för att skapa en ny tabell och fylla ett fält :
Dim dbs som databas
Dim rst Som Recordset
Dim rowCntr As Integer
Dim fNames ( 10 ) As String
Set dbs = CurrentDb Addera 3
Fylla strängen 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 "
fNames ( 9 ) = " Joe "
4
Kör en SQL-sats för att skapa en ny tabell i databasen med ett textfält :
sqlstr = " CREATE tABLE myNewTable ( Förnamn TEXT ( 50 ) ) ; "
DoCmd.RunSQL ( sqlstr )
5
Öppna din nya tabell med ett Recordset :
Set rst = dbs.OpenRecordset ( " myNewTable " )
6
Skapa en FOR loop för att befolka " Förnamn " fältet i tabellen :
för rowCntr = 0 till 9
RST . SparNy
rst.Fields ( 0 ) . Value = fNames ( rowCntr ) katalog
rst.Update
Nästa rowCntr
7
Stäng Recordset och avsluta delprocedur :
rst.Close
End Sub
8
Tryck " F5 " för att köra din procedur . Byt tillbaka till Microsoft Access och dubbelklicka på " myNewTable " att visa befolkade området .
