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.