Discussion :

[Vesta]

Voila je voudrais pouvoir créer une procédure qui me donnerai la structure d'une requete, les champs source, destination, les critères utilisés, etc...

J'ai cherché du coté de QueryDef et de ses Fields mais rien a faire...

Une idée?

Le résultat devrait ressembler a ce que l'on peu voir dans l'éditeur de query d'access... Pkoi pas sous excel.

[Tofalu]

La collection Fields retourne les champs.

Notez que vous pouvez différencier le nom d'un champ et son alias en utilisant la propriété SourceField de l'objet Field.

La collection Parameters, les paramètres (déclarée dans l'entete de la requête PARAMETERS ...)

[Vesta]

Mais ca ne retourne aucuns fields:

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
Sub QueryAnalyse(QueryName As String)
Dim DB As Database
Dim QryDef As QueryDef
Dim fld As Field
 
Set DB = CurrentDb
Set QryDef = DB.QueryDefs(QueryName)
Debug.Print QryDef.Type
For Each fld In QryDef.Fields
    Debug.Print fld.Name
Next fld
Debug.Print QryDef.SQL
Set QryDef = Nothing
Set DB = Nothing
 
End Sub

[Tofalu]

A mon avis tu as les deux références DAO et ADO. Modifie ton code pour utiliser DAO. Comme expliquer partout dans ce forum

Dim DB As DAO.Database
Dim QryDef As DAO.QueryDef
Dim fld As DAO.Field

[Vesta]

Ca ne change rien...

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
Sub QueryAnalyse(QueryName As String)
Dim DB As DAO.Database
Dim QryDef As DAO.QueryDef
Dim fld As DAO.Field
Dim prm As DAO.Parameter
 
Set DB = CurrentDb
Set QryDef = DB.QueryDefs(QueryName)
Debug.Print QryDef.Type
For Each fld In QryDef.Fields
    Debug.Print fld.Name
Next fld
For Each prm In QryDef.Parameters
    Debug.Print prm.Name
Next prm
 
Debug.Print QryDef.SQL
Set QryDef = Nothing
Set DB = Nothing
End Sub

[Tofalu]

Là, je ne vois pas.