Программно затащить запрос в группу навигации

Настаев
Дата: 31.12.2011 18:34:51
Я создал себе для удобства группы в области навигации
Поместил в них запросы
Эти запросы я иногда пересоздаю с VBA
И они всегда залетают в "Неназначенные объекты"

Нужно программно помещать их в указанную группу
Настаев
Дата: 31.12.2011 18:36:38
Вот рисунок для наглядности
Рис
Дата: 15.02.2012 15:59:25
Можно сделать через изменение системных таблиц.
Вот код для вставки в макросы:
<?xml version="1.0" encoding="UTF-16" standalone="no"?>
<UserInterfaceMacros xmlns="http://schemas.microsoft.com/office/accessservices/2009/11/application">
<UserInterfaceMacro MinimumClientDesignVersion="14.0.0000.0000"><Statements><Action Collapsed="true" Name="SetTempVar">
<Argument Name="Name">GrId</Argument>
<Argument Name="Expression">DFirst("Id","MSysNavPaneGroups","Name='2 Исходные данные'")</Argument>
</Action><Action Collapsed="true" Name="SetTempVar"><Argument Name="Name">TabName</Argument>
<Argument Name="Expression">"Реестр оценки"</Argument></Action><Action Collapsed="true" Name="SetTempVar">
<Argument Name="Name">TabId</Argument>
<Argument Name="Expression">DFirst("Id","MSysObjects","Name='" & [TempVars]![TabName] & "' AND Type=1")</Argument>
</Action><Action Collapsed="true" Name="RunSQL">
<Argument Name="SQLStatement">="INSERT INTO MSysNavPaneGroupToObjects (GroupId, ObjectID, Name, Position, Flags, Icon)
VALUES (" & [TempVars]![GrId] & ", " & [TempVars]![TabId] & ", '" & [TempVars]![TabName] & "', 1, 0, 0)"</Argument>
<Argument Name="UseTransaction">No</Argument></Action><Action Collapsed="true" Name="RemoveTempVar">
<Argument Name="Name">TabName</Argument></Action><Action Collapsed="true" Name="RemoveTempVar">
<Argument Name="Name">TabId</Argument></Action><Action Collapsed="true" Name="RemoveTempVar">
<Argument Name="Name">GrId</Argument></Action></Statements></UserInterfaceMacro></UserInterfaceMacros>

Имя объекта (таблицы) и группы задается через временные переменные. Еще нужно корректно указать тип объекта в запросе на изменение системной таблицы (эта версия без изменения работает только с таблицами, но, например, не работает с запросами).
Настаев
Дата: 18.02.2012 22:10:47
Интересный способ.. спсибо, попробую