Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Плиз ХЕЛП Ошибка 5 при создании Панели инструментов ... / 8 сообщений из 8, страница 1 из 1
28.08.2004, 11:16:21
    #32669833
nukri
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Плиз ХЕЛП Ошибка 5 при создании Панели инструментов ...
Почему на этой строке компилятор выдает ошибку рантайим эррор 5
Invalid procedure call or argument ?


Set КнопкаПечати = ПанельИнструментов.Controls.Add(msoControlButton, CommandBars("Database").Controls("&Печать...").Id)


Данную функци взял в книге ... и хочу с ее помощью сделать свою Панель инструментов ... начал с кнопки "Печати"

п.с. Обычные панели менюшек работают ...

Может быть надо библиотеку дополнительно подключать ?
...
Рейтинг: 0 / 0
28.08.2004, 11:19:02
    #32669834
nukri
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Плиз ХЕЛП Ошибка 5 при создании Панели инструментов ...
... +

что значит вот этот кусок кода: CommandBars("Database") ?
...
Рейтинг: 0 / 0
28.08.2004, 12:17:51
    #32669846
Hummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Плиз ХЕЛП Ошибка 5 при создании Панели инструментов ...
Должна быть подключена библиотека Microsoft Ofiice {версия} Object Library. Если офис русский - то панель DataBase называется База Данных - или что-то в этом роде.
...
Рейтинг: 0 / 0
28.08.2004, 12:54:50
    #32669860
nukri
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Плиз ХЕЛП Ошибка 5 при создании Панели инструментов ...
HummerДолжна быть подключена библиотека Microsoft Ofiice {версия} Object Library. Если офис русский - то панель DataBase называется База Данных - или что-то в этом роде.

Object Library - подключена.... другие коммандбары работают

Не получается вытащить эту кнопку Печати ... выдает постоянно ошибку 5

У когонибудь есть раотающий код по вытаскиванию любой стандартной кнопки на созданную программно панель инструментов ?
...
Рейтинг: 0 / 0
28.08.2004, 13:06:06
    #32669863
Hummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Плиз ХЕЛП Ошибка 5 при создании Панели инструментов ...
Проверьте существование панели DataBase.

commandbars(("Database").controls(1).Name - перебором контролов увидите имя контрола печать.
...
Рейтинг: 0 / 0
28.08.2004, 13:34:22
    #32669872
nukri
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Плиз ХЕЛП Ошибка 5 при создании Панели инструментов ...
Так я же вижу контрол печать и его название в меню настройка(для панели управления)

там правой кнопкой я вижу по правой кнопке контрол &Печать
Имя панели - База данных


Пееределал строку вызова
на

Set ПанельИнструментов = CommandBars.Add("Панель инструментов", msoBarTop)
Set КнопкаПечати = ПанельИнструментов.Controls.Add(msoControlButton, CommandBars("База данных").Controls("&Печать").Id)

И все равно выдает ошибку 5 ... !!!!
...
Рейтинг: 0 / 0
28.08.2004, 13:36:51
    #32669874
nukri
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Плиз ХЕЛП Ошибка 5 при создании Панели инструментов ...
Кстати вопрос по ходу дела ... а если панель "База данных" у меня в дальнейшем будет убрана, откуда будет браться эта кнопка Печать ?
...
Рейтинг: 0 / 0
28.08.2004, 18:26:42
    #32669985
Hummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Плиз ХЕЛП Ошибка 5 при создании Панели инструментов ...
Значит так - перебор всех контролов на панели даст точное имя нужного контрола. Скопировать кнопку печать с этой панель моджно только на основной уровень. т.е. вложенность не поддерживается.

Делается всё не так - не надо копировать контролы в рантайме, надо заранее создать свою панель инструментов или меню, а потом его строить.
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Плиз ХЕЛП Ошибка 5 при создании Панели инструментов ... / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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