Discussion :

[voxov]

Bonjour,

Une question classique: comment afficher un recordset à l'état brut, directement ?

Précisions:
- "à l'état brut", je veux dire: comme une table
- "directement", je veux dire: sans passer par l'intermédiaire d'une table (cfr. infra)
- le recordset est rempli par une requête SQL qui se trouve dans le code VBA:

Code :

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

1
2
3
 
MyQuery = "Select * From MyTable;"
Set MyRecset = OpenRecordset(MyQuery)

Et là, je veux afficher le résultat comme dans une simple table.

Est-ce possible ? Comment faire ?


Bien sûr, il y a un autre moyen pour afficher le résultat comme dans une simple table, MAIS il faut passer par l'intermédiaire d'une table:

Code :

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

1
2
3
4
5
6
7
 
'1. créer et remplir une table avec le résultat de la requête:
MyQuery = "Select * Into MyTempTable From MyTable;"
DoCmd.RunSQL (MyQuery)
 
'2. afficher la table = afficher le résultat de la requête
DoCmd.OpenTable MyTempTable, acViewNormal, acReadOnly

Alors y a-t-il un moyen pour éviter de créer cette table qui ne sert qu'à afficher le résultat de la requête ?

D'avance, merci.

[nico84]

Bonjour,

C'est la commande openquery :

Code :

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

DoCmd.OpenQuery Myquery

[voxov]

Le query n'est pas un query Access, c'est du SQL:

Code :

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

MyQuery = "Select * From MyTable;"

[nico84]

Oui c'est pareil ou alors j'ai pas compris la question

[tee_grandbois]

bonsoir,

Alors y a-t-il un moyen pour éviter de créer cette table qui ne sert qu'à afficher le résultat de la requête ?

RunSql est utilisable uniquement avec des requêtes action, comme tu as pu le remarquer
OpenQuery nécessite, en effet, que la requête soit enregistrée (collection Querydefs)
donc une solution toute simple n'existe pas sauf à passer par un sous-formulaire ou créer une table ou une requête.
Pour la table, tu sais comment faire, pour la requête voici la méthode:

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
18
19
20
21
22
23
24
25
26
27
28
Sub CreeRequeteTempo()
    Dim strNomRequete As String, strSQL As String
 
 On Error GoTo GestErr
    strNomRequete = "rq_Affichematable"
    strSQL = "SELECT * FROM matable;"
 
    With CurrentDb
        .QueryDefs.Delete strNomRequete
        .CreateQueryDef strNomRequete, strSQL
    End With
	' on affiche la requête et on la supprime dans la foulée 
    DoCmd.OpenQuery strNomRequete
    CurrentDb.QueryDefs.Delete strNomRequete
 
' Rafraichir la fenêtre base de données
RefreshDatabaseWindow
 
GestErr:
If err <> 0 Then
    Select Case err
    Case 3265    ' élément non trouvé dans la collection car requête non trouvée
        Resume Next
    Case Else
        MsgBox err.Number & "-" & err.DESCRIPTION
    End Select
End If
End Sub

[voxov]

En résumé:

• pour afficher le résultat d'une requête de sélection, il faut un querydef

• c'est valable avec ou sans totaux ou autres regroupements (Group by)

• quand la requête (de départ) est en SQL, il faut soit la mettre dans un querydef et exécuter ce querydef (voir le post de tee_grandbois), soit l'exécuter et mettre le résultat dans une table puis afficher la table

• note: pour les requêtes crosstab (Transform ... en SQL), Access ne permet pas de querydef avec des paramètres, et donc là il faut passer par du SQL et utiliser l'une des deux techniques du point précédent

• afficher un recordset (qui p.ex. aurait reçu le résultat de l'exécution de la requête SQL) n'est pas possible, semble-t-il

Merci à tous pour vos contributions.

[ONTAYG]

Bonjour,

Je viens après la bataille, mais peut-être un autre piste :

https://arkham46.developpez.com/arti...s/msdatashape/

ONTAYG