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
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
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
je tape cela ou
exemple si j'ai comme fichiers :
bill
bob
paul
je fais comment
merci
Tu colles le code dans un module ... tu sauvegardes ...
et tu exécutes la procédure : MakeReportsFromQueries
Envoyé par isodoro
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager