|
Connaître comment mettre à jour les données dans une requête dans Microsoft Office Access en utilisant Visual Basic pour Applications ( VBA ) peut vous faire gagner du temps lorsque vous avez besoin de mettre à jour en continu des données dans des tables . L'accès est un système de gestion de base de données relationnelle couramment utilisée pour les plus petites bases de données locales . Une requête est utilisée pour afficher les données dans une table de base de données. VBA est un langage de programmation informatique utilisé pour automatiser des tâches de routine dans Access. Instructions
1 Démarrer Microsoft Office Access , sélectionnez " Database Tools " et cliquez sur " Visual Basic ". Sélectionnez le menu " Insertion", puis cliquez sur "Module ".
2 Copiez et collez le code suivant dans votre module :
UpdateQuery Private Sub ()
db As Database
rst As Recordset
SQLString Dim As String
rstCnt As Integer
Set db = CurrentDb
SQLString = " CREATE TABLE tableToUpdate ( premier texte , Dernière texte)"
DoCmd.SetWarnings Faux
DoCmd.RunSQL ( SQLString )
strsql = "INSERT INTO VALUES tableToUpdate ( « Oscar », « Gonzalez ») «
DoCmd.RunSQL ( strsql )
strsql = " INSERT INTO VALUES tableToUpdate ( ' Kitzia »,« Ramos ») «
DoCmd.RunSQL ( strsql )
strsql = "INSERT INTO VALUES tableToUpdate ( 'John' , 'Smith' ) "
DoCmd.RunSQL ( strsql )
strsql = " insérer dans les valeurs tableToUpdate ( 'Anna ', ' Williams ') "
DoCmd.RunSQL ( strsql )
Set rst = db.OpenRecordset (" SELECT * FROM tableToUpdate tableToUpdate ; ». )
rst.MoveLast
rst.MoveFirst
rstCnt = 0 To rst.RecordCount - 1 x Si rst.Fields (0) Value = " . Oscar ", puis
rst.Edit
rst.Fields (0) . Value =" Emilio "
rst.Update
End If
rst.MoveNext
Suivant rstCnt
End Sub
3 Appuyez sur " F5 " pour exécuter le sous-programme " de UpdateQuery " . La sous-routine crée une nouvelle table, insère de nouvelles lignes de données , des requêtes de la table créée et met à jour le premier champ.
|
