Questione : L$signora Access come la I fa funzionare una domanda basata fuori da una tabella

Come posso fare funzionare i tempi multipli di domanda con il parametro che è una tabella?  Lo IE I ha una tabella con 10 voci e voglio la domanda fare funzionare 10 volte una per ogni entry. class= del

Risposta : L$signora Access come la I fa funzionare una domanda basata fuori da una tabella

Non sono interamente chiaro su che cosa volete fare, ma qui sono un certo codice che genera un rapporto filtrato per ogni annotazione in 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 secondario riservato ()
'Generato da Helen Feddema 17-Jan-2010
'Last modified 16-Mar-2010

Sull'errore ErrorHandler di avanzamento

   strQuery fioco come stringa
   strContactName fioco come stringa
   strFileName fioco come stringa
   strReport fioco come stringa
   strCurrentPath fioco come stringa
   strFileNameAndPath fioco come stringa
   lngID fioco come lungamente
   Rpt fioco come Access.Report
   rstContacts fiochi come DAO.Recordset
   strRecordSource fioco come stringa
   strSQL fioco come stringa
   
   strRecordSource = “tblContacts„
   Regolare i dbs = CurrentDb
   Regolare i rstContacts = dbs.OpenRecordset (“tblContacts„)
   strCurrentPath = Application.CurrentProject.Path & “\„
   
   'Questo rapporto ha qrySingleContact come relativa fonte record
   strReport = “rptContact„
   strQuery = “qrySingleContact„
   
   Con i rstContacts
      Fare mentre non .EOF
         lngID =! [ContactID]
         strContactName =! [FirstName] & ““&! [LastName]
         Debug.Print “che proceda identificazione del contatto„ & lngID
         strFileName = “rapporto per„ & strContactName & “.pdf„
         strFileNameAndPath = strCurrentPath & strFileName
         Nome di schedario e percorso di Debug.Print “: „ & strFileNameAndPath
         
         'Generare la domanda filtrata
         lo strSQL = “SELEZIONA * A PARTIRE„ & strRecordSource & “DOVE„ _
            & “[ContactID] =„ & lngID & “; „
         Debug.Print “SQL per„ & strQuery & “: „ & strSQL
         lngCount = CreateAndTestQuery (strQuery, strSQL)
         Debug.Print “no. degli articoli ha trovato: „ & lngCount
         Se lngCount = 0 allora
            NextContact di avanzamento
         Concluder se
   
         'Stampare il rapporto su ordinazione
         DoCmd.OpenReport ReportName: =strReport, vista: =acViewDesign
         Regolar rpt = rapporti (strReport)
         rpt.RecordSource = strSQL
         DoCmd.OpenReport ReportName: =strReport, vista: =acViewNormal
         
NextContact:
      Ciclo
   Estremità con
   
ErrorHandlerExit:
   Uscire il sommergibile

ErrorHandler:
   No. di errore di MsgBox “: „ & Err.Number & “; Descrizione: „ & Err.Description
   Riassunto ErrorHandlerExit

Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us