Fråga : Ms Ta fram hur I kör en query som baseras av en bordlägga

Hur kan jag köra tider för en querymultipel med parametern som den är en bordlägga?  Ie I har en bordlägga med 10 tillträden, och jag önskar att queryen ska köra 10 tider en för varje entry. " klar "

Svar : Ms Ta fram hur I kör en query som baseras av en bordlägga

Förmiddag I görar klar inte helt på vad du önskar att göra, men är här någon kodifierar det skapar en filtrerad rapport för varje rekord i en 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:

Privata underPrintCustomReports ()
'Skapat av Helen Feddema 17-Jan-2010
'Last modified 16-Mar-2010

På felet GoTo ErrorHandler

   Dunkel strQuery som stränger
   Dunkel strContactName som stränger
   Dunkel strFileName som stränger
   Dunkel strReport som stränger
   Dunkel strCurrentPath som stränger
   Dunkel strFileNameAndPath som stränger
   Dunkel lngID som Long
   Dunkel rpt som Access.Report
   Dunkla rstContacts som DAO.Recordset
   Dunkel strRecordSource som stränger
   Dunkel strSQL som stränger
   
   strRecordSource = ”tblContacts”,
   Fastställda dbs = CurrentDb
   Fastställda rstContacts = dbs.OpenRecordset (”tblContacts”)
   strCurrentPath = Application.CurrentProject.Path & ”\”,
   
   'Denna rapport har qrySingleContact som dess rekord- källa
   strReport = ”rptContact”,
   strQuery = ”qrySingleContact”,
   
   Med rstContacts
      Gör stunder inte .EOF
         lngID =! [ContactID]
         strContactName =! [FirstName] & ””&! [LastName]
         Debug.Print ”som bearbetar kontaktLEGITIMATION” & lngID
         strFileName = ”rapport för” & strContactName & ”.pdf”,
         strFileNameAndPath = strCurrentPath & strFileName
         Debug.Print ”sparar - namnge och banan: ” & strFileNameAndPath
         
         'Skapa den filtrerade queryen
         strSQL = ”VÄLJER * FRÅN” & strRecordSource & ”VAR” _,
            & ”[ContactID] =” & lngID & ”; ”,
         Debug.Print ”SQL för” & strQuery & ”: ” & strSQL
         lngCount = CreateAndTestQuery (strQuery, strSQL)
         Debug.Print ”No. av objekt grundar: ” & lngCount
         Om lngCount = 0 därefter
            GoTo NextContact
         Avsluta om
   
         'Skriv ut den beställnings- rapporten
         DoCmd.OpenReport ReportName: =strReport beskådar: =acViewDesign
         Uppsättningen rpt = anmäler (strReport)
         rpt.RecordSource = strSQL
         DoCmd.OpenReport ReportName: =strReport beskådar: =acViewNormal
         
NextContact:
      Kretsa
   Avsluta med
   
ErrorHandlerExit:
   Gå ut suben

ErrorHandler:
   MsgBox ”felnr.: ” & Err.Number & ”; Beskrivning: ” & Err.Description
   Meritförteckning ErrorHandlerExit

Avsluta suben
Andra lösningar  
 
programming4us programming4us