ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Кнопка в отчете
23 сообщений из 23, страница 1 из 1
Кнопка в отчете
    #32578666
Invisible
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Invisible
Участник
У меня нет ни единой панели управления (в целях необходимого увеличения рабочего пространства). Как в отчете поставить кнопку Закрыть и Печать, да так, чтоб они еще и работали, а то они проставляются как часть очета, то есть на них не повесить ни одно событие.
...
Рейтинг: 0 / 0
26.06.2004, 19:48:31
| Ответить | Цитировать | Написать  
Кнопка в отчете
    #32578667
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Никак. А тулбары можно:
показывать и убирать вместе с отчетом;

разместить в середине экрана, чтобы рабочее пространство не уменьшалось.
...
Рейтинг: 0 / 0
26.06.2004, 19:59:33
| Ответить | Цитировать | Написать  
Кнопка в отчете
    #32578668
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Кстати, закрывать можно кнопкой Ctrl+F4 (либо крестиком), а печатать кнопкой P.
...
Рейтинг: 0 / 0
26.06.2004, 20:00:34
| Ответить | Цитировать | Написать  
Кнопка в отчете
    #32578669
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
легко - описано Гетцом
рецепт

сажаешь отчёту вызов формы на событие «Открытие» (Open)
Код: plaintext
1.
2.
3.
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "FInv", acNormal
End Sub
FInv - соответственно модальное + всплывающее
в нём 2 кнопки газ/тормоз

в Report_Open через что-нибудь передаёшь флажок ---> Cancel=true/false
...
Рейтинг: 0 / 0
26.06.2004, 20:07:15
| Ответить | Цитировать | Написать  
Кнопка в отчете
    #32578670
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
или из модальной закрываешь отчёТ+саму себя
Код: plaintext
1.
2.
DoCmd.Close acReport, "RInv"
DoCmd.Close acForm, "Finv"
...
Рейтинг: 0 / 0
26.06.2004, 20:10:51
| Ответить | Цитировать | Написать  
Кнопка в отчете
    #32578671
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Похоже на то, что я предложил с тулбаром в середине экрана. Но лучше, потому что можно сделать Cancel=True (а в моем варианте нельзя).
...
Рейтинг: 0 / 0
26.06.2004, 20:11:54
| Ответить | Цитировать | Написать  
Кнопка в отчете
    #32578672
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
а ещё можно сделать и привязать к отчёту контекстное меня
при наличии у юзеров пальцев - можно щёлкать не клювом ,а правой кнопкой
...
Рейтинг: 0 / 0
26.06.2004, 20:20:10
| Ответить | Цитировать | Написать  
Кнопка в отчете
    #32578677
Invisible
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Invisible
Участник
Если форма Модально-всплывающая, она не отпускает фокус. Отчет ни перелистнуть, ни уменьшить. Короче не переключиться в него. Рецепт есть?
...
Рейтинг: 0 / 0
26.06.2004, 20:42:21
| Ответить | Цитировать | Написать  
Кнопка в отчете
    #32578678
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Просто всплывающая. Модальная не надо.
...
Рейтинг: 0 / 0
26.06.2004, 20:43:28
| Ответить | Цитировать | Написать  
Кнопка в отчете
    #32578679
Invisible
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Invisible
Участник
Да да, я уже понял. Спасибо.
...
Рейтинг: 0 / 0
26.06.2004, 20:45:57
| Ответить | Цитировать | Написать  
Кнопка в отчете
    #32578680
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
InvisibleЕсли форма Модально-всплывающая, она не отпускает фокус. Отчет ни перелистнуть, ни уменьшить. Короче не переключиться в него. Рецепт есть?

ты чо просил - Закрыть и Печать

если надо по отчёту прыгать делай контекстное
...
Рейтинг: 0 / 0
26.06.2004, 20:50:34
| Ответить | Цитировать | Написать  
Кнопка в отчете
    #32578683
Invisible
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Invisible
Участник
Да форма уже сделана. В контекстном нет надоности. Вот только как бы ее теперь разместить погрмотнее, а то она все на одном месте, может даже на другое приложение заехать.

