Discussion :

[fevec]

Bonjour à tous,
Pour résoude un pb de performances de requête SQL, philben m'a proposé ce code

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
Dim oRq As AccessObject
   On Error GoTo errtag
   DoCmd.RunSQL "delete * from tmp" 'réinitialise la table temporaire
   For Each oRq In Application.CurrentData.AllQueries
      If oRq.Name Like "ENQUETE1_NB*" Then
         DoCmd.RunSQL "INSERT INTO Tmp SELECT * From " & oRq.Name
         DoEvents
      End If
   Next oRq
fin:
   Set oRq = Nothing
   Exit Sub
errtag:
Debug.Print Err.Number, Err.Description
Debug.Print oRq.Name
   Resume fin

Mais, je bloque pour trouver la syntaxe adéquate pour Access97....
en effet,

Code :

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

1
2
3
Dim oRq As AccessObject
 ....
 For Each oRq In Application.CurrentData.AllQueries

ne fonctionne pas en Access97

J'ai fait des recherches par les collections, par les containers...mais cela me dépasse et je patauge grave !

bien cordialement,
fevec

[fevec]

La réponse donnée par Lou Pitchoun que je remercie vivement

Code :

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

1
2
3
4
5
6
7
8
9
    Dim qry As QueryDef
    For Each qry In CurrentDb.QueryDefs
         If qry.Name like "ENQUETE1_NB*" then
            ' traitement
        end if
 
 
         ' Traitement
    Next

a+

fevec