ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Где добыть RowSource незагруженных форм?
15 сообщений из 15, страница 1 из 1
Где добыть RowSource незагруженных форм?
    #32258789
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лифчик
Участник
Сунулся я в коллекцию
Код: plaintext
1.
2.
3.
Dim frm As AccessObject
For Each frm In Application.CurrentProject.AllForms
Debug.Print frm.Name
Next frm

а там одни имена и еще пара дурацких свойств. А где нарыть Роусоурсе?

И вабще может я не за тот конецц дергаю? - сверхзадача: убрать ненужные сохраненные запросы, которые я наплодил, будучи во младенческом состоянии. В коде я их найду, а ведь еще есть как Роусорс.

Сейчас под стол вроде не хожу, но в постель делаю иногда, поэтому звиняйте за дурацкий вопрос.
...
Рейтинг: 0 / 0
08.09.2003, 16:15
| Ответить | Цитировать | Написать  
Где добыть RowSource незагруженных форм?
    #32258820
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
источник данных это свойство формы - ищи в коллекции properties каждой формы
...
Рейтинг: 0 / 0
08.09.2003, 16:28
| Ответить | Цитировать | Написать  
Где добыть RowSource незагруженных форм?
    #32258822
Shkurenko Alexander
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shkurenko Alexander
Участник
Прежде чем обратится к свойствам формы, нужно предварительно ее открыть. Можно при этом ее не показывать(Hidden). Например

DoCmd.Open name_form
Debug.Print Forms(name_form).RowSource
...
Рейтинг: 0 / 0
08.09.2003, 16:29
| Ответить | Цитировать | Написать  
Где добыть RowSource незагруженных форм?
    #32258828
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
Можно при этом ее не показывать(Hidden).
А можно и в режиме конструктора
DoCmd.OpenForm "aaa",acDesign,,,,acHidden
, чтобы не отрабатывались всякие Load/Open/Close...
...
Рейтинг: 0 / 0
08.09.2003, 16:34
| Ответить | Цитировать | Написать  
Где добыть RowSource незагруженных форм?
    #32258852
Дмитрий Басовский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий Басовский
Гость
Когда-то подобная проблема решалась следующим образом (подходит только для Баз данных, для проектов - нужно переписывать):

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
    For DC =  0  To CurrentDb.Containers( "Forms" ).Documents.Count -  1 
        NM = CurrentDb.Containers( "Forms" ).Documents(DC).Name
        DoCmd.OpenForm NM, acDesign, , , , acHidden
        Set frm = Forms(NM)
        ' Записываем запрос в базу данных или анализируем его
        ' NM - Имя формы
        ' frm.RecordSource - Запрос от формы
        .....
        ' Проверяем на наличие в контролах запросов
        For Each ctl In frm.Controls
            If acListBox = ctl.ControlType Or acComboBox = ctl.ControlType Then
                ' Записываем запрос в базу данных или анализируем его
                ' NM - Имя формы
                ' ctl.ControlName - имя поля
                ' ctl.RowSource - содержимое поля
                .....
            End If
        Next
        DoCmd.Close acForm, NM, acSaveNo
    Next


Плюс данной программы - она проверяет и встроенные поля со списком
...
Рейтинг: 0 / 0
08.09.2003, 16:45
| Ответить | Цитировать | Написать  
Где добыть RowSource незагруженных форм?
    #32258860
Дмитрий Басовский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий Басовский
Гость
Она же для проектов (на работоспособность не проверял):

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
    For DC =  0  To CurrentProject.AllForms.Count -  1 
        NM = CurrentProject.AllForms(DC).Name
        DoCmd.OpenForm NM, acDesign, , , , acHidden
        Set frm = Forms(NM)
        ' Записываем запрос в базу данных или анализируем его
        ' NM - Имя формы
        ' frm.RecordSource - Запрос от формы
        '.....
        ' Проверяем на наличие в контролах запросов
        For Each ctl In frm.Controls
            If acListBox = ctl.ControlType Or acComboBox = ctl.ControlType Then
                ' Записываем запрос в базу данных или анализируем его
                ' NM - Имя формы
                ' ctl.ControlName - имя поля
                ' ctl.RowSource - содержимое поля
                '.....
            End If
        Next
        DoCmd.Close acForm, NM, acSaveNo
    Next
...
Рейтинг: 0 / 0
08.09.2003, 16:49
| Ответить | Цитировать | Написать  
Где добыть RowSource незагруженных форм?
    #32258862
