Gegevens exporteren uit een tabel veld naar het andere is niet zo ingewikkeld als u misschien denkt . In Access kunt u Visual Basic for Applications om dit proces te automatiseren . Het Recordset-object vertegenwoordigt de records in een tabel of het terug van een query records. Dit object wordt gebruikt in VBA om deze gegevens te manipuleren op het recordniveau . U kunt gegevens exporteren door het doorlussen van de administratie en het toevoegen van veldwaarden naar andere velden in dezelfde tabel of een andere tafel . Instructies
1 Klik op " Database Tools" en klik op " Visual Basic " om de Visual Basic Editor te openen . Beginnen met het maken van een nieuwe sub - procedure door toevoeging van de volgende code : Private Sub copyFieldData ( )
2 Maak de volgende variabelen u wilt gebruiken om de gegevens te kopiëren :
Dim sqlstr als Koord Dim sourceRst
als Recordset Dim targetRst
als Recordset Dim rCntr
als Geheel Dim dbs
Als Database
Set dbs = CurrentDb
3 Maak een lege tafel met een veld .
strSQL = " CREATE tABLE emptyTable "
strSQL = strSQL & " ( Voornaam TEXT ) " DoCmd.RunSQL ( strSQL )
4
Open de bron en het doel tabellen met behulp van een Recordset . Set
targetRst = dbs.OpenRecordset ( " emptyTable " ) Set sourceRst = dbs.OpenRecordset
( "SELECT * FROM Werknemers Werknemers ; . " )
5 Maak een " For ... Loop" aan lijn door alle rijen in het veld "Voornaam " uit de tabel Werknemers en exporteert ze naar het veld " Voornaam " in de emptyTable . sourceRst.MoveLast
sourceRst.MoveFirst
Voor rCntr = 0 To sourceRst.RecordCount - . 1. targetRst.AddNew targetRst.Fields
( " Voornaam " ) Value = sourceRst.Fields ( " Voornaam" ) Value < br > targetRst.Update sourceRst.MoveNext
Volgende rCntr
6 Laat een bericht wanneer het exporteren is voltooid .
MsgBox ( "Gegevens van First Name veld is geëxporteerd " ) op Twitter End 7 van de procedure door het intikken van "End Sub . " Druk op " F5 " om de procedure uit te voeren.
|
