La question n'est pas très précise.
Il y a deux sujets :
1. Exécution d'une requête
2. Affichage des résultats d'une requête
S'il s'agit d'ouvrir une requête stockée dans l'onglet des requêtes et de faire afficher les résultats dans une fenêtre qui s'ouvre automatiquement, alors faire :
DoCmd.OpenQuery "nom_de_la_query_stockee", acViewNormal, acReadOnly |
S'il s'agit d'éxécuter une requête qui a été créée à la volée en VBA, et d'avoir les résultats dans des recordset, dont les parties vont être copiées dans des champs d'un formulaire, alors faire :
SQL_ligne = "SELECT TITI, TATA" & _
" FROM TUTU " & _
"WHERE TOTO = " & "'" & variable_toto & "';"
' MsgBox (SQL_ligne) ' debug
Set bds = CurrentDb
Set rst = bds.OpenRecordset(SQL_ligne)
Do While (Not rst.EOF)
Me![champ_un] = rst![TITI]
Me![champ_deux] = rst![TATA]
rst.MoveNext
Loop
rst.Close |
