Uw Access-toepassing zal zijn gemakkelijker te gebruiken als u velden automatisch ingevuld in een tabel als je weet dat de gegevens die gaat in hen . Dit kan worden bereikt met behulp van Visual Basic for Applications . U kunt het Recordset-object gebruiken om de database tabel te openen en te vullen elk veld in de tabel . De AddNew methode wordt gebruikt om een nieuw record in het Recordset-object maken en de methode update slaat alle wijzigingen die in het record . Instructies
1 Klik op " Database Tools" en klik op " Visual Basic " om de Microsoft Visual Basic Editor te openen . Klik op het menu "Invoegen " en klik op "Module " om een nieuwe code -module toe te voegen . Maak een nieuwe subprocedure door toevoeging van de volgende code : Private Sub populateField
( ) kopen van 2 Maak de variabelen die je zal gebruiken om een nieuwe tabel te maken en bevolken een veld :
Dim dbs als Database Dim rst
als Recordset Dim rowCntr
als Geheel Dim fNames
( 10 ) als Koord Set
dbs = CurrentDb
3 bevolken de string array met 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 "
fNames ( 9 ) = " Joe "
4 uitvoeren van een SQL-instructie om een nieuwe tabel in uw database te maken met een veld tekst : sqlstr = " CREATE TABLE myNewTable
( Voornaam TEXT ( 50 ) ) ; " DoCmd.RunSQL ( sqlstr )
5
Open uw nieuwe tafel met behulp van een Recordset : Set
rst = dbs.OpenRecordset ( " myNewTable " )
6 Maak een lus aan het gebied van uw tafel " Voornaam " bevolken :
rowCntr = 0 Om 9 rst
. AddNew rst.Fields
( 0 ) . Value = fNames ( rowCntr ) rst.Update
Volgende rowCntr
7 Sluit de recordset en sluit uw subprocedure : rst.Close End Sub
Druk op " F5 "
8 om uw procedure uit te voeren. Schakel terug naar Microsoft Access en dubbelklik op " myNewTable " om het bevolkte gebied te bekijken .
|
