Вопрос : Госпожа Доступ как I бежит вопрос основанный с таблицы

Как могу я побежать времена вопроса множественные при параметр таблицей?  Ie iий имеет таблицу с 10 входами и я хочу вопрос побежать 10 раз одно для каждого entry. class=

Ответ : Госпожа Доступ как I бежит вопрос основанный с таблицы

Я не вс ясн на вы хотите сделать, но здесь буду некоторым Кодим которое создает фильтрованный рапорт для каждого показателя в 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:

Приватное Sub PrintCustomReports ()
'Создано Хелен Feddema 17-Jan-2010
'Последнее доработанное 16-Mar-2010

На ошибке переход ErrorHandler

   Тусклое strQuery как шнур
   Тусклое strContactName как шнур
   Тусклое strFileName как шнур
   Тусклое strReport как шнур
   Тусклое strCurrentPath как шнур
   Тусклое strFileNameAndPath как шнур
   Тусклое lngID как длиной
   Тусклый rpt как Access.Report
   Тусклые rstContacts как DAO.Recordset
   Тусклое strRecordSource как шнур
   Тусклое strSQL как шнур
   
   strRecordSource = «tblContacts»
   Установите dbs = CurrentDb
   Установите rstContacts = dbs.OpenRecordset («tblContacts»)
   strCurrentPath = Application.CurrentProject.Path & «\»
   
   'Этот рапорт имеет qrySingleContact как свой рекордный источник
   strReport = «rptContact»
   strQuery = «qrySingleContact»
   
   С rstContacts
      Сделайте пока не .EOF
         lngID =! [ContactID]
         strContactName =! [FirstName] & ««&! [LastName]
         Debug.Print «обрабатывая удостоверение личности контакта» & lngID
         strFileName = «рапорт для» & strContactName & «.pdf»
         strFileNameAndPath = strCurrentPath & strFileName
         Архив Debug.Print «- имя и курс: » & strFileNameAndPath
         
         'Создайте фильтрованный вопрос
         strSQL = «ВЫБИРАЕТ * ОТ» & strRecordSource & «ГДЕ» _
            & «[ContactID] =» & lngID & «; »
         Debug.Print «SQL для» & strQuery & «: » & strSQL
         lngCount = CreateAndTestQuery (strQuery, strSQL)
         No Debug.Print «деталей нашло: » & lngCount
         Если lngCount = 0 после этого
            Переход NextContact
         Закончитесь если
   
         'Напечатайте изготовленный на заказ рапорт
         DoCmd.OpenReport ReportName: =strReport, взгляд: =acViewDesign
         Установите rpt = рапорты (strReport)
         rpt.RecordSource = strSQL
         DoCmd.OpenReport ReportName: =strReport, взгляд: =acViewNormal
         
NextContact:
      Петля
   Конец с
   
ErrorHandlerExit:
   Выходите подводная лодка

ErrorHandler:
   Нет ошибки MsgBox «: » & Err.Number & «; Описание: » & Err.Description
   Резюме ErrorHandlerExit

Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us