Savoir comment enregistrer des informations d'une table à une autre table peut vous faire gagner du temps lors du transfert de données dans une base de données . Microsoft Office Access est un système de gestion de base de données relationnelle inclus dans la suite Microsoft Office . Visual Basic pour Applications ( VBA) est un langage de programmation informatique développé par Microsoft. VBA peut être utilisé dans Access pour automatiser les processus autrement effectuées manuellement . En quelques étapes, vous pouvez écrire du code VBA pour interroger les données d'une table et l'enregistrer dans une autre table. Instructions
1

Démarrer Microsoft Office Access 2007 et sélectionnez « Nouvelle base de données ", puis cliquez sur " Créer". Cliquez sur " Database Tools ", puis sélectionnez " Visual Basic. "
2

Cliquez sur le champ " Insert" et sélectionner "Module ".

Copiez et collez le code suivant dans votre module : Photos

createNewTable Private Sub ()

rst As Recordset

db As Database

sqlstr Dim As String

sqlstr = "CREATE TABLE CustomerInfo ( TEXTE Prénom (25) , TEXT NOM (25) ) ; "

DoCmd.RunSQL ( sqlstr )

sqlstr = "INSERT INTO CustomerInfo ( [Prénom ] [Nom ] ) "

sqlstr = sqlstr &" VALUES (' John ', ' Williams '); "

DoCmd.SetWarnings Faux

DoCmd.RunSQL ( sqlstr ) < br >

sqlstr = "INSERT INTO CustomerInfo ( [Prénom ] [ Nom] ) "

sqlstr = sqlstr & " VALUES (' Charles ', ' Gonzalez '); "

Docmd . SetWarnings Faux

DoCmd.RunSQL ( sqlstr )

sqlstr = " SELECT CustomerInfo.FirstName , "

sqlstr = sqlstr & " CustomerInfo.LastName EN CharlesInfo "

sqlstr = sqlstr & "FROM CustomerInfo "

sqlstr = sqlstr & " WHERE ( ( ( CustomerInfo.FirstName ) = ' Charles ')); "

DoCmd.SetWarnings false < br >

DoCmd.RunSQL ( sqlstr )

End Sub
3 Appuyez sur

"F5 " pour exécuter votre routine . Le code va créer une nouvelle table et ajouter deux nouveaux records de données. Une nouvelle table sera créée lorsque " Prénom " est égal à " Charles ".