Вопрос : Как разрешить продолжающую погрешность 459 на снабжать ссылками все еще будучи нагружанным но довольно раскрынную форму пока?

На линии детале #8 - bValue = Nz (формах! frmMainMenu! sfrmRpts. Form.cDpt, ложный) - я получаем ошибку 459 - предмет или тип не поддерживает комплект случаев?  Пожалуйста заметьте Кодего ниже:

It было Кодий снабженное я eariler но я должен tweak оно на следующий URL: href= " http://www.experts-exchange.com/Microsoft/Development/MS_Access/Access_Coding-Macros/Q_25938812.html "
sfrmShwPROJ_DPT osoft/Development/MS_Access/Access_Coding-Macros/Q_25938812.html

This e.com/Micr http://www.experts-exchang вызванное subform находится внутри другое вызванное subform sfrmRpts и тем subform будет часть главным образом вызванного меню frmMainMenu.  Таким образом по мере того как форма главным образом меню вызвала раскрыно и нагрузило frmMainMenu следующий побежало внутри subform но главным образом меню вполне не нарисовано пока.  

As, котор вы можете увидеть я пытается увидеть если раскрына форма главным образом меню прежде чем испытывающ значение управления -, то но испытание что свое раскрынное уже не помогает мне отжать помощь error.

To более добавочно объясняет я пытаюсь сделать должен избежать использовать глобальные перемеююые и пойти с управлением на главным образом меню.  Главным образом меню содержит область где варианты рапорта выбраны в subform sfrmRpts.  После этого выпрямите около sfrmRpts будет другим subform (не имеет никакое соединение к или главным образом меню или opitons рапорта) что просто показывает варианты фильтруя depts.  

People может щелкнуть дальше кнопкой и изменить источником subform и если они идет от показа depts (sfrmShwPROJ_DPT) к комнатам (sfrmShwPROJ_RM) и после этого назад к depts (sfrmShwPROJ_DPT) - я не хочу его создавать таблицу shwPROJ_DPT снова -, то я хочу ее использовать shwPROJ_DPT было отрегулировано.  Таким образом я использую метод Tst_Dpt для того чтобы сказать если мне нужно создать recordsource от скреста или not.

Thanks для любых помогают заранее.  Iий уверенное упование capricorn1 комментирует о этом в виду того что он помог начать this. 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:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
функция Tst_Dpt >Private " class= " " codeSnippet783534 id= 
 SysCmd (acSysCmdGetObjectState, acForm, strformname) conObjStateClosed после этого
        
        Если conDesignView <> форм (strformname) .CurrentView после этого
            IsOpen = True
            
        Закончитесь если
        
    Закончитесь если
    
Exit_IsOpen:
    Выходите функция
    
Err_IsOpen:
    Звонок Error_Action (заблуждаются, Err.description, «modGlobal @ IsOpen», Erl ())
    Резюме Exit_IsOpen
Функция конца
class=

Ответ : Как разрешить продолжающую погрешность 459 на снабжать ссылками все еще будучи нагружанным но довольно раскрынную форму пока?

Nevermind, я отрегулировал и добавил следующий для того чтобы разрешить мою проблему:
Все заботы с я делал?
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:

Общественная функция IsLoaded (strName как шнур, _
Опционное intType как интежер = acForm) как булевско
На ошибке переход Err_This
'Получите настоящее положение дел названного предмета

  IsLoaded = SysCmd (acSysCmdGetObjectState, _
intType, _
strName) = acObjStateOpen

Exit_This:
  Выходите функция

Err_This:
  Звонок Error_Action (заблуждаются, Err.description, «modCritiera @ IsLoaded», Erl ())
  Резюме Exit_This
Функция конца

Приватная функция Tst_Dpt () как булевско
  
  Тусклое bMM как булевско
  Тусклое bMMLoad как булевско
  Тусклое bValue как булевско

  bMM = IsOpen («frmMainMenu»)
  bMMLoad = IsLoaded («frmMainMenu»)
  
  Если bMM = True и, то bMMLoad = True после этого
    bValue = Nz (формы! frmMainMenu! sfrmRpts.Form.cDpt, ложные)
  Закончитесь если
  bMM = IsOpen («sfrmRpts»)
  Если bMM = True после этого
    bValue = Nz (формы! sfrmRpts.cDpt, ложные)
  Закончитесь если
  
  Если g_bLoadDept = True или, то bValue = True после этого Tst_Dpt = True

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