Иллюстрированный самоучитель по Access 2002


         

Использование функций для обработки событий - часть 2


(DblClick) создавать процедуру обработки событий, можно создать одну функцию и присоединить ее ко всем полям. Функция будет выглядеть так:

Private Function Order_DblClick()

Dim strCriteria As String

On Error Goto Err Order DblClick

strCriteria = "КодЗаказа = Forms![Заказы клиента]!_ [Заказы клиента подчиненная].form!КодЗаказа"

DoCmd.OpenForm "Заказы", acNormal, , strCriteria

Exit_Order_DblClick: Exit Function

Err_Order_DblClick:

;

MsgBox Err.Description Resume Exit_Order_DblClick

End Function

А присоединить эту функцию к событию элемента управления формы можно так, как показано на рис. 13.36. Мы сделали это для формы "Заказы клиента" (Customer Orders) приложения (NorthWind).




Содержание  Назад  Вперед