Фотография Varan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Varan
Участник
Дмитрий Басовский,
Клево, мне тоже надо базу почистить...Спасибо.
...
Рейтинг: 0 / 0
08.09.2003, 16:50
| Ответить | Цитировать | Написать  
Где добыть RowSource незагруженных форм?
    #32258897
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лифчик
Участник
Понял, значит и тут обязательно открывать надо. Я то-думал втихаря можно партизанить :-(
...
Рейтинг: 0 / 0
08.09.2003, 17:02
| Ответить | Цитировать | Написать  
Где добыть RowSource незагруженных форм?
    #32258928
Shkurenko Alexander
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shkurenko Alexander
Участник
Можно попробовать и попартизанить. Смотри системные таблицы MSysQueries & MSysObjects, но как бы в этих дебрях не потеряться :).
...
Рейтинг: 0 / 0
08.09.2003, 17:15
| Ответить | Цитировать | Написать  
Где добыть RowSource незагруженных форм?
    #32258962
Фотография Varan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Varan
Участник
...и не подорвать вместо вражеского свой собственный обоз ...
...
Рейтинг: 0 / 0
08.09.2003, 17:36
| Ответить | Цитировать | Написать  
Где добыть RowSource незагруженных форм?
    #32258985
Дмитрий Басовский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий Басовский
Гость
Партизанил!!! Знаю!!! Половину объектов пропустил. А потом, когда ошибки начали сыпаться нашел в инете эти куски, подкорректировал для себя и получил готовый проект.


Кстати, ребята, не забудьте о отчетах. В них тоже могут быть запросы. Могу дать функции и для их анализа
...
Рейтинг: 0 / 0
08.09.2003, 17:47
| Ответить | Цитировать | Написать  
Где добыть RowSource незагруженных форм?
    #32259005
Фотография Varan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Varan
Участник
Дмитрий Басовский,
Точно! Естественно, там куча запросов. Напиши, если не затруднит, свою функцию.
Единственное, что меня в этом деле смущает, в коде модулей могут использоваться хранимые запросы для каких-то целей. Ни формы, ни отчеты на них не основаны. Плюс в коде запрос может динамически меняться, и в этом случае Ваша процедура никак это найти не сможет, эти запросы будут удалены и тогда кранты. Пожалуй, лучше ничего не трогать, пущай себе лежат...
...
Рейтинг: 0 / 0
08.09.2003, 17:54
| Ответить | Цитировать | Написать  
Где добыть RowSource незагруженных форм?
    #32259037
Дмитрий Басовский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий Басовский
Гость
Версия для анализа Отчетов DAO :

For DC = 0 To CurrentDb.Containers("Reports").Documents.Count - 1
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
        NM = CurrentDb.Containers( "Reports" ).Documents(DC).Name
        DoCmd.OpenReport NM, acDesign, , , acHidden
        Set rep = Reports(NM)
        ' Записываем запрос в базу данных или анализируем его
        ' NM - Имя отчета
        ' rep.RecordSource - Запрос от формы
        .....
        ' Проверяем на наличие в контролах запросов
        For Each ctl In rep.Controls
            If acListBox = ctl.ControlType Or acComboBox = ctl.ControlType Then
                ' Записываем запрос в базу данных или анализируем его
                ' NM - Имя формы
                ' ctl.ControlName - имя поля
                ' ctl.RowSource - содержимое поля
                .....
            End If
        Next
        DoCmd.Close acReport, NM, acSaveNo
    Next
...
Рейтинг: 0 / 0
08.09.2003, 18:07
| Ответить | Цитировать | Написать  
Где добыть RowSource незагруженных форм?
    #32259041
Дмитрий Басовский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий Басовский
Гость
Версия для анализа отчетов ADO :

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
    For DC =  0  To CurrentProject.AllReports.Count -  1 
        NM = CurrentProject.AllReports(DC).Name
        DoCmd.OpenReport NM, acDesign, , , acHidden
        Set rep = Reports(NM)
        ' Записываем запрос в базу данных или анализируем его
        ' NM - Имя отчета
        ' rep.RecordSource - Запрос от формы
        .....
        ' Проверяем на наличие в контролах запросов
        For Each ctl In rep.Controls
            If acListBox = ctl.ControlType Or acComboBox = ctl.ControlType Then
                ' Записываем запрос в базу данных или анализируем его
                ' NM - Имя формы
                ' ctl.ControlName - имя поля
                ' ctl.RowSource - содержимое поля
                .....
            End If
        Next
        DoCmd.Close acReport, NM, acSaveNo
    Next
...
Рейтинг: 0 / 0
08.09.2003, 18:09
| Ответить | Цитировать | Написать  
Где добыть RowSource незагруженных форм?
    #32259049
Дмитрий Басовский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий Басовский
Гость
Кстати, в данные функции можно еще засунуть анализатор наличия кода на VBA, и если таковой имеется - записывать в отдельную таблицу или ставить где-то галочку.
...
Рейтинг: 0 / 0
08.09.2003, 18:14
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Где добыть RowSource незагруженных форм?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32258789&tid=1679540]:
 0ms
get settings:
 9ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 81ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 226ms
total:  407ms
созд. / загр.: 407ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]