Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: function...

Тема: function

15.06.2007 21:09:01

lkva

11 сообщения

Тема: function

Из формы вызываю функцию (например, dblClick по полю). Никакие параметры в функцию не передаются. Как обратиться к элементам этой формы из данной функции и получить их свойства?
Спасибо.

P.S. Раздел для новичков
Автор: Viktor от 27.12.2004 15:30:25 Источник ...

15.06.2007 21:09:02

All

4316 сообщения

RE: function

1) Вызов
dblClick(me.form)

2) Описание
Public Function dblClick(frm as form)
Dim a as Long
a = frm.Поле1

P.S. Раздел для новичков
Автор: Admin от 0:00:00 Источник ...

15.06.2007 21:09:02

lkva

11 сообщения

RE: function

Function funOnDblClickCombobox()

Dim ctl As String
Dim ctlCode As Integer
Dim stDocName As String
ctl = Screen.ActiveForm.ActiveControl.Name
ctlCode = Screen.ActiveForm.ActiveControl
Docmd.OpenForm .... и т.д.

Вызов по событию двойного нажатия:
=funOnDblClickCombobox()

Этот код у меня работает. Насколько он корректен?

P.S. Раздел для новичков
Автор: Viktor от 28.12.2004 14:51:23 Источник ...

15.06.2007 21:09:02

All

4316 сообщения

RE: function

Если работает, то зачем-что делать, но ...
1. Не учитывается вариант, что форма может потерять фокус (например, после двойного нажатия, кто-то нажал "горячую" кнопку)
2. Гарантированно можно обратиться к элементу через Forms("Имя").Поле1. Недостаток - требуется время для создания ссылки на объект.
3. Можно просто обратиться к элементу:
=funOnDblClickCombobox([Поле1])

P.S. Раздел для новичков
Автор: Admin от 0:00:00 Источник ...

15.06.2007 21:09:02

lkva

11 сообщения

RE: function