D Projet KATAAccès aux données en VBA sous Access |
L’accès à une table d’une base Access
Pour accéder à une table d’une base, les instructions sont toujours les mêmes :
Partie Déclaration
‘Déclaration des objets de la base : une base de données et un jeu d’enregistrements
Dim BASE As DAO.Database
Dim JEU_ENREGISTREMENTS As DAO.Recordset
Partie Ouverture base et table
‘La base lue est celle qui est ouverte
Set BASE = CurrentDb()
‘Création d’un jeu d’enregistrements qui stocke les données de la table ouverte ou de la requête
Set JEU_ENREGISTREMENTS = BASE.OpenRecordset("Table")
Remarque : cette dernière ligne peut également comporter une requête qui extrait les données nécessaires : Set JEU_ENREGISTREMENTS = BASE.OpenRecordset("requête en sql")
Partie Fermeture base et table
‘Fermeture du jeu d’enregistrement créé
JEU_ENREGISTREMENTS.Close
‘Fermeture de la base
BASE.Close
Lecture des enregistrements d’une table d’une base Access ‘Parcours du jeu d’enregistrement ‘EOF’ : propriété booléenne signifiant End Of File
While Not JEU_ENREGISTREMENT.EOF

‘Récupération d’un champ du jeu d’enregistrement JEU_ENREGISTREMENT ! NomDuChamp

‘Lecture de l’enregistrement suivant JEU_ENREGISTREMENT.MoveNext
‘Fin de la boucle Wend
Ecriture d’un enregistrement d’une table d’une base Access ‘Création d’un nouvel enregistrement vierge dans la table
JEU_ENREGISTREMENT.AddNew

‘Affectation de valeur à ce jeu d’enregistrement JEU_ENREGISTREMENT ! NomDuChamp = NomVariable

‘Prise en compte de cet enregistrement / Validation JEU_ENREGISTREMENT.Update

Mise à jour d’un enregistrement d’une base Access ‘Edition d’un rengistrement
JEU_ENREGISTREMENT.Edit

‘Modification de la valeur d’un champ JEU_ENREGISTREMENT ! NomDuChamp = NomVariable

‘Prise en compte de cette modification JEU_ENREGISTREMENT.Update
Suppression d’un enregistrement d’une base Access ‘Effacer un enregistrement d’une table