Cuestión : ¿Cómo solucionar el error run-time 459 en referirse a una forma todavía que es cargada pero abierta no absolutamente todavía?

¡En la línea artículo #8 - bValue = Nz (formas! ¡frmMainMenu! sfrmRpts. ¿Form.cDpt,) - yo consigue el error 459 - objeto falso o la clase no apoya el sistema de acontecimientos?  Observar por favor el código abajo: el

It era código proporcionado a mí eariler pero tuve que pellizcarlo en el URL siguiente: el href= " http://www.experts-exchange.com/Microsoft/Development/MS_Access/Access_Coding-Macros/Q_25938812.html " del
sfrmShwPROJ_DPT llamado subform del osoft/Development/MS_Access/Access_Coding-Macros/Q_25938812.html

This del e.com/Micr de http://www.experts-exchang está dentro de otro subform llamado los sfrmRpts y ese subform es una parte del menú principal llamado frmMainMenu.  Así como la forma de menú principal llamó el frmMainMenu se abre y cargó el siguiente es funcionó dentro del subform pero el menú principal no se dibuja totalmente todavía.  

As que usted puede ver que estoy intentando ver si se abre la forma de menú principal antes de que pruebe el valor de un control - pero la prueba que su abierto ya no me ayuda a superar la ayuda de error.

To explica más lejos lo que estoy intentando hacer debo evitar usar variables globales e ir con controles en el menú principal.  El menú principal contiene un área donde las opciones del informe se seleccionan en el subform de los sfrmRpts.  Entonces enderezar al lado de los sfrmRpts es el otro subform (que no tiene ninguna conexión al menú principal o a los opitons del informe) que exhibe simplemente opciones de depts de filtración.  el

People puede chascar encendido un botón y cambiar la fuente del subform y si van de exhibir los depts (sfrmShwPROJ_DPT) a los cuartos (sfrmShwPROJ_RM) y entonces de nuevo a los depts (sfrmShwPROJ_DPT) - no quisiera creara la tabla del shwPROJ_DPT otra vez - quisiera que utilizara el shwPROJ_DPT se ha ajustado que.  Así utilizo el método de Tst_Dpt para decir si necesito crear el recordsource del rasguño o not.

Thanks para cualesquiera ayudan por adelantado.  I la esperanza segura capricorn1 comenta sobre esto puesto que él ayudó a desarrollar this. class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
función notpretty Tst_Dpt del >Private " del class= " de " codeSnippet783534 del id= del 
 de SysCmd (acSysCmdGetObjectState, acForm, strformname) entonces conObjStateClosed
        
        Si conDesignView del <> de las formas (strformname) .CurrentView entonces
            IsOpen = verdad
            
        Terminar si
        
    Terminar si
    
Exit_IsOpen:
    Salir la función
    
Err_IsOpen:
    Llamada Error_Action (yerran, Err.description, “@ IsOpen modGlobal”, Erl ())
    Curriculum vitae Exit_IsOpen
Función del final
class= del

Respuesta : ¿Cómo solucionar el error run-time 459 en referirse a una forma todavía que es cargada pero abierta no absolutamente todavía?

Nevermind, ajusté y agregué el siguiente para solucionar mi problema:
¿Preocupaciones con lo que he hecho?
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:

Función pública IsLoaded (strName como secuencia, _
intType opcional como número entero = acForm) como boleano
En el error Err_This indicado
'Conseguir el estado actual del objeto nombrado

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

Exit_This:
  Salir la función

Err_This:
  Llamada Error_Action (yerran, Err.description, “modCritiera @ IsLoaded”, Erl ())
  Curriculum vitae Exit_This
Función del final

Función privada Tst_Dpt () como boleano
  
  bMM dévil como boleano
  bMMLoad dévil como boleano
  bValue dévil como boleano

  bMM = IsOpen (“frmMainMenu”)
  bMMLoad = IsLoaded (“frmMainMenu”)
  
  Si el bMM = verdad y el bMMLoad = entonces verdad
    ¡bValue = Nz (formas! ¡frmMainMenu! sfrmRpts.Form.cDpt, falsos)
  Terminar si
  bMM = IsOpen (“sfrmRpts”)
  Si el bMM = entonces verdad
    ¡bValue = Nz (formas! sfrmRpts.cDpt, falsos)
  Terminar si
  
  Si el g_bLoadDept = verdad o el bValue = verdad entonces Tst_Dpt = verdad

Función del final
Otras soluciones  
 
programming4us programming4us