Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Доступ к Ole на форме из Глобальной функции,  [new]
GREEN3
Guest
На форме установлена кнопка контрола типа Ole под именем
ЭлементActiveX51

Имя формы Form_my
Dim s As String
Dim sReturn As String

‘  получим имя текущей формы 
s = Me.Name 

‘ глобальная функция  возвращает строку
sReturn =  F_My(s) 

‘ глобальная функция в модуле находится
Public Function  F_My(m_sNameForm As String) As String
Dim s2 As String
´ниже ПРАВИЛЬНО записанная строка, если
‘ не в виде функции оформлять, а в процедуре
‘ текущей формы
 ЭлементActiveX51.Flags = cdlOFNHideReadOnly

F_My =  s2
End Function-

Как  записать в глобальной ( public ) функции, 
чтобы глобальная функция ВИДЕЛА
ЭлементActiveX51   ?
18 авг 05, 17:07    [1799824]     Ответить | Цитировать Сообщить модератору
 Re: Доступ к Ole на форме из Глобальной функции,  [new]
Тяп-ляп
Member

Откуда: Москва
Сообщений: 801
глобальная функция:
Public Function  F_My(obj AS Object) As String
   Dim s2 As String
   obj.Flags = cdlOFNHideReadOnly
   F_My =  s2
End Function

ее вызов в модуле формы:
sReturn =  F_My(Me.ЭлементActiveX51)

18 авг 05, 17:17    [1799892]     Ответить | Цитировать Сообщить модератору
 Re: Доступ к Ole на форме из Глобальной функции,  [new]
GREEN3
Guest
Тяп-ляп ,

БОЛЬШОЕ СПАСИБО

КАКИЕ ПОЗНАНИЯ! С ПОЛУСЛОВА ПОНЯЛ
ЧТО ТРЕБУЕТСЯ

СПАСИБО

ОК !
18 авг 05, 17:35    [1800001]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить