Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ActiveX, но не для всех пользователей. / 12 сообщений из 12, страница 1 из 1
16.03.2016, 17:38
    #39193612
LightN
LightN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ActiveX, но не для всех пользователей.
В одной форме нужно создать ActiveX-контрол, но не для всех пользователей, а чтобы если UserIDActiveX=True, то ActiveX-контрол д.б. живой, у остальных не живой соответственно.
Нужно только 4-м людям в офисе поставить библиотеку, а остальным она не нужна.
Т.е. как обойти "Отсутствует объект в данном элементе управления".
Никак не соображу ...

Вот это не помогает:
Код: vbnet
1.
2.
3.
4.
5.
6.
Private Sub Form_Open(Cancel As Integer)
 If  UserIDActiveX=True Then
  AVAYAConnectorForm1.ConnectToAVAYA
 Else
  AVAYAConnectorForm1 = Nothing
 End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.03.2016, 17:55
    #39193646
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ActiveX, но не для всех пользователей.
Создайте две формы - для избранных и для остальных. И загружайте нужную. Схематично:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Sub Main()
If  UserIDActiveX=True Then
  Set frm = Forms("FormWithActiveX")
Else
  Set frm = Forms("FormWithActiveX")
End If
frm.Load
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.03.2016, 17:55
    #39193651
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ActiveX, но не для всех пользователей.
Пардон
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Sub Main()
If  UserIDActiveX=True Then
  Set frm = Forms("FormWithActiveX")
Else
  Set frm = Forms("FormWithoutActiveX")
End If
frm.Load
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.03.2016, 19:32
    #39193765
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ActiveX, но не для всех пользователей.
Akina, будет проблема с отсутствующей библиотекой, ИМХО, если это нераспространённый ActiveX. Я выносил форму и код с таким контролом в библиотечную БД и не обращался к ней в случае неустановленного ActiveX.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.03.2016, 12:24
    #39194243
LightN
LightN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ActiveX, но не для всех пользователей.
Оба способа я пременяю ... м.б. есть способ проще? Оба способа имеют свои ограничения и оба неудобны.
"... будет проблема с отсутствующей библиотекой" - да, и это тоже имеет место ...

Неужеле нет способа обойти это сразу при загрузке клиентом БД?
Как было бы здорово: дал пользователю доступ кликом мыши, он перезашел в свою клиентскую БД, и если нет Библиотеки, то автоматом через regsvr32 тут же регестрируем для него его ocx и сразу же у него всё работает ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.03.2016, 13:06
    #39194302
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ActiveX, но не для всех пользователей.
Панургбудет проблема с отсутствующей библиотекой
Если форма не загружается - то похрен, есть либа или нет. А она не загружается только оттого, что встретилась в коде, нужно выполнение этой строки.
А если загружается, и либы нет - то всегда будет трабла, каким способом не пойди.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.03.2016, 13:20
    #39194318
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ActiveX, но не для всех пользователей.
Akina,а Missing в References?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.03.2016, 14:31
    #39194440
LightN
LightN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ActiveX, но не для всех пользователей.
Панург,
У нас на всех клиентских РС есть стартовая дирректория C:\Client\lib
В этой lib у всех есть OCX по определению.
Missing в References нет !!! В независимости от того зарегестрирован он или нет через regsvr32.
Глюк вылазит только тогда, когда форма загружается и объявляется контрол при загрузке формы.

Обидно, что MS не дал такую возможность для
Private Sub Form_Open(Cancel As Integer)
AVAYAConnectorForm1 = Nothing

В принципе я выкрутился - сделал подчиненную форму, запихал этот контрол туда и меняю название в основной ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.03.2016, 15:32
    #39194523
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ActiveX, но не для всех пользователей.
LightN, да, подобное пролазит с несложными *.ocx и *.dll. Некоторые даже работают при этом без регистрации. Но в более сложных вариантах - увы и ах!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.03.2016, 16:05
    #39194592
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ActiveX, но не для всех пользователей.
LightN,

авторНужно только 4-м людям в офисе поставить библиотеку, а остальным она не нужна.

А НУЖНА ли она вообще
может можно обойтись без лишнего украшательства
---------
лично я применяю свой аналог дерева, календаря тоже достаточно встроенного
так что ActiveX не применяю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.03.2016, 16:12
    #39194601
LightN
LightN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ActiveX, но не для всех пользователей.
На всякий случай ...
Код: vbnet
1.
If  UserIDActiveX=True Then  Me.ПодчиненнаяФормаСActivX.SourceObject = ""


и всё живет-работает ... и пока не глючит.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.03.2016, 16:29
    #39194628
LightN
LightN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ActiveX, но не для всех пользователей.
Ошибка = false Then Me.ПодчиненнаяФормаСActivX.SourceObject = ""
Т.е. не грузится форма если это не нужно ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ActiveX, но не для всех пользователей. / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 163ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1613807]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 61ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 14ms
total:  163ms
x
x
Закрыть


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