Comment accéder à des résultats de requête de VBA

Instructions

1. Démarrez Microsoft Office Access 2007, puis sélectionnez "Base de données vide," puis cliquez sur "Créer." Cliquez "Base de données Outils" et sélectionnez "Visual Basic." Clique le "Insérer" champ et sélectionnez "Module".

   Type "Sous readQueryResults privées" et appuyez sur "Entrer" pour créer un nouveau sous-programme.

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

   Dim RecordSt Comme d'enregistrements

   Dim dBase Comme base de données

   Dim stringSQL As String

   Dim RCNT As Integer

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

   stringSQL = "CREATE TABLE CityTbl (Ville TEXTE (25), TEXTE État (25)) -"

   
   
   
   

   DoCmd.RunSQL (stringSQL)

4. Tapez la commande suivante pour ajouter deux nouveaux records à votre "CityTbl" table:

   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 recherche et ouvrez votre enregistrements:

   stringSQL = "SELECT CityTbl. * FROM CityTbl-"

   Réglez RecordSt = dBase.OpenRecordset (stringSQL)

6. Tapez la commande suivante pour créer un "Pour Boucle" et afficher les résultats de votre requête à travers une boîte de message:

   RecordSt.MoveFirst

   Pour RCNT = 0 Pour RecordSt.RecordCount

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

   RecordSt.MoveNext

   RCNT Suivant

   Appuyez "F5" à exécuter le sous-programme.