| Author |
 Topic  |
|
|
zz 5
Russia
54 Posts |
 Posted - 08/28/2006 : 18:16:01
|
Здраствуйте, уважаемые форумчане. Помогите с маленькой проблемой. Создал смарт-шейп, к котором определил необходимые поля. Хочу по двойному клику на шейпе вызывать окно специальных настроек, которое можно вызвать следующим способом: правой кнопкой по шейпу, форма, специальные настройки. Так в настройке "Режимы" я такой не нашел. Попробывал записать макрос, но тоже не получилось. Как быть ? Спасибо за понимание :)
Если автор пишет о том, чего не понимает, его работа будет понята только теми читателями, которые понимают в этом больше, чем он ! |
|
|
Tumanov
Russia
1198 Posts |
Posted - 08/28/2006 : 21:40:41
|
Вопрос я не совсем понял...
Можно предположить, что по двойному клику Вы хотите просто открыть окно Custom Properties. Будем исходить из этого.
Открыть такое окно можно методом DoCmd с параметром 1312. Для этого можно написать макрос, например, такой
Sub ttt()
Application.DoCmd "1312"
End Sub
и вызывать его по двойному клику. Для этого в ячейку EvntDblClick секции Events шейпа прописывается формула
=RUNADDON("ThisDocument.ttt")
Тогда по двойному клику вызывется макрос, который откроет окошко.
Можно самому макрос не писать, а воспользоваться похожим, уже имеющимся. У меня, например, достаточно в ячейку EvntDblClick прописать =RUNADDON("NETWORK SHAPE PROPERTIES"). При этом вместо моего макроса ttt вызывется чужой и тоже откроет окошко (только название будет другое).
Может и еще проще можно, если подумать, но пока только это... |
 |
|
|
zz 5
Russia
54 Posts |
Posted - 08/29/2006 : 10:09:15
|
Все верно, вы совершенно меня правильно поняли. Все получилось, спасибо. Единственное непонятно. Если ничего в свойствах не изменить и просто нажать "ОК" или "Отмена", то выскакивает ошибка "Run-time error - 2032466955 (86db03f5);". Интересно, с чем это может быть связано ? Попробывал создать пустой документ, на него бросил любой шейп, определил спец. сво-ва, написал макрос, назначил вызов макроса по двойному клику, проверил - тоже самое :( Почему так получается ?
Заранее спасиб ! С Уважением, Игорь
Если автор пишет о том, чего не понимает, его работа будет понята только теми читателями, которые понимают в этом больше, чем он ! |
|
|
|
elena
41 Posts |
Posted - 08/29/2006 : 11:34:07
|
| Зачем усложнять? Достаточно в ячейку EvntDblClick секции Events шейпа записать =DOCMD(1312)и все. |
|
|
|
zz 5
Russia
54 Posts |
Posted - 08/29/2006 : 12:27:04
|
quote:
Originally posted by elena
Зачем усложнять? Достаточно в ячейку EvntDblClick секции Events шейпа записать =DOCMD(1312)и все.
Огромное спасибо, помогло
Если автор пишет о том, чего не понимает, его работа будет понята только теми читателями, которые понимают в этом больше, чем он ! |
|
|
|
Tumanov
Russia
1198 Posts |
Posted - 08/29/2006 : 18:25:28
|
Зачем, зачем...
Забыл как DoCmd в ячейку вписывается. Надо было написать хоть что-нибудь работающее :) |
|
|
| |
Topic |
|
|
|
All Forums
Окно специальных настроек