Ihre Access-Anwendung wird es leichter zu verwenden, wenn Sie Felder in einer Tabelle automatisch ausgefüllt , wenn Sie die Daten, die in sie geht zu kennen. Dies kann mit Visual Basic für Applikationen werden. Sie können das Recordset-Objekt , um die Datenbank-Tabelle öffnen und füllen jedes Feld in der Tabelle. Die AddNew Methode wird verwendet, um einen neuen Datensatz im Recordset -Objekt zu erstellen und die Update-Methode speichert alle Änderungen, die an der Platte. Anleitung 
 1 
 Klicken Sie auf " Database Tools " und klicken Sie auf " Visual Basic ", um den Microsoft Visual Basic -Editor zu öffnen . Klicken Sie auf das Menü "Einfügen" und klicken Sie auf "Module" , um einen neuen Code-Modul hinzufügen. Erstellen Sie eine neue Unterprozedur indem Sie den folgenden Code : Private Sub 
 
 populateField () 
 2 
 Erstellen Sie die Variablen, die Sie verwenden, um eine neue Tabelle zu erstellen und ein Feld wird : 
 
 Dim dbs As Database Dim rst 
 
 Als Recordset 
 
 Dim rowCntr As Integer Dim 
 
 fNames (10 ) As String Set dbs 
 
 = CurrentDb 
 3 
 Füllen Sie die String-Array mit Daten: 
 
 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 
 Ausführen einer SQL-Anweisung , um eine neue Tabelle in Ihrer Datenbank mit einem Text zu erstellen: 
 
 sqlstr = " CREATE TABLE MeineNeueTabelle ( Vorname TEXT ( 50) ); " 
 
 DoCmd.RunSQL ( sqlstr ) 
 5 
 Öffnen Sie Ihre neue Tabelle mit einem Recordset: 
 
 Set rst = dbs.OpenRecordset ( " MeineNeueTabelle " ) 
 6 
 erstellen einer FOR-Schleife , um den " Vorname "-Feld der Tabelle bevölkern : 
 
 rowCntr = 0 To 9 
 
 rst . AddNew 
 
 rst.Fields (0) . Value = fNames ( rowCntr ) 
 
 rst.Update 
 
 Weiter rowCntr 
 7 
 das Recordset schließen und beenden Sie Ihre Unterprozedur : 
 
 rst.Close 
 
 End Sub 
 8 
 Presse "F5" auf Ihrer Prozedur auszuführen. Wechseln Sie zurück zu Microsoft Access und doppelklicken Sie auf " MeineNeueTabelle ", um die besiedelten Bereich zu sehen.