Comment mettre à jour une requête dans Access VBA

April 24

Savoir comment mettre à jour les données dans une requête dans Microsoft Office Access utilisant Visual Basic pour Applications (VBA) peut vous faire économiser du temps lorsque vous avez besoin de mettre à jour en continu des données dans les tableaux. Access est un système de gestion de base de données relationnelle couramment utilisée pour les bases de données locales plus petites. 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 les tâches de routine dans Access.

Instructions

1 Démarrez Microsoft Office Access, sélectionnez "Base de données Outils" et cliquez sur "Visual Basic." Sélectionnez le menu "Insertion", puis cliquez sur "Module".

2 Copiez et collez le code suivant dans votre module:

Private Sub updateQuery ()

Dim db As Database

Dim premier Comme Recordset

Dim SqlString As String

Dim rstCnt As Integer

Set db = CurrentDb

SqlString = "CREATE TABLE tableToUpdate (premier texte, dernier texte)"

DoCmd.SetWarnings Faux

DoCmd.RunSQL (SqlString)

strsql = "INSERT INTO VALEURS tableToUpdate ( 'Oscar', 'Gonzalez')"

DoCmd.RunSQL (strsql)

strsql = "INSERT INTO VALEURS tableToUpdate ( 'Kitzia', 'Ramos')"

DoCmd.RunSQL (strsql)

strSQL = "INSERT INTO VALUES tableToUpdate ( 'John', 'Smith')"

DoCmd.RunSQL (strsql)

strSQL = "INSERT INTO VALUES tableToUpdate ( 'Anna', 'Williams')"

DoCmd.RunSQL (strsql)

Set rst = db.OpenRecordset ( "SELECT * FROM tableToUpdate tableToUpdate;.")

rst.MoveLast

rst.MoveFirst

Pour rstCnt = 0 To rst.RecordCount - 1

If rst.Fields(0).Value = "Oscar" Then

rst.Edit

rst.Fields (0) .Value = "Emilio"

rst.Update

Fin si

rst.MoveNext

rstCnt Suivant

End Sub

3 Appuyez sur "F5" pour exécuter le sous-programme "updateQuery". Le sous-programme crée une nouvelle table, insère de nouvelles lignes de données, interroge la table créé et met à jour le premier champ.


          

Post a comment: