Question : Mme Access comment I courent une question basée outre d'une table

Comment est-ce que je peux courir des temps multiples d'une question avec le paramètre étant une table ?  IE I ont une table avec 10 entrées et je veux que la question coure 10 fois une pour chaque entry. class= de

Réponse : Mme Access comment I courent une question basée outre d'une table

Je ne suis pas entièrement certain sur ce que vous voulez faire, mais voici un certain code qui crée un rapport filtré pour chaque disque dans un recordset :
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :
59 :
60 :
61 :
62 :
63 :
64 :

PrintCustomReports secondaire privé ()
'Créé par Helen Feddema 17-Jan-2010
'Last modified 16-Mar-2010

Sur l'erreur ErrorHandler GoTo

   Faible strQuery comme corde
   Faible strContactName comme corde
   Faible strFileName comme corde
   Faible strReport comme corde
   Faible strCurrentPath comme corde
   Faible strFileNameAndPath comme corde
   Faible lngID en tant que longtemps
   Faible RPT comme Access.Report
   Faibles rstContacts comme DAO.Recordset
   Faible strRecordSource comme corde
   Faible strSQL comme corde
   
   strRecordSource = « tblContacts »
   Placer les dbs = le CurrentDb
   Placer les rstContacts = le dbs.OpenRecordset (les « tblContacts »)
   strCurrentPath = Application.CurrentProject.Path et « \ »
   
   'Ce rapport a le qrySingleContact en tant que sa source record
   strReport = « rptContact »
   strQuery = « qrySingleContact »
   
   Avec des rstContacts
      Faire tandis que pas .EOF
         lngID = ! [ContactID]
         strContactName = ! [FirstName] et « « et ! [LastName]
         Debug.Print « traitant l'identification de contact » et le lngID
         strFileName = « rapport pour » et strContactName et « .pdf »
         strFileNameAndPath = strCurrentPath et strFileName
         Nom de fichier et chemin de Debug.Print « :  » et strFileNameAndPath
         
         'Créer la question filtrée
         le strSQL = « CHOISISSENT * À PARTIR » et strRecordSource et « OÙ » le _
            et « [ContactID] = » et lngID et « ;  »
         Debug.Print « SQL pour » et strQuery et « :  » et strSQL
         lngCount = CreateAndTestQuery (strQuery, strSQL)
         Numéro de Debug.Print le « des articles a trouvé :  » et lngCount
         Si lngCount = 0 puis
            NextContact GoTo
         Finir si
   
         'Imprimer le rapport de douane
         DoCmd.OpenReport ReportName : =strReport, vue : =acViewDesign
         Placer RPT = rapports (le strReport)
         rpt.RecordSource = strSQL
         DoCmd.OpenReport ReportName : =strReport, vue : =acViewNormal
         
NextContact :
      Boucle
   Extrémité avec
   
ErrorHandlerExit :
   Sortir le sous-marin

ErrorHandler :
   No. d'erreur de MsgBox « :  » Et Err.Number et « ; Description :  » Et Err.Description
   Résumé ErrorHandlerExit

Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us