Skip to content

Commit

Permalink
Add option to SplitLayoutFromVBA
Browse files Browse the repository at this point in the history 
This option (on by default) will save the VBA code from forms and reports as a related .cls file. (Still under development.) joyfullservice#378

Also removed the "Strip out Publish Option" from the options form. I have never heard of a case where this needs to be changed, and it frees up space for the new option we are adding without cluttering the form.
  • Loading branch information
@joyfullservice
joyfullservice committed Oct 24, 2023
1 parent a666c9d commit 40cffbc
Show file tree
Hide file tree
Showing 2 changed files with 66 additions and 63 deletions.
126 changes: 63 additions & 63 deletions Version Control.accda.src/forms/frmVCSOptions.bas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -15,11 +15,11 @@ Begin Form
GridY =24
Width =10080
DatasheetFontHeight =11
ItemSuffix =250
Left =-25575
Top =1500
Right =-5310
Bottom =14085
ItemSuffix =252
Left =3225
Top =2430
Right =13890
Bottom =14175
RecSrcDt = Begin
0x79e78b777268e540
End
Expand Down Expand Up @@ -794,8 +794,8 @@ Begin Form
OverlapFlags =247
Left =1020
Top =3360
TabIndex =2
Name ="chkStripPublishOption"
TabIndex =4
Name ="chkExtractThemeFiles"

LayoutCachedLeft =1020
LayoutCachedTop =3360
Expand All @@ -806,14 +806,14 @@ Begin Form
OverlapFlags =247
Left =1320
Top =3300
Width =2640
Width =2340
Height =315
ForeColor =5324600
Name ="Label34"
Caption ="Strip out Publish Option"
Name ="Label112"
Caption ="Extract Theme Files"
LayoutCachedLeft =1320
LayoutCachedTop =3300
LayoutCachedWidth =3960
LayoutCachedWidth =3660
LayoutCachedHeight =3615
ForeThemeColorIndex =-1
ForeTint =100.0
Expand All @@ -830,7 +830,7 @@ Begin Form
Top =3720
Width =1980
Height =315
TabIndex =3
TabIndex =2
Name ="cboSanitizeLevel"
RowSourceType ="Value List"
ColumnWidths ="0"
Expand Down Expand Up @@ -868,7 +868,7 @@ Begin Form
Top =4140
Width =1980
Height =315
TabIndex =4
TabIndex =3
Name ="cboSanitizeColors"
RowSourceType ="Value List"
ColumnWidths ="0"
Expand Down Expand Up @@ -990,9 +990,39 @@ Begin Form
Begin CheckBox
OverlapFlags =247
Left =5340
Top =4620
Top =4200
TabIndex =8
Name ="chkExtractThemeFiles"
Name ="chkFormatSQL"

LayoutCachedLeft =5340
LayoutCachedTop =4200
LayoutCachedWidth =5600
LayoutCachedHeight =4440
Begin
Begin Label
OverlapFlags =247
Left =5640
Top =4140
Width =2340
Height =315
ForeColor =5324600
Name ="Label249"
Caption ="Format SQL"
LayoutCachedLeft =5640
LayoutCachedTop =4140
LayoutCachedWidth =7980
LayoutCachedHeight =4455
ForeThemeColorIndex =-1
ForeTint =100.0
End
End
End
Begin CheckBox
OverlapFlags =247
Left =5340
Top =4620
TabIndex =9
Name ="chkSplitLayoutFromVBA"

LayoutCachedLeft =5340
LayoutCachedTop =4620
Expand All @@ -1006,8 +1036,8 @@ Begin Form
Width =2340
Height =315
ForeColor =5324600
Name ="Label112"
Caption ="Extract Theme Files"
Name ="Label251"
Caption ="Split Layout from VBA"
LayoutCachedLeft =5640
LayoutCachedTop =4560
LayoutCachedWidth =7980
Expand All @@ -1024,7 +1054,7 @@ Begin Form
Top =5100
Width =2700
Height =315
TabIndex =9
TabIndex =10
Name ="txtRunBeforeExport"

