Pytanie : Dlaczego dlaczego błąd 459 na forma wciąż ale zupełnie otwierać otwierać?

Przy kreskowy rzecz #8 - bValue = Nz (Forma! frmMainMenu! sfrmRpts. Form.cDpt, Fałszywy) - I dostawać the błąd 459 - przedmiot lub klasa wspierać the set wydarzenie?  Zadawalać nutowy kod nutowy:

It być kod ono eariler ale I musieć ono przy the następujący URL:
http://www.experts-exchang e.com/Micr osoft/Development/MS_Access/Access_Coding-Macros/Q_25938812.html

This subform dzwonić sfrmShwPROJ_DPT być wśród inny subform dzwonić sfrmRpts i ten subform być część the główny menu dzwonić frmMainMenu.  Tak gdy the Główny Menu forma dzwonić frmMainMenu otwierać i ładować the następujący być biegać wśrodku the subform ale the główny menu całkowicie rysować całkowicie.  

As ty móc I próbować jeżeli the główny menu forma otwierać przed kontrola wartość - ale badać że swój otwierać już pomagać the error.

To pomoc dalej wyjaśniać pomoc I próbować być globalny zmienna i z kontrola na the główny menu.  The główny menu zawierać teren dokąd raportowy opcja wybierać w the sfrmRpts subform.  Wtedy wyprostowywać obok the sfrmRpts być the inny subform (który mieć żadny związek lub główny menu lub the raportowy opitons) ten ledwo wystawiać opcja depts.  

People móc dalej guzik i the subform źródło i jeżeli iść od depts (sfrmShwPROJ_DPT) pokój (sfrmShwPROJ_RM) i wtedy z powrotem depts (sfrmShwPROJ_DPT) - I chcieć ono the shwPROJ_DPT stół znowu - I chcieć ono the shwPROJ_DPT który przystosowywać.  Tak I używać the Tst_Dpt metoda jeżeli I potrzebować the recordsource od narys lub not.

