|
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 ".
|
