Questione : Come risolvere errore run-time 459 sul riferire una forma ancora che è caricata ma non proprio aperta ancora?

Alla linea articolo #8 - bValue = Nz (forme! frmMainMenu! sfrmRpts. Form.cDpt,) - io ottiene l'errore 459 - oggetto falso o il codice categoria non sostiene l'insieme degli eventi?  Notare prego il codice qui sotto: il

It era codice fornito me eariler ma ho dovuto tweak al seguente URL: il href= " http://www.experts-exchange.com/Microsoft/Development/MS_Access/Access_Coding-Macros/Q_25938812.html " del
sfrmShwPROJ_DPT denominato subform del osoft/Development/MS_Access/Access_Coding-Macros/Q_25938812.html

This del e.com/Micr di http://www.experts-exchang è all'interno di un altro subform denominato sfrmRpts e quel subform è una parte del menu principale denominato frmMainMenu.  Così poichè la forma di menu principale ha denominato il frmMainMenu è aperto e caricato quanto segue è ha funzionato all'interno del subform ma il menu principale completamente non è disegnato ancora.  

As potete vedere che sto provando a vedere se la forma di menu principale è aperta prima che verificando il valore del controllo - ma la prova che il relativo aperto già non lo aiuta a sormontare l'aiuto di error.

To più ulteriormente spiega che cosa sto provando a fare devo evit diare usando le variabili globali ed andare con i comandi sul menu principale.  Il menu che principale contiene una zona dove le opzioni di rapporto sono selezionate nel subform degli sfrmRpts.  Allora radrizzare al lato degli sfrmRpts è l'altro subform (che non ha collegamento al menu principale o ai opitons di rapporto) che soltanto visualizza le opzioni dei depts di filtrazione.  il

People può scattare sopra un tasto e cambiare la fonte del subform e se vanno dalla visualizzazione dei depts (sfrmShwPROJ_DPT) alle stanze (sfrmShwPROJ_RM) ed allora di nuovo ai depts (sfrmShwPROJ_DPT) - non la voglio generare ancora la tabella dello shwPROJ_DPT - la voglio usare lo shwPROJ_DPT che è stato registrato.  Così uso il metodo di Tst_Dpt per dire se devo generare il recordsource da zero o not.

Thanks per c'è ne aiutano in anticipo.  I la speranza sicura capricorn1 commenta circa questa poiché ha contribuito a sviluppare this. class= > " libero " 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:
funzione notpretty Tst_Dpt del >Private " del class= " " di codeSnippet783534 del id= del 
 di SysCmd (acSysCmdGetObjectState, acForm, strformname) allora conObjStateClosed
        
        Se conDesignView del <> delle forme (strformname) .CurrentView allora
            IsOpen = allinea
            
        Concluder se
        
    Concluder se
    
Exit_IsOpen:
    Uscire la funzione
    
Err_IsOpen:
    Chiamata Error_Action (errano, Err.description, “@ IsOpen modGlobal„, Erl ())
    Riassunto Exit_IsOpen
Funzione di conclusione
class= del

Risposta : Come risolvere errore run-time 459 sul riferire una forma ancora che è caricata ma non proprio aperta ancora?

Nevermind, ho registrato ed aggiunto quanto segue per risolvere il mio problema:
Delle preoccupazioni per che cosa ho fatto?
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:

Funzione pubblica IsLoaded (strName come stringa, _
intType facoltativo come il numero intero = acForm) come booleano
Sull'errore Err_This di avanzamento
'Ottenere lo stato attuale dell'oggetto chiamato

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

Exit_This:
  Uscire la funzione

Err_This:
  Chiamata Error_Action (errano, Err.description, “modCritiera @ IsLoaded„, Erl ())
  Riassunto Exit_This
Funzione di conclusione

Funzione riservata Tst_Dpt () come booleano
  
  bMM fioco come booleano
  bMMLoad fioco come booleano
  bValue fioco come booleano

  bMM = IsOpen (“frmMainMenu„)
  bMMLoad = IsLoaded (“frmMainMenu„)
  
  Se il bMM = allinea e il bMMLoad = allora allinea
    bValue = Nz (forme! frmMainMenu! sfrmRpts.Form.cDpt, falsi)
  Concluder se
  bMM = IsOpen (“sfrmRpts„)
  Se il bMM = allora allinea
    bValue = Nz (forme! sfrmRpts.cDpt, falsi)
  Concluder se
  
  Se il g_bLoadDept = allinea o il bValue = allinea allora Tst_Dpt = allinea

Funzione di conclusione
Altre soluzioni  
 
programming4us programming4us