Savoir comment utiliser Visual Basic pour Applications ( VBA) lorsque vous travaillez avec Microsoft Access peut vous faire gagner du temps lorsque vous avez besoin pour afficher le contenu dans une table de base de données. Vous pouvez récupérer le contenu d' une table de base de données en utilisant un objet d'enregistrements. Enregistrements se composent d' enregistrements (lignes) et des champs (colonnes) . Ils vous donnent la possibilité d'afficher ou manipuler des données dans une table. Une « boucle For " peut être utilisée pour parcourir tous les domaines et enregistrement dans une table de base de données . Choses que vous devez
accès Northwind base de données
Voir Plus Instructions
1

lancer la base de données Northwind 2007 et cliquez sur " Database Tools ». Cliquez sur " Visual Basic " pour ouvrir la fenêtre de Microsoft Visual Basic . Cliquez sur le menu "Insertion " et cliquez sur
2

Tapez la commande suivante pour créer une nouvelle procédure d'exécuter "Module ". :

StepThroughFields Private Sub ()

On Error GoTo Err_stepThroughFields :
3

Tapez la commande suivante pour créer des variables servant à lire la table Orders :

Dim dbs As Database

rst As enregistrements

rcrdCnt As Integer

fldCnt As Integer
4

Tapez la commande suivante pour définir la base de données à utiliser:

Set dbs = CurrentDB
5

Tapez la commande suivante pour ouvrir une nouvelle enregistrements à l'aide de la table Orders :

Set rst = dbs.OpenRecordset ( " commandes" )
6 < p > Tapez la commande suivante pour parcourir chaque champ de la table et afficher le nom :

fldCnt = 0 To rst.Fields.Count - 1 x

Debug.Print rst.Fields ( fldCnt ) . Nom

Suivant fldCnt
7

Tapez la commande suivante pour parcourir tous les champs de chaque ligne de la table et afficher son contenu:

rst.MoveFirst

rcrdCnt = 0 To rst.RecordCount - 1 x

fldCnt = 0 To rst.Fields.Count - 1.

Debug.Print rst.Fields ( fldCnt ) Valeur Photos

Suivant fldCnt

rst.MoveNext

Suivant rcrdCnt
8

Tapez la commande suivante pour libérer les variables de la mémoire :

rst.Close

dbs.Close
9

Tapez la commande suivante pour mettre fin à la procédure et de saisir toutes les erreurs : Photos

Exit_stepThroughFields : Photos

Exit Sub Photos

Err_stepThroughFields : Exit_stepThroughFields

MsgBox Err.Description

CV » :

End Sub

Appuyez sur" F5 "pour exécuter votre procédure et des informations de champ d'affichage.