Вопрос : вызванная функция не исполняя - почему?

Когда потребитель отжимает F8, макрос вызван который бросает потребителя в эту функцию HotKeySaveRecord. Своя цель должна вызвать функцию SaveRecord.    С модернизировать для того чтобы достигнуть 2007, эта функциональность отсутствие более длинних работ.   Когда я шагаю через эту функцию, он как раз идет справедливо через varTemp = линию frm.SaveRecord () без всегда входить в функцию SaveRecord. Он не делает ошибка. помощь
Any вы можете предусмотреть очень была бы оценена.  Спасибо!

class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
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:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
функция HotKeySaveRecord " class= " id= " codeSnippet806751 
Public ()
'Цель:
'Эта функция вызвана горячей клавишей F8, через макрос AutoKeys.
'Будет целью должно поддержать обе «нормальной», связанные формы которые используют глобальное
'Функция SaveRecord () (в basApplUtilities) для того чтобы выполнить деятельность показателя спасения;
'и другие формы (как unbound формы полюбите приоритет) та потребность
'имейте одноцелевую функцию SaveRecord () определено на форме самей.
'Она сперва попытается исполнить функцию SaveRecord () на в настоящее время - активно форме.
'Если это возвращает ошибку 2465, то оно идет дальше исполнить глобальное
'Функция SaveRecord ().
'


   На ошибке переход ErrorHandler
   'Объявления
   strProcedureName Const = «HotKeySaveRecord»
   Тусклое varTemp
   Тусклое frm как форма
   
   'Сделайте конечно там будет активно формой.
   'Если потребитель спросил SaveRecord в некотором сверхсчетном обстоятельстве, то
   'мы как раз не сделаем ничего.
   На резюме ошибки затем
   Установите frm = Screen.ActiveForm
   Если <> 0 Err.Number после этого
      Переход ExitRoutine
   Закончитесь если
   На ошибке переход ErrorHandler
   
   'См. если мы можем исполнить функцию SaveRecord () на в настоящее время форме.
   На ошибке возобновьте затем
   varTemp = frm.SaveRecord ()
   gobjLastError.Save заблуждаются, strProcedureName
   На ошибке переход ErrorHandler
   'Теперь проверите gobjLastError для того чтобы увидеть нашли ли или не мы форм-специфически SaveRecord ().
   Выберите случай gobjLastError.Number
      Не покрывайте 0 'никаких ошибок.  В настоящее время форма имела функцию SaveRecord ().
         'Не сделайте ничего
      Форма случая 2465 'в настоящее время не имела функцию SaveRecord ().
         'Исполните глобальную функцию SaveRecord ().
         varTemp = SaveRecord ()
      Случай еще 'некоторая другая ошибка случился.
         gobjLastError.Raise gobjLastError.Number & «: » & gobjLastError.Description
   Конец отборный
   
ExitRoutine:
   Выходите функция
ErrorHandler:
   gobjLastError.Save заблуждаются, strProcedureName
   Выберите случай gobjLastError.Number
      Покрывайте еще
         gobjLastError.Show
         Возобновьте ExitRoutine
   Закончите отборное
Закончите функцию
class=

Ответ : вызванная функция не исполняя - почему?

Конечно почему полностью то Кодий обязательно.  Просто дорога сохранить показатель следующий.

На форме с спасительной кнопкой:

Me.Dirty = ложно

ЕСЛИ… вам нужно «глобальное» за исключением, то (?) … после этого в модуле vba:

Forms.YourFormName.Dirty = ложно

Или

Screen.ActiveForm.Dirty = ложно

mx
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us