Discussion :

[isodoro]

salut

voila j'ai plusieurs requêtes, je voulais savoir si par le biais d'une manipulation on pouvait les trasnformer en etats.

car je n'ai pas le courage de le faire manuellement, 1 par 1

merci

[cafeine]

Hello,

un exemple de code qui fait ça (vite fait).

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
Sub MakeReportsFromQueries()
 
Dim qd As DAO.QueryDef
Dim strOldName As String
 
For Each qd In CurrentDb.QueryDefs
    ' on ne traite que les requêtes selection
    If qd.Type = dbQSelect And Not (qd.Name Like "~*") Then
        DoCmd.SelectObject acQuery, qd.Name, True
        DoCmd.RunCommand acCmdNewObjectAutoReport
        strOldName = Reports(0).Name
        DoCmd.Close acReport, Reports(0).Name, acSaveYes
        DoCmd.Rename "AutoReport - " & qd.Name, acReport, strOldName
    End If
Next qd
 
Set qd = Nothing
End Sub

[isodoro]

je tape cela ou

exemple si j'ai comme fichiers :

bill
bob
paul


je fais comment


merci

[cafeine]

Tu colles le code dans un module ... tu sauvegardes ...

et tu exécutes la procédure : MakeReportsFromQueries

je tape cela ou

exemple si j'ai comme fichiers :

bill
bob
paul


je fais comment


merci