Pergunta : Senhora Acesso como I funciona uma pergunta baseada fora de uma tabela

Como posso eu funcionar tempos múltiplos de uma pergunta com o parâmetro que é uma tabela?  O IE I tem uma tabela com 10 entradas e eu quero a pergunta funcionar 10 vezes uma para cada entry. class= do

Resposta : Senhora Acesso como I funciona uma pergunta baseada fora de uma tabela

Eu não sou inteiramente desobstruído em o que você quer fazer, mas sou aqui algum código que cria um relatório filtrado para cada registro em um 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 secundário confidencial ()
'Criado por Helen Feddema 17-Jan-2010
'Last modified 16-Mar-2010

No erro ErrorHandler empreendedores

   strQuery não ofuscante como a corda
   strContactName não ofuscante como a corda
   strFileName não ofuscante como a corda
   strReport não ofuscante como a corda
   strCurrentPath não ofuscante como a corda
   strFileNameAndPath não ofuscante como a corda
   lngID não ofuscante como por muito tempo
   Rpt não ofuscante como Access.Report
   rstContacts não ofuscantes como DAO.Recordset
   strRecordSource não ofuscante como a corda
   strSQL não ofuscante como a corda
   
   strRecordSource = “tblContacts”
   Ajustar dbs = CurrentDb
   Ajustar rstContacts = dbs.OpenRecordset (os “tblContacts”)
   strCurrentPath = Application.CurrentProject.Path & “\”
   
   'Este relatório tem o qrySingleContact como sua fonte record
   strReport = “rptContact”
   strQuery = “qrySingleContact”
   
   Com rstContacts
      Fazer quando não .EOF
         lngID =! [ContactID]
         strContactName =! [FirstName] & ““&! [LastName]
         Debug.Print “que processa a identificação do contato” & o lngID
         strFileName = “relatório para” & strContactName & “.pdf”
         strFileNameAndPath = strCurrentPath & strFileName
         Nome de arquivo e trajeto de Debug.Print “: ” & strFileNameAndPath
         
         'Criar a pergunta filtrada
         o strSQL = “SELECIONA * DE” & strRecordSource & “ONDE” o _
            & “[ContactID] =” & lngID & “; ”
         Debug.Print “SQL para” & strQuery & “: ” & strSQL
         lngCount = CreateAndTestQuery (strQuery, strSQL)
         Debug.Print “no. dos artigos encontrou: ” & lngCount
         Se lngCount = 0 então
            NextContact empreendedores
         Terminar se
   
         'Imprimir o relatório feito sob encomenda
         DoCmd.OpenReport ReportName: =strReport, vista: =acViewDesign
         Ajustar rpt = relatórios (o strReport)
         rpt.RecordSource = strSQL
         DoCmd.OpenReport ReportName: =strReport, vista: =acViewNormal
         
NextContact:
      Laço
   Extremidade com
   
ErrorHandlerExit:
   Retirar o submarino

ErrorHandler:
   No. erro de MsgBox do “: ” & Err.Number & “; Descrição: ” & Err.Description
   Resumo ErrorHandlerExit

Submarino da extremidade
Outras soluções  
 
programming4us programming4us