А вообще так подумать... А может действительно - лучше выводить панель, на которой кнопка печать и закрыть?
Это ведь делается парой строчек, не так ли? (каких, если не трудно? Если трудно, сам найду)
...
Рейтинг: 0 / 0
26.06.2004, 20:58:44
| Ответить | Цитировать | Написать  
Кнопка в отчете
    #32578687
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
руками:
- вид- панели инструментов-настройка- пару кнопок + свойства(печать есть готовая) close посади макрос
...
Рейтинг: 0 / 0
26.06.2004, 21:17:37
| Ответить | Цитировать | Написать  
Кнопка в отчете
    #32578689
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
+ в параметрах запуска выбрать то что склепал в разделе <<строка меню>>
...
Рейтинг: 0 / 0
26.06.2004, 21:20:34
| Ответить | Цитировать | Написать  
Кнопка в отчете
    #32578692
Invisible
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Invisible
Участник
Ставлю на open_report
Application.CommandBars("Print Preview").Enabled = True

Не кажет? Why?
...
Рейтинг: 0 / 0
26.06.2004, 21:24:58
| Ответить | Цитировать | Написать  
Кнопка в отчете
    #32578711
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
InvisibleСтавлю на open_report
Application.CommandBars("Print Preview").Enabled = True

Не кажет? Why?

а с чего ты взял что существует нанель меню с таким названием ("Print Preview") ?

+ если ты включишь панель то в чём выигрыш по месту с экономии которого всё началось

анальный способ свободное место на экране не породит !
...
Рейтинг: 0 / 0
26.06.2004, 22:10:17
| Ответить | Цитировать | Написать  
Кнопка в отчете
    #32578798
Invisible
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Invisible
Участник
Shuhardа с чего ты взял что существует нанель меню с таким названием ("Print Preview") ? Таковая панель есть. Я нашел ее в Items из CommandBars и включаю по тому же принципу, как выключаю панель "Menu bar" по совету Serge Gavrilov:
1) /topic/101910&hl=
2) /topic/102129&hl=

Shuhard+ если ты включишь панель то в чём выигрыш по месту с экономии которого всё началось
анальный способ свободное место на экране не породит !С формой вышел ньюанс: ее месторасположение на экране. Чтобы ее правильно позиционировать, нужна еще процедура в плюс к тому, что нужно для работы самой формы с НЕСКОЛЬКИМИ отчетами (наименования отчетов разные, а это еще и передача в форму наименования открываемого отчета для закрытия оного, но это больше чем пару строк )
Взвесив все "за" и "против" я решил, InvisibleА вообще так подумать... А может действительно - лучше выводить панель, на которой кнопка печать и закрыть?что вывод панели НА ВРЕМЯ PREVIEW ОТЧЕТА не такй уж и анальный способ, нежели возня с формой.
Вопрос с Application.CommandBars("Print Preview").Enabled = True решен - я использую .Visible=true/false и все пучком.
Но сейчас мне нужно из этой панели оставить 2 кнопки. Если делать панель Shuhardруками:
- вид- панели инструментов-настройка- пару кнопок + свойства(печать есть готовая) close посади макрос+ в параметрах запуска выбрать то что склепал в разделе <<строка меню>> таким образм, то непонятно - будет ли эта Custom панель выводиться на другом компьютере после копирования базы, если там я руками эту Custom панель не создавал. Хотелось бы програмно определять эти 2 кнопки отображаемой панели НА ВРЕМЯ PREVIEW ОТЧЕТА .

Владимир Саныч, ты упоминал про панели. Может подкинешь строчку-две кода, если не сложно. Я сейчас как раз ищу подсказки по реализации этой панели (ну не занимался я панелями раньше, вообще), но надежда, конечно, на вас, уважаемые господа.

Shuard, Владимир Саныч, спасибо вам за поддержку.
...
Рейтинг: 0 / 0
27.06.2004, 14:24:40
| Ответить | Цитировать | Написать  
Кнопка в отчете
    #32578805