Thanks dla jakaś pomoc w postęp.  I pewny nadzieja capricorn1 komentować o to ponieważ on pomóc this. 
(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:

Private Funkcja Tst_Dpt () Boolowski
  
  Ciemnawy bMM Boolowski
  Ciemnawy bValue Boolowski
  
  bMM = IsOpen ("frmMainMenu")
  Jeżeli bMM = Prawdziwy Wtedy
    bValue = Nz (Forma! frmMainMenu! sfrmRpts.Form.cDpt, Fałszywy)
  Kończyć Jeżeli
  bMM = IsOpen ("sfrmRpts")
  Jeżeli bMM = Prawdziwy Wtedy
    bValue = Nz (Forma! sfrmRpts.cDpt, Fałszywy)
  Kończyć Jeżeli
  
  Jeżeli g_bLoadDept = Prawdziwy Lub bValue = Prawdziwy Wtedy Tst_Dpt = Prawdziwy

Końcówka Funkcja


'Forma Otwarty iść zanim Formularzowy Ładunek w MS Dostęp

Intymny Okręt podwodny Form_Open (Odwoływać Jako Integer)
  Set_Data
Końcówka Okręt podwodny

Intymny Okręt podwodny Set_Data ()

  Ciemnawy sSQL Sznurek
  
  Ciemnawy sMeName Sznurek
  Ciemnawy sStdName Sznurek
  Ciemnawy sShwName Sznurek
  Ciemnawy sTblName Sznurek
  
  sMeName = Me.Form.Name
  sTblName = Zamieniać (sMeName, "sfrmShw", "")
  sStdName = Zamieniać (sMeName, "sfrmShw", "std")
  sShwName = Zamieniać (sMeName, "sfrmShw", "shw")
  
  Jeżeli This_Table_Exists (sStdName) = Fałszywy Wtedy
  
    sSQL = "WYBIÓRKA" & KeyCode & "," & KEYNAME & ", [Przedstawienie], (0) Rodzaj W" & sStdName
    sSQL = sSQL & "OD" & sTblName
    
    CurrentDb.Execute sSQL
    DoEvents
  Kończyć Jeżeli
  
  Jeżeli This_Table_Exists (sShwName) = Fałszywy Wtedy
  
    sSQL = "WYBIÓRKA" & KeyCode & "," & KEYNAME & ", [Przedstawienie], (0) Rodzaj W" & sShwName
    sSQL = sSQL & "OD" & sStdName
    
    CurrentDb.Execute sSQL
    DoEvents
    
  Kończyć Jeżeli
      
  Jeżeli Tst_Dpt = Fałszywy Wtedy
    
    sSQL = "DELEATUR * OD [" & sShwName & "]"
    CurrentDb.Execute sSQL
    
    sSQL = "WSZYWKA W [" & sShwName & "] (" & KeyCode & "," & KEYNAME & ", Przedstawienie, Rodzaj)"
    sSQL = sSQL & "WYBIÓRKA "" & SELECTCODE & "" "& KeyCode &", ""& SELECTALL &"" "& KEYNAME &", Prawdziwy JAKO Przedstawienie, (0) Rodzaj "
    CurrentDb.Execute sSQL
    
    sSQL = "WSZYWKA W" & sShwName & "([" & KeyCode & "], [" & KEYNAME & "], Przedstawienie, Rodzaj)"
    sSQL = sSQL & "WYBIÓRKA [" & sStdName & "]. [" & KeyCode & "], '' & [" & KEYNAME & "] JAKO DptName, [" & sStdName & "]. [Przedstawienie], (1) JAKO DptS"
    sSQL = sSQL & "OD [" & sStdName & "]"
    CurrentDb.Execute sSQL
    
  Kończyć Jeżeli
  
  sSQL = "WYBIÓRKA" & KeyCode & "," & KEYNAME & ", Przedstawienie, Rodzaj"
  sSQL = sSQL & "OD" & sShwName
  sSQL = sSQL & "ROZKAZ Rodzaj," & KEYNAME
  Me.RecordSource = sSQL
  
Końcówka Okręt podwodny


Jawny Funkcja IsOpen (ByVal strformname Sznurek) Boolowski
Na Błąd Rozpoczynający Err_IsOpen

    Const conDesignView = (0)
    Const conObjStateClosed = (0)
    
    IsOpen = Fałszywy
    
    Jeżeli SysCmd (acSysCmdGetObjectState, acForm, strformname) <> conObjStateClosed Wtedy
        
        Jeżeli Forma (strformname) .CurrentView <> conDesignView Wtedy
            IsOpen = Prawdziwy
            
        Kończyć Jeżeli
        
    Kończyć Jeżeli
    
Exit_IsOpen:
    Wyjście Funkcja
    
Err_IsOpen:
    Wywoławczy Error_Action (Błądzić, Err.description, "modGlobal @ IsOpen", Erl ())
    Wznawiać Exit_IsOpen
Kończyć Funkcja

Odpowiedź : Dlaczego dlaczego błąd 459 na forma wciąż ale zupełnie otwierać otwierać?

Nevermind, I przystosowywać i dodawać the następujący mój problem:
Jakaś koncern z i I robić?
(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:

Jawny Funkcja IsLoaded (strName Jako Sznurek, _
Fakultatywny intType Jako Integer = acForm) Boolowski
Na Błąd Rozpoczynający Err_This
'Dostawać the stan obecny the zwany przedmiot

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

Exit_This:
  Wyjście Funkcja

Err_This:
  Wywoławczy Error_Action (Błądzić, Err.description, "modCritiera @ IsLoaded", Erl ())
  Wznawiać Exit_This
Kończyć Funkcja

Intymny Funkcja Tst_Dpt () Boolowski
  
  Ciemnawy bMM Boolowski
  Ciemnawy bMMLoad Boolowski
  Ciemnawy bValue Boolowski

  bMM = IsOpen ("frmMainMenu")
  bMMLoad = IsLoaded ("frmMainMenu")
  
  Jeżeli bMM = Prawdziwy I bMMLoad = Prawdziwy Wtedy
    bValue = Nz (Forma! frmMainMenu! sfrmRpts.Form.cDpt, Fałszywy)
  Kończyć Jeżeli
  bMM = IsOpen ("sfrmRpts")
  Jeżeli bMM = Prawdziwy Wtedy
    bValue = Nz (Forma! sfrmRpts.cDpt, Fałszywy)
  Kończyć Jeżeli
  
  Jeżeli g_bLoadDept = Prawdziwy Lub bValue = Prawdziwy Wtedy Tst_Dpt = Prawdziwy

Końcówka Funkcja
Inne rozwiązania  
 
programming4us programming4us