Visual Basic pour Applications ( VBA) est le langage de programmation pour le programme de base de données Access de Microsoft. VBA peut effectuer les mêmes fonctions disponibles dans l'interface d'accès d'habitude , y compris interroger les sources externes d'accéder aux données . Un type de données externes est un tableau HTML. Interrogation d'une telle table depuis Access VBA consiste à relier au document HTML contenant la table , puis en exécutant une requête sur la table. Le principal avantage de l'interrogation d'un tableau HTML à partir d'Access VBA est le gain de temps en remplaçant l'intervention de l'utilisateur d'une requête standard avec l'automatisation d'une requête VBA basé . Choses que vous devez
Microsoft Access
Afficher plus Instructions
1

Ouvrez le Bloc-notes et coller du document HTML exemple suivant. Ce document contient une petite table de données relatives à des films . Vous interrogez la table d'un programme VBA Access :

< tableau Page 2

Appuyez sur " Control" + " S " et tapez " c: \\ movies.html ." pour le nom du fichier
3

Open Access et appuyez sur " Alt" + " F11 " pour entrer dans l'environnement de programmation pour VBA.
4

Cliquez sur la commande "Module" du menu "Insertion " pour créer une nouvelle fenêtre pour entrer dans le sous-programme de requête HTML po
5

Collez le code de programme suivant dans la nouvelle fenêtre. La sous-routine crée une connexion haut , à travers la commande " TransferText " , avec le tableau dans le fichier HTML à partir de l'étape 1. Le sous-programme " queryHTML " va exécuter une requête SQL sur les données de la table transférés.

Public Sub importHTMLData ()

TabName Dim As String

TabName = "films" < br >

DoCmd.TransferText acLinkHTML , tabName , "C: \\ movies.html " , -1

End Sub

publique queryHTML Sub ( )

Const qry = " qHTML "

Dim DBS DAO.Database

recset As DAO.Recordset

Set dbs = CurrentDb

Set recset = dbs.OpenRecordset ( qry )

Do While Not recset.EOF

Debug.Print "Titre :" & recset [title]

recset.MoveNext

boucle ! Photos

recset.Close

dbs.Close

End Sub
6

Cliquez sur une déclaration dans le sous-programme " de importHTMLData " , puis appuyez sur la touche "F5 "pour exécuter le sous-programme.
7

Appuyez sur" Alt "+" F11 "pour revenir à l'accès, puis cliquez sur les flèches du panneau de navigation ( " << " ) à deux reprises pour actualiser les données du volet . Le volet affiche maintenant une nouvelle table, " Films ", qui la sous-routine importHTMLData produite .
8

Cliquez sur l'icône pour la table "Films" dans le volet de navigation, puis cliquez sur le menu "Créer" , suivi par le bouton "Requête" sur la barre d'outils principale .
9 Double- cliquez sur la rubrique " Movie" dans la boîte de dialogue "Ajouter un tableau ", puis faites glisser l'élément de

"*" de la petite fenêtre " Movie" sur la première commande de la requête grille. Cette action crée une requête que le deuxième sous-programme VBA que vous avez écrit va utiliser pour récupérer les données de la nouvelle table Movies .
10

Appuyez sur " Control" + " S ", puis tapez " qHTML " pour la requête de nom.
11

Appuyez sur " Alt" + "F11" pour revenir à l' environnement de développement. Cliquez aucune déclaration dans le sous queryHTML , puis appuyez sur la touche "F5 " pour exécuter le sous-programme.
12

Appuyez sur " Control" + "G" pour ouvrir la fenêtre " immédiate" de l'environnement de développement . La fenêtre affiche la sortie de la déclaration de debug.print du queryHTML sous-programme. Cette sortie contient les résultats de l'exécution du sous-programme queryHTML de la requête qHTML (étape 10).