Invisible
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Invisible
Участник
Подкорректировав слегка элементы панели предв. просмотра получаю нужный результат: остаются только те кнопки, которые нужны.
Application.CommandBars("Print Preview").Controls.Item(1).Visible = False
Application.CommandBars("Print Preview").Controls.Item(9).Visible = False
Application.CommandBars("Print Preview").Controls.Item(10).Visible = False
Application.CommandBars("Print Preview").Controls.Item(11).Visible = False
Application.CommandBars("Print Preview").Controls.Item(12).Visible = False

Но эти изменения действуют и на парралельно запущенные базы ACCESS, пока кнопки не будут восстановлены обратно. Нужно создать свою панель... Хелп?
...
Рейтинг: 0 / 0
27.06.2004, 15:02:03
| Ответить | Цитировать | Написать  
Кнопка в отчете
    #32578810
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
Проще всего - создать свою панель, со своим именем и своими контролами и не надо заботится об их видимости. Панель автоматом будет появляться во время загрузки отчета (если имя ее указать в соответствующем месте отчета).
Я дополнительно к панели инстрементов делаю всплывающее меню с теми же опциями. На случай, если панель инструментов пропадет (бывает такое). Кроме того во всплывающем меню я команду на печать запускаю прямиком на принтер, а в панели открываю Print Preview.
...
Рейтинг: 0 / 0
27.06.2004, 15:33:58
| Ответить | Цитировать | Написать  
Кнопка в отчете
    #32578813
Invisible
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Invisible
Участник
Ок, спасибо. Я сделал свою панель.

Application.CommandBars.Add(Name:="Печать отчета").Visible = True
Application.CommandBars("Печать отчета").Controls.Add msoControlButton, 4
Application.CommandBars("Печать отчета").Controls.Add msoControlButton, 106
Application.CommandBars("Печать отчета").Controls.Add msoControlButton, 444
Application.CommandBars("Печать отчета").Controls.Add msoControlButton, 445
Application.CommandBars("Печать отчета").Controls.Add msoControlComboBox, 1733

Которую при закрытии отчета удаляю

Application.CommandBars("Печать отчета").Delete
...
Рейтинг: 0 / 0
27.06.2004, 16:02:53
| Ответить | Цитировать | Написать  
Кнопка в отчете
    #32578825
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
InvisibleApplication.CommandBars.Add(Name:="Печать отчета").Visible = True
...
Application.CommandBars("Печать отчета").Delete
Это ведь создается и удаляется физически в файле. Так что при мультиюзерной работе будут неожиданности.
...
Рейтинг: 0 / 0
27.06.2004, 17:13:40
| Ответить | Цитировать | Написать  
Кнопка в отчете
    #32578845
Invisible
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Invisible
Участник
Это при запуске проги
on error resume next
err.clear
Application.CommandBars.Add(Name:="Печать отчета").Visible = False
if not (err.number) then
...
end if
on error goto 0

Открытие отчета
Application.CommandBars("Печать отчета").Visible = True

Закрытие отчета
Application.CommandBars("Печать отчета").Visible = False

При закрытии проги
on error resume next
Application.CommandBars("Печать отчета").Delete
...
Рейтинг: 0 / 0
27.06.2004, 19:05:11
| Ответить | Цитировать | Написать  
Кнопка в отчете
    #32578875
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Вот-вот. И я об этом. Зашел юзер, создал тулбар. Зашел второй, попытался создать тулбар, получил ошибку о том, что тулбар с таким именем уже есть. Первый вышел, стер тулбар. Второй еще не выходит, открыл отчет, получил ошибку, что тулбара уже нет.
...
Рейтинг: 0 / 0
27.06.2004, 23:46:23
| Ответить | Цитировать | Написать  
23 сообщений из 23, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Кнопка в отчете
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32578810&tid=1673573]:
 0ms
get settings:
 8ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 206ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 59ms
get tp. blocked users:
 1ms
others: 239ms
total:  542ms
созд. / загр.: 542ms
x
x
Закрыть


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