LayoutCachedLeft =3540
Expand Down Expand Up @@ -1057,7 +1087,7 @@ Begin Form
Top =5520
Width =2700
Height =315
TabIndex =10
TabIndex =11
Name ="txtRunAfterExport"

LayoutCachedLeft =3540
Expand Down Expand Up @@ -1089,7 +1119,7 @@ Begin Form
Left =7140
Top =5640
Width =2160
TabIndex =11
TabIndex =12
Name ="cmdExplainOptions"
Caption ="Explain options..."
HyperlinkAddress ="https://github.com/joyfullservice/msaccess-vcs-addin/wiki/Documentation#options"
Expand Down Expand Up @@ -1153,20 +1183,6 @@ Begin Form
PressedThemeColorIndex =-1
PressedShade =100.0
End
Begin Label
OverlapFlags =247
Left =6120
Top =2400
Width =2160
Height =240
FontSize =10
Name ="Label46"
Caption ="(Blank for default)"
LayoutCachedLeft =6120
LayoutCachedTop =2400
LayoutCachedWidth =8280
LayoutCachedHeight =2640
End
Begin CommandButton
FontUnderline = NotDefault
TabStop = NotDefault
Expand All @@ -1176,7 +1192,7 @@ Begin Form
Width =1140
Height =240
FontSize =10
TabIndex =12
TabIndex =13
Name ="cmdPrintSettingsOptions"
Caption ="Options..."
OnClick ="[Event Procedure]"
Expand Down Expand Up @@ -1212,35 +1228,19 @@ Begin Form
PressedForeThemeColorIndex =10
PressedForeTint =100.0
End
Begin CheckBox
Begin Label
OverlapFlags =247
Left =5340
Top =4200
TabIndex =13
Name ="chkFormatSQL"

LayoutCachedLeft =5340
LayoutCachedTop =4200
LayoutCachedWidth =5600
LayoutCachedHeight =4440
Begin
Begin Label
OverlapFlags =247
Left =5640
Top =4140
Width =2340
Height =315
ForeColor =5324600
Name ="Label249"
Caption ="Format SQL"
LayoutCachedLeft =5640
LayoutCachedTop =4140
LayoutCachedWidth =7980
LayoutCachedHeight =4455
ForeThemeColorIndex =-1
ForeTint =100.0
End
End
Left =6120
Top =2400
Width =2160
Height =240
FontSize =10
Name ="Label46"
Caption ="(Blank for default)"
LayoutCachedLeft =6120
LayoutCachedTop =2400
LayoutCachedWidth =8280
LayoutCachedHeight =2640
End
End
End
Expand Down
3 changes: 3 additions & 0 deletions Version Control.accda.src/modules/clsOptions.cls
View file
Original file line number Diff line number Diff line change
Expand Up @@ -32,6 +32,7 @@ Public SaveQuerySQL As Boolean
Public FormatSQL As Boolean
Public ForceImportOriginalQuerySQL As Boolean
Public SaveTableSQL As Boolean
Public SplitLayoutFromVBA As Boolean
Public StripPublishOption As Boolean
Public SanitizeColors As eSanitizeLevel
Public SanitizeLevel As eSanitizeLevel
Expand Down Expand Up @@ -78,6 +79,7 @@ Public Sub LoadDefaults()
.FormatSQL = True
.ForceImportOriginalQuerySQL = False
.SaveTableSQL = True
.SplitLayoutFromVBA = True
.StripPublishOption = True
.SanitizeLevel = eslStandard
.SanitizeColors = eslMinimal
Expand Down Expand Up @@ -568,6 +570,7 @@ Private Sub Class_Initialize()
.Add "FormatSQL"
.Add "ForceImportOriginalQuerySQL"
.Add "SaveTableSQL"
.Add "SplitLayoutFromVBA"
.Add "StripPublishOption"
.Add "SanitizeColors"
.Add "SanitizeLevel"
Expand Down

0 comments on commit 40cffbc

Please sign in to comment.