Cuestión : Ms Access cómo I funciona con una pregunta basada de una tabla

¿Cómo puedo funcionar con tiempos múltiples de una pregunta con el parámetro que es una tabla?  El IE I tiene una tabla con 10 entradas y quisiera que la pregunta funcionara 10 por una para cada entry. class= del

Respuesta : Ms Access cómo I funciona con una pregunta basada de una tabla

No estoy enteramente claro en lo que usted quiere hacer, pero aquí soy un cierto código que crea un informe filtrado para cada expediente en 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 secundario privado ()
'Creado por Helen Feddema 17-Jan-2010
'Last modified 16-Mar-2010

En el error ErrorHandler indicado

   strQuery dévil como secuencia
   strContactName dévil como secuencia
   strFileName dévil como secuencia
   strReport dévil como secuencia
   strCurrentPath dévil como secuencia
   strFileNameAndPath dévil como secuencia
   lngID dévil como de largo
   Rpt dévil como Access.Report
   rstContacts déviles como DAO.Recordset
   strRecordSource dévil como secuencia
   strSQL dévil como secuencia
   
   strRecordSource = “tblContacts”
   Fijar los dbs = CurrentDb
   Fijar los rstContacts = dbs.OpenRecordset (los “tblContacts”)
   strCurrentPath = Application.CurrentProject.Path y “\”
   
   'Este informe tiene qrySingleContact como su fuente de registro
   strReport = “rptContact”
   strQuery = “qrySingleContact”
   
   Con los rstContacts
      Hacer mientras que no .EOF
         ¡lngID =! [ContactID]
         ¡strContactName =! ¡[FirstName] y ““y! [LastName]
         Debug.Print la “que procesa identificación del contacto” y el lngID
         strFileName = “informe para” y strContactName y “.pdf”
         strFileNameAndPath = strCurrentPath y strFileName
         Nombre de fichero y trayectoria de Debug.Print “: ” y strFileNameAndPath
         
         'Crear la pregunta filtrada
         el strSQL = “SELECCIONA * DE” y strRecordSource y “DONDE” el _
            y “[ContactID] =” y lngID y “; ”
         Debug.Print “SQL para” y strQuery y “: ” y strSQL
         lngCount = CreateAndTestQuery (strQuery, strSQL)
         Debug.Print “No. de artículos encontró: ” y lngCount
         Si lngCount = 0 entonces
            NextContact indicado
         Terminar si
   
         'Imprimir el informe de encargo
         DoCmd.OpenReport ReportName: =strReport, visión: =acViewDesign
         Fijar rpt = los informes (el strReport)
         rpt.RecordSource = strSQL
         DoCmd.OpenReport ReportName: =strReport, visión: =acViewNormal
         
NextContact:
      Lazo
   Extremo con
   
ErrorHandlerExit:
   Salir el submarino

ErrorHandler:
   No. del error de MsgBox “: ” Y Err.Number y “; Descripción: ” Y Err.Description
   Curriculum vitae ErrorHandlerExit

Submarino del extremo
Otras soluciones  
 
programming4us programming4us