Fråga : Hur man löser run-time fel 459 på att hänvisa till en bildastillbild som ännu laddas men inte ganska öppnas?

På fodra objektet #8 - bValue = Nz (bildar! frmMainMenu! sfrmRpts. Form.cDpt som, är falska) - jag får felet 459 - anmärker eller klassificerar stöttar inte uppsättningen av händelser?  Behaga noterar kodifierar nedanfört:

It var kodifierar förutsatt att till mig eariler, men jag måste att tweak den på efter URLEN: href= " http://www.experts-exchange.com/Microsoft/Development/MS_Access/Access_Coding-Macros/Q_25938812.html " för
sfrmShwPROJ_DPT för osoft/Development/MS_Access/Access_Coding-Macros/Q_25938812.html

This för http://www.experts-exchang e.com/Micr kallad subform är inom en annan subform som kallas sfrmRpts, och den subform är en del av den huvudsakliga menyn som kallas frmMainMenuen.  , som således den huvudsakliga menyn bildar, den kallade frmMainMenuen öppnas och laddade är efter körde insida subformen, men den huvudsakliga menyn dras inte fullständigt ännu.  

As som du kan se att den pröva I-förmiddagen att se, om den huvudsakliga menyn bildar öppnas, innan den testar en kontroll, värderar - men testa, att dess som redan ar öppnat inte hjälper mig som är betagen hjälpen för error.

To vidare för att förklara vad den pröva I-förmiddagen som ska göras är att undvika att använda globala variabler och att gå med kontrollerar på den huvudsakliga menyn.  Den huvudsakliga menyn innehåller ett område var rapportalternativ är utvalda i sfrmRptssubformen.  Därefter rätt bredvid sfrmRptsna är den annan subformen (som har ingen anslutning till endera den huvudsakliga menyn eller rapportopitonsna) att visar bara alternativ av filtrera depts.  

People kan klicka på en knäppas, och att ändra subformkällan och, om de går från att visa depts (sfrmShwPROJ_DPT) till rum (sfrmShwPROJ_RM) och därefter, dra tillbaka till depts (sfrmShwPROJ_DPT) - mig inte önskar den ska skapa shwPROJ_DPTen bordlägger igen - jag önskar att den ska använda shwPROJ_DPTen som har justerats.  Således jag använder den Tst_Dpt metoden för att berätta, om jag behöver att skapa recordsourcen från skrapa, eller not.

Thanks för några hjälper i förskott.  I säkert hopp capricorn1 kommenterar härom, sedan han hjälpte att framkalla this. > för

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:

" codeBody " " >Private för class= " för conObjStateClosed därefter Om bildar (strformname) .CurrentView-<>conDesignView därefter IsOpen = True Avsluta om Avsluta om Exit_IsOpen: Gå ut fungerar Err_IsOpen: Appell Error_Action (fela, Err.description, ”modGlobal @ IsOpen”, Erl ()) Meritförteckning Exit_IsOpen Avsluta fungerar " klar "

Svar : Hur man löser run-time fel 459 på att hänvisa till en bildastillbild som ännu laddas men inte ganska öppnas?

Nevermind jag justerade och tillfogade efter för att lösa mitt problem:
Några bekymmer med vad jag har gjort?

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:

Allmänhet fungerar IsLoaded (strName som stränger, _, Valfri intType som heltal = acForm) som Boolean På felet GoTo Err_This 'Få strömmen statlig av namngiven anmärker IsLoaded = SysCmd (acSysCmdGetObjectState, _, intType _, strName) = acObjStateOpen Exit_This: Gå ut fungerar Err_This: Appell Error_Action (fela, Err.description, ”modCritieraen @ IsLoaded”, Erl ()) Meritförteckning Exit_This Avsluta fungerar Privat fungera Tst_Dpt () som Boolean Dunkel bMM som Boolean Dunkel bMMLoad som Boolean Dunkel bValue som Boolean bMM = IsOpen (”frmMainMenuen”) bMMLoad = IsLoaded (”frmMainMenu”) Om bMM = True och, bMMLoad = True därefter bValue = Nz (bildar! frmMainMenu! sfrmRpts.Form.cDpt som, är falska) Avsluta om bMM = IsOpen (”sfrmRpts”) Om bMM = True därefter bValue = Nz (bildar! sfrmRpts.cDpt som, är falska) Avsluta om Om g_bLoadDept = True eller, bValue = True därefter Tst_Dpt = True Avsluta fungerar