Pytanie : Ms Przystępować jak I biegać zapytanie opierać się z stół

Dlaczego móc I zapytanie wieloskładnikowy czas z the parametr stół?  Ie I mieć stół z 10 wejście i I chcieć the zapytanie 10 razy jeden dla jeden entry.

Odpowiedź : Ms Przystępować jak I biegać zapytanie opierać się z stół

I być zupełnie jasny na nie ty chcieć, ale tutaj być niektóre kod który tworzyć filtrować raport dla filtrować rejestr w 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:

Intymny Okręt podwodny PrintCustomReports ()
'Tworzyć Helen Feddema 17-Jan-2010
'Ostatni zmodyfikowany 16-Mar-2010

Na Błąd Rozpoczynający ErrorHandler

   Ciemnawy strQuery Sznurek
   Ciemnawy strContactName Sznurek
   Ciemnawy strFileName Sznurek
   Ciemnawy strReport Sznurek
   Ciemnawy strCurrentPath Sznurek
   Ciemnawy strFileNameAndPath Sznurek
   Ciemnawy lngID Długo
   Ciemnawy rpt Jako Access.Report
   Ciemnawy rstContacts Jako DAO.Recordset
   Ciemnawy strRecordSource Sznurek
   Ciemnawy strSQL Sznurek
   
   strRecordSource = "tblContacts"
   Ustalony dbs = CurrentDb
   Ustalony rstContacts = dbs.OpenRecordset ("tblContacts")
   strCurrentPath = Application.CurrentProject.Path & "\"
   
   'Ten raport mieć qrySingleContact jako swój dokumentacyjny źródło
   strReport = "rptContact"
   strQuery = "qrySingleContact"
   
   Z rstContacts
      Robić Podczas Gdy Nie .EOF
         lngID =! [ContactID]
         strContactName =! [FirstName] & ""&! [LastName]
         Debug.Print "Kontakt ID" & lngID
         strFileName = "Raport dla" & strContactName & ".pdf"
         strFileNameAndPath = strCurrentPath & strFileName
         Debug.Print "Kartoteka - imię i ścieżka: " & strFileNameAndPath
         
         'Tworzyć filtrować zapytanie
         strSQL = "WYBIÓRKA * OD" & strRecordSource & "DOKĄD" _
            & "[ContactID] =" & lngID & "; "
         Debug.Print "SQL dla" & strQuery & ": " & strSQL
         lngCount = CreateAndTestQuery (strQuery, strSQL)
         Debug.Print "No. rzecz zakładać: " & lngCount
         Jeżeli lngCount = (0) Wtedy
            Rozpoczynający NextContact
         Kończyć Jeżeli
   
         'Drukować obyczajowy raport
         DoCmd.OpenReport ReportName: =strReport, Widok: =acViewDesign
         Set rpt = Donosić (strReport)
         rpt.RecordSource = strSQL
         DoCmd.OpenReport ReportName: =strReport, Widok: =acViewNormal
         
NextContact:
      Pętla
   Końcówka Z
   
ErrorHandlerExit:
   Wyjście Okręt podwodny

ErrorHandler:
   MsgBox "Błąd Nie: " & Err.Number & "; Opis: " & Err.Description
   Życiorys ErrorHandlerExit

Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us