|
Exporter les données d'un champ de table à l'autre n'est pas aussi compliqué que vous ne le pensez. Dans Access , vous pouvez utiliser Visual Basic pour Applications pour automatiser ce processus. L'objet Recordset représente les enregistrements d'une table ou les enregistrements renvoyés par une requête . Cet objet est utilisé en VBA pour manipuler ces données au niveau de l' enregistrement. Vous pouvez exporter les données en parcourant les dossiers et en ajoutant des valeurs de champ à d'autres champs de la même table ou une table différente . Instructions
1 Cliquez sur " Database Tools " et cliquez sur " Visual Basic " pour ouvrir l'éditeur Visual Basic. Commencer à créer une sous-procédure nouvelle en ajoutant le code suivant :
Private Sub copyFieldData ()
2 Créer les variables suivantes que vous allez utiliser pour copier les données : Trouvez < p> sqlstr Dim As String
sourceRst As Recordset
targetRst As Recordset
rCntr As Integer
Dim dbs As Database
< p> Set dbs = CurrentDb
3 Créer une table vide avec un champ.
strSQL = " CREATE TABLE emptyTable "
strSQL = strSQL & "(texte Prénom ) "
DoCmd.RunSQL ( strSQL )
4 Ouvrez les tables source et cible à l'aide d'un jeu d'enregistrements .
Set targetRst = dbs.OpenRecordset ( " emptyTable " )
Set sourceRst = dbs.OpenRecordset ( " SELECT * FROM employés salariés; »).
5 créer une « boucle For ... " pour parcourir toutes les lignes dans le champ " Prénom " de la table des employés et les exporter vers le champ " Prénom " dans le emptyTable .
sourceRst.MoveLast
sourceRst.MoveFirst
Pour rCntr = 0 To sourceRst.RecordCount - . 1.
targetRst.AddNew
targetRst.Fields ( " Prénom " ) Valeur = sourceRst.Fields ( "Prénom" ) Valeur < br > targetRst.Update
sourceRst.MoveNext
Suivant rCntr
6 Afficher une boîte de message lorsque l'exportation est terminée.
MsgBox (" les données du premier champ de nom a été exporté" )
7 Fin de la procédure en tapant " End Sub ". Appuyez sur "F5" pour exécuter la procédure .
|
