Pergunta : Como resolver o erro run-time 459 em prover um formulário ainda que está sendo carregado mas aberto não completamente ainda?

Na linha artigo #8 - bValue = Nz (formulários! frmMainMenu! sfrmRpts. Form.cDpt,) - eu começ o erro 459 - objeto falso ou a classe não suporta o jogo dos eventos?  Anotar por favor o código abaixo: o

It era código fornecido a mim eariler mas eu tive que tweak o no seguinte URL: o href= " http://www.experts-exchange.com/Microsoft/Development/MS_Access/Access_Coding-Macros/Q_25938812.html " do
sfrmShwPROJ_DPT chamado subform do osoft/Development/MS_Access/Access_Coding-Macros/Q_25938812.html

This do e.com/Micr de http://www.experts-exchang está dentro de um outro subform chamado sfrmRpts e esse subform é uma parte do menu principal chamado frmMainMenu.  Assim como o formulário de menu principal chamou o frmMainMenu é aberto e carregou o seguinte é funcionou dentro do subform mas o menu principal não é extraído completamente ainda.  

As que você pode ver que eu estou tentando ver se o formulário de menu principal esteja aberto antes que testando o valor de um controle - mas o teste que o seu aberto já não me ajuda a superar a ajuda de error.

To explica mais o que eu estou tentando fazer devo evitar usar variáveis globais e ir com controles no menu principal.  O menu principal contem uma área onde as opções do relatório sejam selecionadas no subform dos sfrmRpts.  Endireitar então ao lado dos sfrmRpts é o outro subform (de que não tem nenhuma conexão ao menu principal ou aos opitons do relatório) que indica meramente opções de depts de filtração.  o

People pode estalar sobre uma tecla e mudar a fonte do subform e se vão de indicar depts (sfrmShwPROJ_DPT) aos quartos (sfrmShwPROJ_RM) e então de volta aos depts (sfrmShwPROJ_DPT) - eu não a quero criar outra vez a tabela do shwPROJ_DPT - eu quero-a usar o shwPROJ_DPT que foi ajustado.  Assim eu uso o método de Tst_Dpt para dizer se eu preciso de criar o recordsource do risco ou not.

Thanks para alguns ajudam adiantado.  I a esperança certa capricorn1 comenta sobre esta desde que ajudou a desenvolver this. class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
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:
função notpretty Tst_Dpt do >Private " do class= " de " codeSnippet783534 do id= do 
 de SysCmd (acSysCmdGetObjectState, acForm, strformname) conObjStateClosed então
        
        Se conDesignView do <> dos formulários (strformname) .CurrentView então
            IsOpen = retifica
            
        Terminar se
        
    Terminar se
    
Exit_IsOpen:
    Retirar a função
    
Err_IsOpen:
    Chamada Error_Action (erram, Err.description, “@ IsOpen modGlobal”, Erl ())
    Resumo Exit_IsOpen
Função do fim
class= do

Resposta : Como resolver o erro run-time 459 em prover um formulário ainda que está sendo carregado mas aberto não completamente ainda?

Nevermind, eu ajustei e adicionei o seguinte para resolver meu problema:
Algum estar relacionado com o que eu fiz?
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:

Função pública IsLoaded (strName como a corda, _
intType opcional como o inteiro = o acForm) como bôoleano
No erro Err_This empreendedores
'Começ o estado atual do objeto nomeado

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

Exit_This:
  Retirar a função

Err_This:
  Chamada Error_Action (erram, Err.description, “modCritiera @ IsLoaded”, Erl ())
  Resumo Exit_This
Função do fim

Função confidencial Tst_Dpt () como bôoleano
  
  bMM não ofuscante como bôoleano
  bMMLoad não ofuscante como bôoleano
  bValue não ofuscante como bôoleano

  bMM = IsOpen (“frmMainMenu”)
  bMMLoad = IsLoaded (“frmMainMenu”)
  
  Se o bMM = retifica e o bMMLoad = retifica então
    bValue = Nz (formulários! frmMainMenu! sfrmRpts.Form.cDpt, falsos)
  Terminar se
  bMM = IsOpen (“sfrmRpts”)
  Se o bMM = retifica então
    bValue = Nz (formulários! sfrmRpts.cDpt, falsos)
  Terminar se
  
  Se o g_bLoadDept = retifica ou o bValue = retifica então Tst_Dpt = retifica

Função do fim
Outras soluções  
 
programming4us programming4us