File tree Expand file tree Collapse file tree 4 files changed +75
-28
lines changed Expand file tree Collapse file tree 4 files changed +75
-28
lines changed Original file line number Diff line number Diff line change 9
9
}
10
10
],
11
11
"DatabaseProperties" : [
12
+ {
13
+ "Name" : " AppTitle" ,
14
+ "Type" : 10 ,
15
+ "Value" : " Test App for Build Workflow"
16
+ },
12
17
{
13
18
"Name" : " AllowBypassKey" ,
14
19
"Type" : 1 ,
28
33
"Name" : " StartUpForm" ,
29
34
"Type" : 10 ,
30
35
"Value" : " frmStart"
36
+ },
37
+ {
38
+ "Name" : " CustomRibbonID" ,
39
+ "Type" : 10 ,
40
+ "Value" : " MainRibbon"
41
+ },
42
+ {
43
+ "Name" : " ShowDocumentTabs" ,
44
+ "Type" : 1 ,
45
+ "Value" : false
31
46
}
32
47
]
33
- }
48
+ }
Original file line number Diff line number Diff line change 168
168
"Value" : 1 ,
169
169
"Type" : 4
170
170
},
171
+ "Track Name AutoCorrect Info" : {
172
+ "Value" : 0 ,
173
+ "Type" : 4
174
+ },
171
175
"Transactions" : {
172
176
"Value" : true ,
173
177
"Type" : 1
Original file line number Diff line number Diff line change 1
1
Version =20
2
2
VersionRequired =20
3
3
Begin Form
4
+ RecordSelectors = NotDefault
5
+ NavigationButtons = NotDefault
4
6
DividingLines = NotDefault
5
7
AllowDesignChanges = NotDefault
6
8
DefaultView =0
9
+ ScrollBars =0
7
10
PictureAlignment =2
8
11
DatasheetGridlinesBehavior =3
9
12
GridY =10
10
- Width =6994
13
+ Width =6803
11
14
DatasheetFontHeight =11
12
- ItemSuffix =2
13
- Right =22843
14
- Bottom =11091
15
+ ItemSuffix =3
16
+ Right =24915
17
+ Bottom =11730
15
18
RecSrcDt = Begin
16
19
0 xfd5e93f4705de640
17
20
End
@@ -71,40 +74,57 @@ Begin Form
71
74
PressedForeTint =75.0
72
75
End
73
76
Begin Section
74
- Height =5952
77
+ Height =5669
75
78
Name ="Detail"
76
- AutoHeight =1
77
79
AlternateBackThemeColorIndex =1
78
80
AlternateBackShade =95.0
79
81
BackThemeColorIndex =1
80
82
Begin
81
83
Begin Label
82
84
OverlapFlags =85
83
- Left =1474
84
- Top =1133
85
- Width =720
86
- Height =315
85
+ Left =566
86
+ Top =566
87
+ Width =2205
88
+ Height =675
89
+ FontSize =26
87
90
Name ="Label0"
88
- Caption ="Test"
89
- LayoutCachedLeft =1474
90
- LayoutCachedTop =1133
91
- LayoutCachedWidth =2194
92
- LayoutCachedHeight =1448
91
+ Caption ="Test Form "
92
+ LayoutCachedLeft =566
93
+ LayoutCachedTop =566
94
+ LayoutCachedWidth =2771
95
+ LayoutCachedHeight =1241
93
96
End
94
97
Begin CommandButton
95
98
OverlapFlags =85
96
- Left =3344
97
- Top =453
98
- Width =1842
99
- Height =351
99
+ Left =566
100
+ Top =1700
101
+ Width =2247
102
+ Height =561
100
103
Name ="cmdDevMode"
101
- Caption ="Aktivate Dev Mode"
104
+ Caption ="Activate Dev Mode"
102
105
OnClick ="[Event Procedure]"
103
106
104
- LayoutCachedLeft =3344
105
- LayoutCachedTop =453
106
- LayoutCachedWidth =5186
107
- LayoutCachedHeight =804
107
+ LayoutCachedLeft =566
108
+ LayoutCachedTop =1700
109
+ LayoutCachedWidth =2813
110
+ LayoutCachedHeight =2261
111
+ End
112
+ Begin Label
113
+ Visible = NotDefault
114
+ OverlapFlags =85
115
+ Left =2948
116
+ Top =1700
117
+ Width =3105
118
+ Height =525
119
+ FontSize =10
120
+ ForeColor =0
121
+ Name ="labDevMode"
122
+ Caption ="You must close and reopen \015\012the current database to take effect"
123
+ LayoutCachedLeft =2948
124
+ LayoutCachedTop =1700
125
+ LayoutCachedWidth =6053
126
+ LayoutCachedHeight =2225
127
+ ForeTint =100.0
108
128
End
109
129
End
110
130
End
Original file line number Diff line number Diff line change @@ -14,25 +14,33 @@ Option Explicit
14
14
' {
15
15
' "Name": "AllowSpecialKeys",
16
16
' "Type": 1,
17
- ' "Value": true
17
+ ' "Value": false
18
18
' },
19
19
' {
20
20
' "Name": "StartUpShowDBWindow",
21
21
' "Type": 1,
22
- ' "Value": true
22
+ ' "Value": false
23
23
' },
24
24
' {
25
25
' "Name": "StartUpForm",
26
26
' "Type": 10,
27
27
' "Value": "frmStart"
28
28
' }
29
-
29
+ ' ...
30
30
Private Sub cmdDevMode_Click ()
31
+
31
32
Dim db As DAO .Database
32
33
Set db = CurrentDb
33
34
35
+ On Error Resume Next
34
36
db.Properties.Delete "AllowBypassKey"
35
37
db.Properties("AllowSpecialKeys" ).Value = True
36
38
db.Properties("StartUpShowDBWindow" ).Value = True
39
+ db.Properties("ShowDocumentTabs" ).Value = True
37
40
db.Properties.Delete "StartUpForm"
41
+ db.Properties.Delete "CustomRibbonId"
42
+
43
+ Me.labDevMode.Visible = True
44
+ Me.cmdDevMode.Enabled = False
45
+
38
46
End Sub
You can’t perform that action at this time.
0 commit comments