Discussion :

[Invité]

Boujour à tous,

Je suis sous access 2003.

j'ai un fichier access avec une centaine de requêtes qui s'appelle entre elle... c'est le bazard et je voudrais un peu nettoyer la base.

Existe t'il une solution pour savoir quelles requêtes sont utilisées ou inutilisées hormis la fonction dépendance de l'objet?

Merci pour votre aide.

[Jean-Philippe André]

Bonjour,
il faut décomposer le problème comme suit :
1/ créer une table intermédiaire avec deux champs
T_Used_Queries
QryName (texte)
Used (oui/non)

2/ Remplir la dite table
exemple :

Code :

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

1
2
3
4
Dim tempqry as QueryDef
For Each tempqry in CurrentDb.QueryDefs
CurrentDb.Execute "INSERT INTO T_Used_Queries (QryName,Used) VALUES '" & tempqry.Name & "',0)"
Next

3/ parcourir le code SQL des requêtes et cocher celle dont le nom apparait dans le SQL.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim RS as DAO.Recordset
Dim strSQL as String
Dim tempqry as QueryDef
strSQL = "SELECT QryName FROM T_Used_Queries"
Set RS = CurrentDb.OpenRecordSet(strSQL)
Do Until RS.EOF
For Each tempqry in CurrentDb.QueryDefs
If Instr(1,tempqry.SQL,RS!QryName)>0 Then
CurrentDb.Execute "UPDATE T_Used_Queries SET Used=-1 WHERE QryName='" & RS!QryName & "'"
Next
RS.MoveNext
Loop

Tu auras à la fin la liste des Requetes qui sont appelées par d'autres dans T_Used_Queries

[Invité]

Merci pour ton aide jpcheck

ca marche nickel!