powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / много одинаковых обработчиков событий
25 сообщений из 36, страница 1 из 2
много одинаковых обработчиков событий
    #32240313
A-Lex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Кто нибудь знает, можно ли в конструкторе в свойствах события поставить уже готовую процедуру, а то есть куча одинаковых обработчиков, которые я уже запарился клонировать
...
Рейтинг: 0 / 0
много одинаковых обработчиков событий
    #32240322
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В конструкторе чего???
Что такое свойства события???
...
Рейтинг: 0 / 0
много одинаковых обработчиков событий
    #32240332
A-Lex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В конструкторе формы, где допустим ставим обработчик на открытие формы, при этом тот же обработчик надо поставить на обновление пары тройки полей и т.д.
Не хочеться каждый раз копировать текст обработчика в новую процедуру.
...
Рейтинг: 0 / 0
много одинаковых обработчиков событий
    #32240335
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пишите функцию, например test(), в конструкторе выбираете все нужные контролы и в событии пишите
=test()
...
Рейтинг: 0 / 0
много одинаковых обработчиков событий
    #32240337
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пихаешь в модуль Public sub
И вызываешь когда надо
типа CALL
...
Рейтинг: 0 / 0
много одинаковых обработчиков событий
    #32240362
A-Lex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Говорит нет такой функции
а по нажатию в конструкторе в свойствах обработчика кнопки ...
Выдает ее родимую (слово public и в модуль ее засунуть не забыл)
В чем прикол
...
Рейтинг: 0 / 0
много одинаковых обработчиков событий
    #32240371
A-Lex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Догнал, нужна функция, а уменя процедура.
Сейчас переделаем, хотя стоп, а че она возвращать должна?
...
Рейтинг: 0 / 0
много одинаковых обработчиков событий
    #32240382
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Типа мой сообщения в игноре?

В любой модуль суешь что-то вроде

Public Sub MyProcedure
...

End Sub

Вызываешь так

Call MyProcedure
...
Рейтинг: 0 / 0
много одинаковых обработчиков событий
    #32240389
A-Lex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Уважаемый Vsevolod Вас я читаю и пробую ваши рекомендации в первую очередь, так вот ругается он на слово call
...
Рейтинг: 0 / 0
много одинаковых обработчиков событий
    #32240391
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>хотя стоп, а че она возвращать должна?
А зачем ей что-то возвращать? Необязательно.
И Public она быть не обязана, если находится в той же форме
...
Рейтинг: 0 / 0
много одинаковых обработчиков событий
    #32240393
A-Lex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Если это функция, она должна вернуть значение, а если это процедура, он ее не видит
...
Рейтинг: 0 / 0
много одинаковых обработчиков событий
    #32240407
Фотография TatianaT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а кто сказал что функция прям таки обязана что-либо возвращать?
...
Рейтинг: 0 / 0
много одинаковых обработчиков событий
    #32240416
кам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
2 TatianaT

а кто сказал что функция прям таки обязана что-либо возвращать?

Бил Гейтс.
Но можно конечно не принимать возвращаемое
...
Рейтинг: 0 / 0
много одинаковых обработчиков событий
    #32240418
A-Lex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ок, переделал ее в функцию, но возникла другая проблема
С перемещением ентой функции в модуль VBA стал ругаться на Me!
говорит: неправильно ты ее юзаешь уважаемый
...
Рейтинг: 0 / 0
много одинаковых обработчиков событий
    #32240425
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>Но можно конечно не принимать возвращаемое
И что вернет такая функция
Public Function test()
MsgBox "test"
End Function
...
Рейтинг: 0 / 0
много одинаковых обработчиков событий
    #32240429
кам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Естественно.
Есть два пути:
1) set mee = ActiveForm внутри функции
2) в функции параметр типа форма, а при использовании =Func([form])
...
Рейтинг: 0 / 0
много одинаковых обработчиков событий
    #32240431
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>С перемещением ентой функции в модуль VBA стал ругаться на Me!
>говорит: неправильно ты ее юзаешь уважаемый

А зачем вы ее в общий модуль?
...
Рейтинг: 0 / 0
много одинаковых обработчиков событий
    #32240439
A-Lex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В общий модуль потому, что используется она в двух основных формах
с шестью подставляемыми на выбор подчиненками
...
Рейтинг: 0 / 0
много одинаковых обработчиков событий
    #32240443
кам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
2 Serge Gavrilov

И что вернет такая функция
Public Function test()
MsgBox "test"
End Function


Выполни и посмотри.
(Для тех кому лень смотреть - Empty)
...
Рейтинг: 0 / 0
много одинаковых обработчиков событий
    #32240448
A-Lex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
To: кам
выдает ошибку на activeForm
говорит незнаю ентого слова
...
Рейтинг: 0 / 0
много одинаковых обработчиков событий
    #32240454
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Screen.ActiveForm

но при применении этой функции, в случае наличия модальных (диалоговых), окон вас ждут сюрпризы :)
...
Рейтинг: 0 / 0
много одинаковых обработчиков событий
    #32240459
A-Lex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Я не догнал.
Из-за переноса функции в модуль, разве форма перестала быть активной.
Почему перестала работать Me!, что изменилось и как с этим бороться
...
Рейтинг: 0 / 0
много одинаковых обработчиков событий
    #32240465
A-Lex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Кстати
Set Me = Screen.ActiveForm
тоже неработает, говорит неправильно Me юзаем
...
Рейтинг: 0 / 0
много одинаковых обработчиков событий
    #32240472
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>Выполни и посмотри.
>(Для тех кому лень смотреть - Empty)

Я прям смутился :)

И что такое Empty?
Это лишь ключевое слово указывающее на неинициализированное значение.
А вы это видимо за значение принимаете?

А такая функция что вернет:
Public Function test() As Object
MsgBox "test"
End Function

Уж точно не "Empty" :)
...
Рейтинг: 0 / 0
много одинаковых обработчиков событий
    #32240473
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
dim frm as access.form
Set frm = Screen.ActiveForm

или вместо Me использовать Forms("FormName")
...
Рейтинг: 0 / 0
25 сообщений из 36, страница 1 из 2
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / много одинаковых обработчиков событий
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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