class= " lineNumbers " de
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 :
|
class= de
fonction " de " codeSnippet783534 d'id= " de Private de class= () comme booléen
Faible bMM comme booléen
Faible bValue comme booléen
bMM = IsOpen (« frmMainMenu »)
Si le bMM = rectifient alors
bValue = Nz (formes ! frmMainMenu ! sfrmRpts.Form.cDpt, faux)
Finir si
bMM = IsOpen (« sfrmRpts »)
Si le bMM = rectifient alors
bValue = Nz (formes ! sfrmRpts.cDpt, faux)
Finir si
Si le g_bLoadDept = rectifient ou le bValue = rectifient alors Tst_Dpt = rectifient
Fonction de fin
La 'forme ouverte va avant charge de forme dans le MS Access
Form_Open secondaire privé (annulation comme nombre entier)
Set_Data
Sous-marin d'extrémité
Set_Data secondaire privé ()
Faible sSQL comme corde
Faible sMeName comme corde
Faible sStdName comme corde
Faible sShwName comme corde
Faible sTblName comme corde
sMeName = Me.Form.Name
le sTblName = remplacent (sMeName, « sfrmShw », "")
le sStdName = remplacent (sMeName, « sfrmShw », le « DST »)
le sShwName = remplacent (sMeName, « sfrmShw », « shw »)
Si This_Table_Exists (sStdName) = faux puis
le sSQL = « CHOISISSENT » et KeyCode et « , » et KEYNAME et « , [exposition], 0 COMME sorte DANS » et sStdName
sSQL = sSQL et « DE » et sTblName
sSQL de CurrentDb.Execute
DoEvents
Finir si
Si This_Table_Exists (sShwName) = faux puis
le sSQL = « CHOISISSENT » et KeyCode et « , » et KEYNAME et « , [exposition], 0 comme sorte DANS » et sShwName
sSQL = sSQL et « DE » et sStdName
sSQL de CurrentDb.Execute
DoEvents
Finir si
Si Tst_Dpt = faux puis
sSQL = « SUPPRESSION * DE [ » et sShwName et « ] »
sSQL de CurrentDb.Execute
sSQL = « INSERTION DANS [ » et sShwName et « ] (" et KeyCode et « , » et KEYNAME et « , exposition, sorte) »
le sSQL = le sSQL et « CHOISISSENT « » et SELECTCODE et « » COMME « et KeyCode et », « « et SELECTALL et » » COMME « et KEYNAME et », vrai COMME exposition, 0 COMME sorte "
sSQL de CurrentDb.Execute
sSQL = « INSERTION DANS » et sShwName et « ([ » et KeyCode et « ], [ » et KEYNAME et « ], exposition, sorte) »
le sSQL = le sSQL et « CHOISISSENT [ » et sStdName et « ]. [ » et KeyCode et « ], ''et [ » et KEYNAME et « ] COMME DptName, [ » et sStdName et « ]. [Exposition], 1 COMME DptS »
sSQL = sSQL et « DE [ » et sStdName et « ] »
sSQL de CurrentDb.Execute
Finir si
le sSQL = « CHOISISSENT » et KeyCode et « , » et KEYNAME et « , exposition, sorte »
sSQL = sSQL et « DE » et sShwName
sSQL = sSQL et « ORDRE PAR Sort, » et KEYNAME
Me.RecordSource = sSQL
Sous-marin d'extrémité
Fonction publique IsOpen (strformname de ByVal comme corde) comme booléen
Sur l'erreur Err_IsOpen GoTo
conDesignView de Const = 0
Const conObjStateClosed = 0
IsOpen = faux
Si le <> de SysCmd (acSysCmdGetObjectState, acForm, strformname) conObjStateClosed alors
Si conDesignView de <> de formes (strformname) .CurrentView alors
IsOpen = rectifient
Finir si
Finir si
Exit_IsOpen :
Sortir la fonction
Err_IsOpen :
Appel Error_Action (errent, Err.description, « @ IsOpen modGlobal », Erl ())
Résumé Exit_IsOpen
Fonction de fin
|
