ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запуск события формы с помщью текстовой переменной
10 сообщений из 10, страница 1 из 1
Запуск события формы с помщью текстовой переменной
    #39146951
MorivVV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MorivVV
Гость
Всем привет!
Работаю в MS Access 2002, c недавнего времени начал работать с модулями классов, понял что это очень классная вещь, позволяет экономить кучу времени для создания однотипных задач в разных формах.
Из того что у меня уже работает на модуле класса, это
-получение/потеря фокуса(Lost/Got): обработка событий всех текст и комбо боксов в формах (подсветка поля зеленым цветом при получении фокуса);
-клавиша вверх(KeyUp):отображение переключения раскладки клавиатуры в доп. форме (необходимо для удаленного рабочего стола)
-двойной клик(DblClik): вызов календаря во всех формах для полей, которые имеют короткий формат даты
-отслеживания запущенных программ у пользователей (Open/Unload)

Вроде все замечательно, но столкнулся с одной проблемой программирования.
Так вот вроде выглядит все хорошо, но проблема в том, что если в коллекции форм и контролов я могу выбрать итем с помощью строковой переменной, то для публичного события мне нужно жесткое название ИмениКонтрола.
Все это нужно для события вызова календаря в полях даты. После того как пользователь вводит дату руками, происходят события BeforeUpdate, которые обычно проверяют возможно ли введение данного значения в поле и далее разрешают выполнение AfterUpdate, в которых происходят основные изменения и вызовы различных функций.
А вот если мы вызываем календарь двойным кликом, то просто происходит событие двойного клика и ничего не происходит.
Для автоматизации написал в модуле класса вызов необходимых событий.
Модуль класса работает с формой по ссылке, поэтому напрямую выполнять процедуры в форме не получается, приходится обращаться по именам форм и контролов в формате
Код: vbnet
1.
Forms("ИмяФормы").Controls("ИмяКонтрола").ИмяКонтрола_AfterUpdate


Поэтому пока приходится использовать вот такой костыль для обработки событий
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
Private Sub SelectAfterUpdate(tctrl As Object)
  Dim canl As Integer
  
  On Error Resume Next
  
  Select Case tctrl.Name
    Case "DATE_BEG"
      Forms(tctrl.Parent.Name).DATE_BEG_BeforeUpdate canl
      If Not canl Then Forms(tctrl.Parent.Name).DATE_BEG_AfterUpdate
    Case "DATE_END"
      Forms(tctrl.Parent.Name).DATE_END_BeforeUpdate canl
      If Not canl Then Forms(tctrl.Parent.Name).DATE_END_AfterUpdate
    Case "DATE_ZAKAZ"
      Forms(tctrl.Parent.Name).DATE_ZAKAZ_BeforeUpdate canl
      If Not canl Then Forms(tctrl.Parent.Name).DATE_ZAKAZ_AfterUpdate
    Case "DATE_POSTAVKI"
      Forms(tctrl.Parent.Name).DATE_POSTAVKI_BeforeUpdate canl
      If Not canl Then Forms(tctrl.Parent.Name).DATE_POSTAVKI_AfterUpdate
    Case "DATE_DOC"
      Forms(tctrl.Parent.Name).DATE_DOC_BeforeUpdate canl
      If Not canl Then Forms(tctrl.Parent.Name).DATE_DOC_AfterUpdate
    Case "DATE_NEXT"
      Forms(tctrl.Parent.Name).DATE_NEXT_BeforeUpdate canl
      If Not canl Then Forms(tctrl.Parent.Name).DATE_NEXT_AfterUpdate
    Case "DATE_PREV"
      Forms(tctrl.Parent.Name).DATE_PREV_BeforeUpdate canl
      If Not canl Then Forms(tctrl.Parent.Name).DATE_PREV_AfterUpdate
    Case "DATE_CALENDAR"
      Forms(tctrl.Parent.Name).DATE_CALENDAR_BeforeUpdate canl
      If Not canl Then Forms(tctrl.Parent.Name).DATE_CALENDAR_AfterUpdate
  End Select

End Sub



Притом это только основные и самые распространенные названия для полей, а есть еще много других, около 2-3 десятков и для каждого прописывать новый кейс, как то неправильно.
Хотелось использовать что-то более изящное,вроде
Код: vbnet
1.
Forms(tctrl.Parent.Name).(tctrl.Name).AfterUpdate


Может кто знает другие способы, как можно обращаться к событиям формы
...
Рейтинг: 0 / 0
14.01.2016, 08:48
| Ответить | Цитировать | Написать  
Запуск события формы с помщью текстовой переменной
    #39146975
Predeclared
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Predeclared
Участник
Если отвечать только на поставленный вопрос,
то: CallByName

