Connaître comment transférer des données entre les tables de base de données peut rendre vos applications de base de données plus dynamique. Microsoft Office Access est couramment utilisé pour concevoir de petites et locales bases de données. Dans Access , vous pouvez utiliser Microsoft Visual Basic pour Applications ( VBA) pour automatiser les tâches de routine telles que le transfert de données d'un tableau à l'autre. VBA est un langage de programmation informatique qui vous fournira une plus grande souplesse pour manipuler les données . Une requête est utilisée récupérer des informations à partir d'une table de base de données. Choses que vous devez
Microsoft Office Access
base de données Northwind
Afficher plus Instructions
1

Démarrer la base de données Access Northwind Microsoft Office . La base de données Northwind est inclus dans la suite Microsoft Office. Sélectionnez le menu "Insertion " et cliquez sur
2

Tapez la suivante pour créer un nouveau sous-programme "Module ". :

Private Sub transferData ()

presse " Entrez "
3

Tapez le suivant pour déclarer vos variables : .

stringSQL Dim As String

db As Database

rst As Recordset

rstTwo As Recordset

Set db = CurrentDb
4

Tapez la commande suivante pour créer une nouvelle table et le transfert de données :
< p> stringSQL = "CREATE tABLE EmployeeNames (texte NOM (25) , TEXT Prénom (25) ) ; "

DoCmd.RunSQL ( stringSQL )

Tapez la commande suivante pour ouvrir la nouvelle table à travers un jeu d'enregistrements à ajouter des données :

Set rstTwo = db.OpenRecordset ( " EmployeeNames " )
5

Tapez la commande suivante pour interroger la table «Employés» :

stringSQL = "SELECT Employees.Company , "

stringSQL = stringSQL et " employés . [ Nom ] , "

stringSQL = stringSQL et " employés . [ Prénom ] "
< p> stringSQL = stringSQL & " FROM Employees ; "

Set rst = db.OpenRecordset ( stringSQL )

rst.MoveLast

rst.MoveFirst
6

Tapez la commande suivante pour parcourir la requête et le transfert "Nom" et "Prénom" à la table " EmployeeNames ":

Do While Not rst.EOF

rstTwo . AddNew

rstTwo.Fields ( "Nom" ) . Value = rst.Fields (« [nom] »). Valeur

rstTwo.Fields ( " Prénom " ) . Value = rst . Fields ( " [ Prénom ]") . Value

rstTwo.Update

rst.MoveNext

boucle
7

Tapez la commande suivante pour variables de libération de la mémoire :

rst.Close

rstTwo.Close

db.Close

Appuyez sur " F5 " pour exécuter votre routine
.