Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Функция - как создать / 6 сообщений из 6, страница 1 из 1
24.10.2003, 13:03
    #32304234
vinni
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция - как создать
Хочу создать функцию в модуле!
Эта функция производит некоторые параметры над формой
Если вызвать функцию из формы то она не монимает
Код: plaintext
me. ...
Говорит что не знает что такое me
Как функции указать какая счас форма активна, и что бы с этим парамтром можно было работать как обращение к форме
...
Рейтинг: 0 / 0
24.10.2003, 13:09
    #32304245
Alexus12
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция - как создать
А слабо передать функции имя?
В форме пишешь:

x=MyFucntion(Me.name)

функция на входе

Function MyFucntion(strFormName as string)

...и твори што хошь.
...
Рейтинг: 0 / 0
24.10.2003, 13:10
    #32304249
Pavel
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция - как создать
Заведи параметр функции, куда будешь скармливать при вызове обьект me.form, к примеру.
...
Рейтинг: 0 / 0
24.10.2003, 13:13
    #32304256
Sfagnum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция - как создать
передавай в ф-ию имя формы (функция(me.Name))
а в ф-ие Forms![Имя_Формы]...

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
24.10.2003, 13:14
    #32304258
Sfagnum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция - как создать
до безобразия быстро отвечаем....

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
24.10.2003, 13:25
    #32304283
АлексейЕ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция - как создать
А если открыто несколько экземпляров формы?
В фукциу аргумет делаешь типа объект, и передовай ей форму.
Код: plaintext
1.
2.
Public Function MeFun(MeForm As Form)
     MeFun = MeForm.ActiveControl.Name
End Function

В форме
Код: plaintext
1.
2.
Private Sub Кнопка25_Click()
     MsgBox MeFun(Me)
End Sub
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Функция - как создать / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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