Savoir lire les résultats d'une requête Microsoft Access peut vous aider à faire votre demande d'accès plus dynamique. L'accès est partie de la suite Microsoft Office et il est utilisé pour créer des bases de données relationnelles . Visual Basic pour Applications ( VBA) peut être utilisé dans Access pour créer des applications Windows et extraire des données de bases de données . Une requête est construit en utilisant un langage déclarations SQL (Structured Query ) pour demander des informations à partir d'une base de données. Choses que vous devez
Microsoft Office Access 2007
Voir Plus Instructions
1

Démarrer Microsoft Office Access 2007, puis sélectionnez « Base de données vide ", puis cliquez sur "Créer". Cliquez sur " Database Tools " puis sélectionnez " Visual Basic ". Cliquez sur le champ "Insérer" et sélectionner "Module" .
Type

« sous readQueryResults privées " et appuyez sur "Entrée" pour créer un nouveau sous-programme.
2

Tapez la commande suivante à déclarer les variables que vous allez utiliser pour lire les résultats de la requête :

RecordSt As Recordset

Dim dBase comme base de données

stringSQL Dim As String

RCNT As Integer
3

Tapez la commande suivante pour créer la table " CityTbl ":

stringSQL = " CREATE tABLE CityTbl ( texte Ville (25) , TEXT État ( 25) ) ; "

DoCmd.RunSQL ( stringSQL )
4

Tapez la commande suivante pour ajouter deux nouveaux records à votre" CityTbl " tableau :

stringSQL = " INSERT INTO CityTbl ( [ Ville ], [ État ] ) "

stringSQL = stringSQL &" VALUES ( ' Fort Worth ', ' Texas '); "

DoCmd.SetWarnings Faux

DoCmd.RunSQL ( stringSQL )

stringSQL = "INSERT INTO CityTbl ( [ Ville ], [ État ] ) "

stringSQL = stringSQL & " VALUES (' Dallas ', ' Texas '); "

DoCmd.SetWarnings Faux

DoCmd.RunSQL ( stringSQL )
5

tapez la commande suivante pour définir votre requête et ouvrez vos enregistrements:
< p > stringSQL = "SELECT * FROM CityTbl CityTbl ; ».

Set RecordSt = dBase.OpenRecordset ( stringSQL )
6

Tapez la commande suivante pour créer une " boucle For " et montrez votre résultats de la requête par le biais d'une boîte de Message: Bonjour,

RecordSt.MoveFirst

RCNT = 0 To RecordSt.RecordCount

MsgBox ( RecordSt.Fields («Ville» ) Valeur & ". , "& RecordSt.Fields ( « État » ) . Value)

RecordSt.MoveNext

Suivant RCNT

Appuyez sur" F5 " pour exécuter la sous-routine .