Но, есть весомые основания полагать,
что Вы делаете что-то не так. :)
...
Рейтинг: 0 / 0
14.01.2016, 09:40
| Ответить | Цитировать | Написать  
Запуск события формы с помщью текстовой переменной
    #39146988
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
MorivVV,
особо не вчитывался, но может интересует типа такого 1194267
...
Рейтинг: 0 / 0
14.01.2016, 09:45
| Ответить | Цитировать | Написать  
Запуск события формы с помщью текстовой переменной
    #39147018
События
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
События
Гость
MorivVVПосле того как пользователь вводит дату руками, происходят события BeforeUpdateПока все логично - значение изменено, соответственно выстреливают события.
MorivVVА вот если мы вызываем календарь двойным кликом, то просто происходит событие двойного клика и ничего не происходит. Тут не очень понятно. Двойным кликом по полю, куда надо ввести дату? Если да, ваш календарь должен изменить дату в этом поле и событие BeforeUpdate сработает.

Вам нужно показать не свой костыль, а то, как вызывается календарь и что он делает после выбора даты пользователем.
...
Рейтинг: 0 / 0
14.01.2016, 10:09
| Ответить | Цитировать | Написать  
Запуск события формы с помщью текстовой переменной
    #39147108
MorivVV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MorivVV
Гость
PredeclaredЕсли отвечать только на поставленный вопрос,
то: CallByName


Спасибо, как раз то, что нужно было.
Странно, что по справке Call не предлагает посмотреть эту функцию
...
Рейтинг: 0 / 0
14.01.2016, 11:32
| Ответить | Цитировать | Написать  
Запуск события формы с помщью текстовой переменной
    #39147432
MorivVV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MorivVV
Гость
На будущее, чтобы можно было найти, большой кейс в первом сообщении
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
  Select Case tctrl.Name
    Case "DATE_BEG"
      Forms(tctrl.Parent.Name).DATE_BEG_BeforeUpdate canl
      If Not canl Then Forms(tctrl.Parent.Name).DATE_BEG_AfterUpdate
    Case "DATE_END"
      Forms(tctrl.Parent.Name).DATE_END_BeforeUpdate canl
      If Not canl Then Forms(tctrl.Parent.Name).DATE_END_AfterUpdate
 ...
    Case "DATE_CALENDAR"
      Forms(tctrl.Parent.Name).DATE_CALENDAR_BeforeUpdate canl
      If Not canl Then Forms(tctrl.Parent.Name).DATE_CALENDAR_AfterUpdate
  End Select

при помощи функции CallByName заменяется на простенькую процедуру
Код: vbnet
1.
2.
  CallByName Forms(tctrl.Parent.Name), tctrl.Name & "_BeforeUpdate", VbMethod, canl
  If Not canl Then CallByName Forms(tctrl.Parent.Name), tctrl.Name & "_AfterUpdate", VbMethod
...
Рейтинг: 0 / 0
14.01.2016, 15:35
| Ответить | Цитировать | Написать  
Запуск события формы с помщью текстовой переменной
    #39147442
Predeclared
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Predeclared
Участник
Временно НЕ принимая во внимание возможности того,
что парентом контрола может оказаться вовсе не форма:

MorivVV
Код: vbnet
1.
2.
3.
...
  CallByName Forms(tctrl.Parent.Name), tctrl.Name & "_BeforeUpdate", VbMethod, canl
  ...


Зачем вы получаете ссылку на объект: tctrl.Parent,
читаете его имя: .Name,
чтобы в дальнейшем искать этот объект в коллекции: Forms(...)

Берите сразу ссылку: CallByName tctrl.Parent, ...
...
Рейтинг: 0 / 0
14.01.2016, 15:51
| Ответить | Цитировать | Написать  
Запуск события формы с помщью текстовой переменной
    #39147529
23561346
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
23561346
Гость
MorivVV
Код: vbnet
1.
 tctrl.Name & "_AfterUpdate"

13355757
...
Рейтинг: 0 / 0
14.01.2016, 16:42
| Ответить | Цитировать | Написать  
Запуск события формы с помщью текстовой переменной
    #39147933
MorivVV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MorivVV
Гость
23561346,

Спасибо, тоже полезное замечание
...
Рейтинг: 0 / 0
15.01.2016, 09:37
| Ответить | Цитировать | Написать  
Запуск события формы с помщью текстовой переменной
    #39207899
Владимирррр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимирррр
Гость
Вылечил простым копированием неработающей формы. Старую удалил, а новой присвоил имя старой. Все заработало.
...
Рейтинг: 0 / 0
04.04.2016, 20:39
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запуск события формы с помщью текстовой переменной
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/search_topic.php?author=RDS&author_mode=last_topics&do_search=1]:
 0ms
get settings:
 10ms
get forum list:
 15ms
get settings:
 11ms
get forum list:
 12ms
get settings:
 9ms
get forum list:
 16ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 41ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 4771ms
total:  4984ms
созд. / загр.: 4984ms
x
x
Закрыть


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