Frage : Frau Access, wie I eine Frage laufen lassen, die weg von einer Tabelle gegründet wird

Wie kann ich mehrfache Zeiten einer Frage mit dem Parameter laufen lassen, der eine Tabelle ist?  IE I haben eine Tabelle mit 10 Einträgen und ich wünsche die Frage 10 mal eine für jedes entry. laufen lassen

Antwort : Frau Access, wie I eine Frage laufen lassen, die weg von einer Tabelle gegründet wird

Ich bin nicht völlig frei auf, was Sie tun möchten, aber bin hier irgendein Code, der einen gefilterten Report für jede Aufzeichnung in einem recordset verursacht:
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:
6:
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:

Privates VorPrintCustomReports ()
'Verursacht durch Helen Feddema 17-Jan-2010
'Last modified 16-Mar-2010

Auf Störung Goto- ErrorHandler

   Schwaches strQuery als Schnur
   Schwaches strContactName als Schnur
   Schwaches strFileName als Schnur
   Schwaches strReport als Schnur
   Schwaches strCurrentPath als Schnur
   Schwaches strFileNameAndPath als Schnur
   Schwaches lngID als lang
   Schwacher rpt als Access.Report
   Schwache rstContacts als DAO.Recordset
   Schwaches strRecordSource als Schnur
   Schwaches strSQL als Schnur
   
   strRecordSource = „tblContacts“
   Dbs = CurrentDb einstellen
   rstContacts = dbs.OpenRecordset („tblContacts“) einstellen
   strCurrentPath = Application.CurrentProject.Path u. „\“
   
   'Dieser Report hat qrySingleContact als seine Rekordquelle
   strReport = „rptContact“
   strQuery = „qrySingleContact“
   
   Mit rstContacts
      Tun während nicht .EOF
         lngID =! [ContactID]
         strContactName =! [FirstName] u. „„u.! [LastName]
         Debug.Print „, das Kontakt Identifikation“ u. lngID verarbeitet
         strFileName = „Report für“ u. strContactName u. „.pdf“
         strFileNameAndPath = strCurrentPath u. strFileName
         Debug.Print „Dateiname und Weg: “ u. strFileNameAndPath
         
         'Gefilterte Frage verursachen
         strSQL = „VORWÄHLEN * VON“ u. strRecordSource u. „u., WO“ _
            u. „[ContactID] =“ u. lngID u. „; “
         Debug.Print „SQL für“ u. strQuery u. „: “ u. strSQL
         lngCount = CreateAndTestQuery (strQuery, strSQL)
         Debug.Print „Nr. der Einzelteile fand: “ u. lngCount
         Wenn lngCount = 0 dann
            Goto- NextContact
         Beenden wenn
   
         'Zollerklärung drucken
         DoCmd.OpenReport ReportName: =strReport, Ansicht: =acViewDesign
         Einstellen rpt = Reports (strReport)
         rpt.RecordSource = strSQL
         DoCmd.OpenReport ReportName: =strReport, Ansicht: =acViewNormal
         
NextContact:
      Schleife
   Ende mit
   
ErrorHandlerExit:
   Unterseeboot herausnehmen

ErrorHandler:
   MsgBox „Störungs-Nr.: “ U. Err.Number u. „; Beschreibung: “ U. Err.Description
   Zusammenfassung ErrorHandlerExit

Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us