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 utilisé pour automatiser des tâches de routine dans les applications Microsoft Office . Les programmeurs vont parfois dans la nécessité de mettre à jour la valeur d'un enregistrement spécifique dans une table de programmation. En quelques étapes, vous pouvez écrire du code VBA de mettre à jour un enregistrement dans une table. Instructions 
 1 
 Sélectionnez " Database Tools ». Cliquez sur " Visual Basic " pour ouvrir la fenêtre " Microsoft Visual Basic " . 
 
 Créer un nouveau sous en tapant " editRecordSet Private Sub ()" et appuyez sur "Entrée". 
 2 
 tapez la commande suivante pour créer vos variables et définir la base de données actuelle : 
 
 sqlstr Dim As String 
 
 rst As Recordset 
 
 Dim dbs As Database 
 
 Set dbs = CurrentDb 
 3 
 Tapez la commande suivante pour créer une nouvelle table : 
 
 SQLString = " CREATE tABLE editRecord ( f_name TEXTE, L_Name ) " 
 < p > DoCmd.SetWarnings Faux 
 
 DoCmd.RunSQL ( SQLString ) 
 4 
 tapez la commande suivante pour ajouter trois enregistrements de données à la table : 
 
 strsql = " INSERT EN VALEURS editRecord ( 'Sebastian ', ' PUGA ') " 
 
 DoCmd.RunSQL ( strsql ) 
 
 strsql = " INSERT INTO VALUES editRecord ( «Maria» , « GONZALEZ ')" < br > 
 DoCmd.RunSQL ( strsql ) 
 
 strsql = "INSERT INTO VALUES editRecord ( 'John ', ' LOPEZ ')" 
 
 DoCmd.RunSQL ( strsql ) 
 < br > 5 
 Tapez la commande suivante pour interroger la table et renvoyer tous les records : 
 
 Set rst = dbs.OpenRecordset ("SELECT * FROM editRecord editRecord . " ) 
 6 
 tapez la commande suivante pour passer à enregistrer le numéro trois et mettre à jour le champ " f_name " à " JUAN ": 
 
 Set rst = dbs.OpenRecordset ("SELECT * FROM editRecord editRecord . " ) 
 
 rst . Move ( 2) Photos 
 rst.Edit 
 
 rst.Fields ( " f_name " ) . Value = " JUAN " 
 
 rst.Update 
 7 
 Tapez la commande suivante pour fermer le jeu d'enregistrement et libérer la variable " DBS " de la mémoire : DBS 
 
 rst.Close 
 
 Set = Nothing 
 
 Appuyez sur " F5" pour exécuter votre nouveau sous-programme.