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 99 }
1010 ],
1111 "DatabaseProperties" : [
12+ {
13+ "Name" : " AppTitle" ,
14+ "Type" : 10 ,
15+ "Value" : " Test App for Build Workflow"
16+ },
1217 {
1318 "Name" : " AllowBypassKey" ,
1419 "Type" : 1 ,
2833 "Name" : " StartUpForm" ,
2934 "Type" : 10 ,
3035 "Value" : " frmStart"
36+ },
37+ {
38+ "Name" : " CustomRibbonID" ,
39+ "Type" : 10 ,
40+ "Value" : " MainRibbon"
41+ },
42+ {
43+ "Name" : " ShowDocumentTabs" ,
44+ "Type" : 1 ,
45+ "Value" : false
3146 }
3247 ]
33- }
48+ }
Original file line number Diff line number Diff line change 168168 "Value" : 1 ,
169169 "Type" : 4
170170 },
171+ "Track Name AutoCorrect Info" : {
172+ "Value" : 0 ,
173+ "Type" : 4
174+ },
171175 "Transactions" : {
172176 "Value" : true ,
173177 "Type" : 1
Original file line number Diff line number Diff line change 11Version =20
22VersionRequired =20
33Begin Form
4+ RecordSelectors = NotDefault
5+ NavigationButtons = NotDefault
46 DividingLines = NotDefault
57 AllowDesignChanges = NotDefault
68 DefaultView =0
9+ ScrollBars =0
710 PictureAlignment =2
811 DatasheetGridlinesBehavior =3
912 GridY =10
10- Width =6994
13+ Width =6803
1114 DatasheetFontHeight =11
12- ItemSuffix =2
13- Right =22843
14- Bottom =11091
15+ ItemSuffix =3
16+ Right =24915
17+ Bottom =11730
1518 RecSrcDt = Begin
1619 0 xfd5e93f4705de640
1720 End
@@ -71,40 +74,57 @@ Begin Form
7174 PressedForeTint =75.0
7275 End
7376 Begin Section
74- Height =5952
77+ Height =5669
7578 Name ="Detail"
76- AutoHeight =1
7779 AlternateBackThemeColorIndex =1
7880 AlternateBackShade =95.0
7981 BackThemeColorIndex =1
8082 Begin
8183 Begin Label
8284 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
8790 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
9396 End
9497 Begin CommandButton
9598 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
100103 Name ="cmdDevMode"
101- Caption ="Aktivate Dev Mode"
104+ Caption ="Activate Dev Mode"
102105 OnClick ="[Event Procedure]"
103106
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
108128 End
109129 End
110130 End
Original file line number Diff line number Diff line change @@ -14,25 +14,33 @@ Option Explicit
1414' {
1515' "Name": "AllowSpecialKeys",
1616' "Type": 1,
17- ' "Value": true
17+ ' "Value": false
1818' },
1919' {
2020' "Name": "StartUpShowDBWindow",
2121' "Type": 1,
22- ' "Value": true
22+ ' "Value": false
2323' },
2424' {
2525' "Name": "StartUpForm",
2626' "Type": 10,
2727' "Value": "frmStart"
2828' }
29-
29+ ' ...
3030Private Sub cmdDevMode_Click ()
31+
3132 Dim db As DAO .Database
3233 Set db = CurrentDb
3334
35+ On Error Resume Next
3436 db.Properties.Delete "AllowBypassKey"
3537 db.Properties("AllowSpecialKeys" ).Value = True
3638 db.Properties("StartUpShowDBWindow" ).Value = True
39+ db.Properties("ShowDocumentTabs" ).Value = True
3740 db.Properties.Delete "StartUpForm"
41+ db.Properties.Delete "CustomRibbonId"
42+
43+ Me.labDevMode.Visible = True
44+ Me.cmdDevMode.Enabled = False
45+
3846End Sub
You can’t perform that action at this time.
0 commit comments