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

x=MyFucntion(Me.name)

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

Function MyFucntion(strFormName as string)

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

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

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
Функция - как создать
    #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
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Функция - как создать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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