Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.03.2013, 14:55   #1
denis.ta-com
Пользователь
 
Регистрация: 16.05.2011
Сообщений: 39
Вопрос Формы и рекордсет

Доброго времени суток.
В базе есть две формы: F1 - основная и F10 - подчиненная(режим таблицы, отображает результат запроса Z1 на таблицу T1)
Запрос Z1 динамический - критерии запроса берет с формы F1 полей 1,2,3,4,5,6
После того как пользователь определиться с необходимыми строками нужно обновить данные в этих строках
Я использую такой код
Код:
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM T1 WHERE T1.P1 Between #" & Replace(CStr(Format([Forms]![F1]![Поле0], "mm/dd/yyyy hh:mm:ss")), ".", "/") & "# And #" & Replace(CStr(Format([Forms]![F1]![Поле1], "mm/dd/yyyy hh:mm:ss")), ".", "/") & "# AND T1.P2 Between " & [Forms]![F1]![Поле2] & " And " & [Forms]![F1]![Поле3] & " AND T1.P3 Between """ & [Forms]![F1]![Поле4] & """ And """ & [Forms]![F1]![Поле5] & """", dbOpenDynaset)
rs.MoveFirst
Do While Not rs.EOF
    CurrentDb.Execute "UPDATE T1 SET T1.P4 = 2 WHERE T1.P0 =" & rs.Fields("P0").Value & ""
    rs.MoveNext
Loop
Вопрос: можно ли результат с подчиненной формы F10 поместить в рекордсет т.к. sql запрос из кода выше повторяет запрос Z1, сам запрос Z1 в рекордсет засунуть не смог из за того что он динамический(если условия запроса жестко прописаны в запросе то вставляется)
Может я чего не понимаю, подскажите, пожалуйста.
denis.ta-com вне форума Ответить с цитированием
Старый 28.03.2013, 22:55   #2
Myhaylo
Форумчанин
 
Регистрация: 19.07.2012
Сообщений: 520
По умолчанию

Из главной формы:

Dim rs As DAO.Recordset
Set rs = Имя_ЭлементаУправления_ПодчинённаяФ орма_отчёт.Form.RecordSetClone
Окупант, руки прочь от Украины!!! Слава Героям!
Myhaylo вне форума Ответить с цитированием
Старый 29.03.2013, 08:42   #3
denis.ta-com
Пользователь
 
Регистрация: 16.05.2011
Сообщений: 39
По умолчанию

Myhaylo спасибо, все понял, использую.
denis.ta-com вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Из рекордсет в таблицу gluk_fm Microsoft Office Access 12 03.12.2012 13:39
Как мне из формы, генерить другие формы, нажимая на кнопку? RISagitov Microsoft Office Excel 5 21.05.2012 00:57
Выборка данных в рекордсет из диапазона. Kveldulv Microsoft Office Excel 1 15.03.2010 14:24
Заголовок Child формы имеет цвет неактивной формы, хотя форма активна? PrimaryPro Общие вопросы Delphi 0 12.03.2010 11:12
как привязать размеры содержимого формы к размерам самой формы acid_bmstu Общие вопросы Delphi 4 05.02.2010 05:02