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.