| |
|
|
| | Привет все.
Направьте в нужное русло. Есть форма, в ней подчиненная - в режиме сводной таблицы. На основной кнопка которой надо открыть источник строк сводной таблицы. (Есть строка в контекстном меню на сводной табле.)
Через макрос перепробовал много всего через "Выполнить команду" - не действует ничего. , через код пишу RunCommand ... Далее столько констант.... Какую выбрать. Все пишет " 2049 Макрокоманда недоступна". Фокус в сводную направлял (не знаю надо ли было но не помогло) ЧД? Как всегда ХЗ?? В справке не нашел.  | |
| |
| |
| |
|
|
| | может недоступна тока в режиме конструктора, а запустив нормально сработает...
=====================================================================
А ваще из вопроса я понял, что нужно - новый источник строк для подчинённой формы....
или чё???
======================================================================
Forms![Главная_форма]![Подчиненная_форма].Recordsourse = Мой_запрос | |
| |
| |
| |
|
|
| | Нет не источник. Про рекордсурс знаю. Подчиненная форма работает в режиме сводной таблы. Но контекст каждый раз для вызова списка полей господам вызывать не по кайфу. (С правой кнопкой не дружат) Требуется вывести эту строку контекста на обычную кнопку которая, как я понимаю, должна стоять на основной форме. На сводную таблу кнопку не поставить. Вот. 
Предложение вызывать контекст с клавиатуры и бродить по нему стрелками тоже не прошло к сожалению.  | |
| |
| |
| |
|
|
| | тада к сожалению - я вопрос не догоняю  | |
| |
| |
| |
|
|
| | Ладно. Тогда проще. Надо вызвать контекстное меню формы нажатием кнопки на форме.
DoCmd.RunCommand (acCmdDocMaximize) - развернуть окно максимум.
DoCmd.RunCommand (acCmdRecordsGoToNew) - новая запись
А что бы вышло контекстное меню чего в () писать?
Это только начало.
Ну может как-то иначе к этому подходить надо.  | |
| |
| |
| |
|
|
| | так так так , а в этом контекстном меню какой пункт надо выбрать??? 
отобразить поля ---- штоля? | |
| |
| |
| |
|
|
| | Пример для подчиненной формы:
Private Sub btnShowPopUp_Click()
With Me.Controls("frm2")
.SetFocus
If Len(.Form.ShortcutMenuBar & "") > 0 Then 'Если задано свое меню
CommandBars(.Form.ShortcutMenuBar).ShowPopup
Else
CommandBars("Form View Control").ShowPopup 'Здесь возможно надо "PivotTable Popup"
End If
End With
End Sub
|
| |
| |
| |
| |
|
|
| | Час, ну наконец-то! Там строку надо вытянуть "Список полей".
Лукас, я то думал, что в одну строку обойтись можно. 3 дня без продыху. Сейчас завожу. | |
| |
| |
| |
 74 Кб. |
|
| | Масса замечательных вещей. С места сдвинулось. Сократил код получилось
With Me.Controls("frm2")
.SetFocus
CommandBars("Form View Control").ShowPopup
End With
Получаю контекстное меню как для элемента обычной формы. Можно было бы поставить на элемент формы на 2 щелчка к примеру. Однако активны только копировать и вырезать. (скриншот прилагаю)
Если писать
With Me.Controls("frm2")
.SetFocus
CommandBars("PivotTable Popup").ShowPopup
End With
В этом случае из кнопки вылезает всего 2 строки "Копировать" и "Сортировка" Причем сортировка не активна. | |
| |
| |
|
|
| |
|
|
| | У меня этот компонент не установлен. | |
| |
| |
|
|
| |
|
|
| | Слева имя коммандбар, справа его контролы. | |
| |
| |
| |
82 Кб. |
|
| | Не так все страшно. Во всех случаях выходит это:
и только в PivotList Popup выходит "Вырезать", "Копировать", "Вставить" но все неактивно.
ИСТИНА ГДЕ-ТО РЯДОМ! ОНА ЕСТЬ, ЕЕ НЕ МОЖЕТ НЕ БЫТЬ! | |
| |
| |
| |
|
|
| | Исчо:
Form PivotTable Popup &Конструктор форм
Form PivotTable Popup Режим ф&ормы
Form PivotTable Popup Режим &таблицы
Form PivotTable Popup Сводная диа&грамма
Form PivotTable Popup &Экспорт в Microsoft Office Excel
Form PivotTable Popup &Список полей
Form PivotTable Popup Сво&йства
|
| |
| |
| |
| |
|
|
| | Думаю что Америку не открою. Вот в результате исследования получил следующее:
DoCmd.RunCommand (acCmdFieldList) - список полей
DoCmd.RunCommand (acCmdAlignBottom) - выровнять по нижнему краю
DoCmd.RunCommand (acCmdPrintPreview) - печать формы
DoCmd.RunCommand (acCmdViewList) - вид список
DoCmd.RunCommand (acCmdAlignLeft) - выровнять по левому краю
DoCmd.RunCommand (acCmdClose) - закрыть форму
DoCmd.RunCommand (acCmdFilterBySelection) - фильтр по выделенному
DoCmd.RunCommand (acCmdRecordsGoToNew) - новая запись
DoCmd.RunCommand acCmdBookmarksPrevious - закладки предыдущая
DoCmd.RunCommand (acCmdFavoritesOpen) - открывает папку избранное
DoCmd.RunCommand (acCmdAboutMicrosoftAccess) - о программе МS ACCESS
DoCmd.RunCommand (acCmdExport) - открывает окно экспорт данных
DoCmd.RunCommand (acCmdInsertFile) - вставить файл
DoCmd.RunCommand (acCmdFilterByForm) - фильтр
Для сводной таблы:
DoCmd.RunCommand (acCmdPivotTableCreateCalcTotal) - свойство для сводной таблы выравнивать цифири краска
DoCmd.RunCommand (acCmdPivotTableCreateCalcField) - свойство для св таблы можно раскрашивать, выравнивать и прочее.
DoCmd.RunCommand (acCmdPivotTableExportToExcel) - передает сводную таблу в эксель и открывает источник полей
DoCmd.RunCommand (acCmdPivotTableDemote) - понизить уровень итогов в св табле
Особенно понравилось вот это:
DoCmd.RunCommand (acCmdPivotTableExportToExcel)
Передает сводную таблу в эксель один к одному. Кроме того открывает источник ее полей с возможностью вставлять, менять и прочее. Все в экселе.
Lukas, Form PivotTable Popup - предлагает сводную диаграмму. Поле активно. Однако после выбора - непоправимая ошибка винды. Но тоже хорошо. | |
| |
| |
