Vraag : MS-Access hoe ik in werking een vraag stel van een lijst wordt gebaseerd die

Hoe kan ik een vraag veelvoudige tijden met de zijn parameter die een lijst in werking stellen?  D.w.z. heb ik een lijst met 10 ingangen en ik wil de vraag 10 keer voor elke entry. in werking stellen

Antwoord : MS-Access hoe ik in werking een vraag stel van een lijst wordt gebaseerd die

Ik ben niet volledig duidelijk op wat u wilt doen, maar hier ben één of andere code die tot een gefiltreerd rapport voor elk verslag in een recordset leidt:
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:

Privé SubPrintCustomReports ()
'Gecre�ërd door Helen Feddema 17-januari-2010
'Duur gewijzigde 16-in de war brengen-2010

Op Fout GoTo ErrorHandler

   Schemerige strQuery als Koord
   Schemerige strContactName als Koord
   Schemerige strFileName als Koord
   Schemerige strReport als Koord
   Schemerige strCurrentPath als Koord
   Schemerige strFileNameAndPath als Koord
   Schemerige lngID zoals lang
   Schemerige rpt als Access.Report
   Schemerige rstContacts als DAO.Recordset
   Schemerige strRecordSource als Koord
   Schemerige strSQL als Koord
   
   strRecordSource = „tblContacts“
   Reeks dbs = CurrentDb
   Reeks rstContacts = dbs.OpenRecordset („tblContacts“)
   strCurrentPath = Application.CurrentProject.Path & „\“
   
   'Dit rapport heeft qrySingleContact als zijn verslagbron
   strReport = „rptContact“
   strQuery = „qrySingleContact“
   
   Met rstContacts
      Doe terwijl niet .EOF
         lngID =! [ContactID]
         strContactName =! [FirstName] & „„&! [LastName]
         Debug.Print „identiteitskaart van het Contact van de Verwerking“ & lngID
         strFileName = „Rapport voor“ & strContactName & „.pdf“
         strFileNameAndPath = strCurrentPath & strFileName
         Debug.Print „Dossier - naam en weg: “ & strFileNameAndPath
         
         'Cre�ër gefiltreerde vraag
         strSQL = „SELECTEER * VAN“ & strRecordSource & „WAAR“ _
            & „[ContactID] =“ & lngID & „; “
         Debug.Print „SQL voor“ & strQuery & „: “ & strSQL
         lngCount = CreateAndTestQuery (strQuery, strSQL)
         Debug.Print „Nr van gevonden punten: “ & lngCount
         Als lngCount = 0 toen
            GoTo NextContact
         Eind als
   
         'De douanerapport van de druk
         DoCmd.OpenReport ReportName: =strReport, Mening: =acViewDesign
         Reeks rpt = Rapporten (strReport)
         rpt.RecordSource = strSQL
         DoCmd.OpenReport ReportName: =strReport, Mening: =acViewNormal
         
NextContact:
      Lijn
   Eind met
   
ErrorHandlerExit:
   Sub van de uitgang

ErrorHandler:
   Fout Nr van MsgBox de „: “ & Err.Number & „; Beschrijving: “ & Err.Description
   Hervat ErrorHandlerExit

Beëindig Sub
Andere oplossingen  
 
programming4us programming4us