ник: osmor
ну можно и так, если вам нужно что бы эта форма обязательно была активной...
можно туда же приделать select case для разных форм и вызывать одной клавишей разные функции для разных форм.
if Application.CurrentObjectType= acForm then
select case Application.CurrentObjectName
case "Форма1"
call func1
case "отгрузка"
call func2
case else
end select
end if
|