Discussion :

[luc pic]

Bonjour à tous,
Est-il possible de lancer par une procedure, une requête SÉLECTION elle même ecrite dans la procedure sous forme de 'Texte SQL' (comme on le fait avec une requete action), sans qu'elle n'est été au préalable enregistrée et nommée.

Elle n'est donc pas dans le volet de recherche Access.

En fait, peut-on obtenir le même résultat par du code que celui obtenu par un db-Clic sur le nom d'une requete figurant dans le volet de recherche et qui affiche le résultat du 'Select' sous forme de 'Feuille de données ?
L.P

[ClaudeLELOUP]

Bonjour,

Voici un exemple de code pour créer la requête et l'exécuter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub Exemple()
Dim sSql As String
Dim qy As QueryDef
 
sSql = "SELECT VINS.DENOMINATION, VINS.APPELLATION, VINS.CATEGORIE " _
       & "FROM VINS " _
       & "WHERE (((VINS.APPELLATION) = ""BORDEAUX"") And ((VINS.CATEGORIE) Is Not Null)) " _
       & "ORDER BY VINS.DENOMINATION;"
 
Set qy = CurrentDb.CreateQueryDef("temp", sSql)
 
DoCmd.OpenQuery "temp"
 
'Libérer la mémoire
Set qy = Nothing
 
End Sub

[luc pic]

Extra. .
Salut et encore Merci.